郵便番号を入れると住所が出るマクロを組みたい
A列に郵便番号を入れると、（例：123-4567）B列に住所が出るマクロを組みたいのですが
なかなかできません。例えばA１セルに入力するとB１セルに。A4セルに入力するとB４セルに
出るといった感じです。インターネットで調べながら、
Option Explicit
' ワークシートのChangeイベント記述
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xlAPP As Application
' 郵便番号セル以外では動作させない
If Target.Address <> "$A$1" Then Exit Sub ' (1)
' 3桁以上の郵便番号があり、住所がブランクの場合のみ住所を変換させる
If ((Len(Cells(1, 1).Value) >= 3) And (Cells(1, 2).Value = "")) Then ' (2)
Set xlAPP = Application
xlAPP.EnableEvents = False ' (3)
' 郵便番号を全角変換し住所に転記
Cells(1, 2).Value = StrConv(Target.Value, vbWide) ' (4)
' 住所のセルを選択
Cells(1, 2).Select ' (5)
' F2 → Shift+Home → F13 を擬装入力する
SendKeys "{F2}", True ' 編集モード ' (6)
SendKeys "+{HOME}", True ' 文字列全体を選択 ' (7)
SendKeys "{F13}", True ' 再変換(MS-IME) ' (8)
xlAPP.EnableEvents = True
End If
End Sub
というコードを作ったのですが、これはA1セルしか対応しておらず、A列全体で対応できません。
何か方法があればご教授いただけたら幸いです。
お礼
ありがとうございました。 12万件のデーターは非常に重たいですね。 諦めるしかないようですね。 筆まめとかいろいろなソフトで簡単に出てくるので、エクセルで簡単に出せるのかな、と思いお聞きしました。 申し訳ありませんでした。