WORK備忘録

メモ

Excel_VBA丁目番号

2017-03-20 19:01:39 | 日記


Sub 丁目番号()
    Dim i As Long, tmp As Variant
    
    
    Dim acv As Variant

 acv = ActiveCell.Value

    
        tmp = Split(acv, "-")
        
        Dim s1 As String, s2 As String, s3 As String, henkabgo As String
        
        s1 = tmp(0) & "丁目"
        s2 = tmp(1) & "番"
        s3 = tmp(2) & "号"
        

  henkango = CStr(s1 & s2 & s3)
  

ActiveCell.Value = henkango

End Sub



ジャンル:
ウェブログ
コメント   この記事についてブログを書く
この記事をはてなブックマークに追加
« Excel_VBAシートベリファイ機能 | トップ | プログラム仕様書書き方 »
最近の画像もっと見る

コメントを投稿


コメント利用規約に同意の上コメント投稿を行ってください。

数字4桁を入力し、投稿ボタンを押してください。

あわせて読む

トラックバック

この記事のトラックバック  Ping-URL
  • 30日以上前の記事に対するトラックバックは受け取らないよう設定されております。
  • 送信元の記事内容が半角英数のみのトラックバックは受け取らないよう設定されております。
  • このブログへのリンクがない記事からのトラックバックは受け取らないよう設定されております。
  • ※ブログ管理者のみ、編集画面で設定の変更が可能です。