Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


10604 / 13646 ツリー ←次へ | 前へ→

【20913】郵便番号の話 アンパンマン 04/12/24(金) 16:18 質問[未読]
【20919】Re:郵便番号の話 [名前なし] 04/12/24(金) 22:33 回答[未読]

【20913】郵便番号の話
質問  アンパンマン  - 04/12/24(金) 16:18 -

引用なし
パスワード
   ちょっと昔の話で恐縮ですが・・・
セルD10に郵便番号を入力し、"住所検索"というCommandButtonをクリックすると
セルD12に住所が表示されるようにしたいと思い、
カドさんの
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=11759;id=excel
の回答を参考に下記のようなマクロを作ってみたのですが
うまくいきません。どうすればよいか教えてください。
宜しくお願いします。

Private Sub 住所検索_Click()
  Range("D12").Activate
  Application.SendKeys Range("D10") + " "
End Sub

【20919】Re:郵便番号の話
回答  [名前なし]  - 04/12/24(金) 22:33 -

引用なし
パスワード
   ▼アンパンマン さん:
セルD12に、入力規則で日本語入力タブ→IMEの設定を「ひらがな」に変更。

>Private Sub 住所検索_Click()
>  Range("D12").Activate
  SendKeys Range("D10") & Space(1) '←ここを修正
>End Sub

試してみてください。

10604 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free