-1

ＥｘｃｅｌのＶＢＡについて郵便番号を入力することで指定したセルに住所を表示するようにしたいんです。いろいろなサイトを参考にさせてもらったのですがＶＢＡはまったくの初心者なので結局うまくいきませんでした。以下のようなコードを作りました。Private Sub Worksheet_Change(ByVal Target As Range) Dim xlAPP As Application If Target.Address <> "$D$12" Then Exit Sub If ((Len(Cells(12, 4).Value) >= 3) And (Cells(13, 3).Value = "")) Then Set xlAPP = Application xlAPP.EnableEvents = False Cells(13, 3).Value = StrConv(Target.Value, vbWide) Cells(13, 3).Select SendKeys "{F2}", True SendKeys "+{HOME}", True SendKeys "{F13}", True xlAPP.EnableEvents = True End IfEnd SubD12に郵便番号を入力するとC13に住所が出るようにしたいのですが郵便番号が全角コピーされるだけで住所がでてきません。どこが間違っているのでしょうか。

質問者が選んだベストソリューション

Yahoo!知恵袋 4768日前