【VBA】郵便番号を入れたら住所が出てくる仕組み

Question

http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_130_050.html

このサイトを参考に見たのですが
かなり難しそうなのですが

これは簡単にできるものでしょうか？

hallo-2007 · Accepted Answer

ＩＭＥでよかったらですが、関数を使った一案です。
ＩＭＥのツール＝＞辞書の追加で　郵便番号辞書の機能を追加

Ａ　　　　　　Ｂ 　　　Ｃ
　郵便番号　　　住所１　住所２
=PHONETIC(B2)

Ｂ２セルに　=PHONETIC(B2)セルに入れて下までコピーしておきます。

Ｂ列に　全角で郵便番号を入れると、希望の住所に変換できます。
Ａ列には、郵便番号が表示されます。
Ｃ列には、残りの住所を入力します。
住所入力がかなり楽になるのは間違いないです。

但し、ＩＭＥの郵便番号辞書は、常に最新に更新されるわけではないので
注意は必要です。

hallo-2007 · Answer

間違いがありましたので訂正します
Ｂ２セルに　=PHONETIC(B2)セルに入れて下までコピーしておきます。

は
Ａ２セルに　=PHONETIC(B2)セルに入れて下までコピーしておきます。
の間違いでした。

nicotinism · Answer

IME は、郵便番号→住所の一方通行です。
入力したところのを住所に変換するだけです。
ウィザードは、相互変換が出来ますが
対象となるのはセルだけですので、ユーザーフォームのテキストボックスA→Bに住所
という芸当は出来ないと思います。（多分）
マイクロソフトもそこまで優しく（お人好し）では無いと・・。
となると
挙げられたリンク先を読み解いて利用することになるかと思います。
>これは簡単にできるものでしょうか？
貴方次第としか言えません。(＾＾ゞ

nicotinism · Answer

IMEの変換モードを、地名人名にするとか
http://www.becoolusers.com/office/ime-name.html

郵便番号変換ウィザードを入れるとか・・じゃダメですか？
http://www.atmarkit.co.jp/fwin2k/win2ktips/1046exelzipcode/exelzipcode.html

って質問のリンク先の冒頭に
『MSの郵便番号変換ウィザードやIMEを使うのではなく・・』とありますね。。。

n-jun · Answer

＃２です。

＞アクセスとか出てきていたので
＞エクセルだけで完結しないのかな？と・・・

解説の中で
『このサンプルの構成は、この画像のようなサンプルのExcelブックだけですが、
郵便番号住所変換データベース(KEN_ALL.mdb)は、マクロから生成されるようになっています。

なお、このデータベース(KEN_ALL.mdb)はExcelのマクロ内で生成されて利用されるだけなので、
このサンプルを利用する時点ではAccessがインストールされている必要はありません。』

とあります。

ようは１つ目のコード＜ADOでCSV形式ファイルからAccessデータベースを生成する＞
を実行する事で、取得したＣＳＶファイルをｍｄｂファイルへと変換してくれます。
⇒未検証ではありますが。。。

ｍｄｂファイルを作成したら２つ目のコードで使用できます。

それぞれは画像をクリックする事でサンプルファイルを
ダウンロードできると思いますよ。。。

n-jun · Answer

何をしたいのか不明なのですが、
手順にそってやれば完成しそうな気も。。。

papafuji · Answer

始めまして、此方のサイトを張っておきますね、http://www.post.japanpost.jp/zipcode/郵便局のサイトです。番号を半角で入力すると住所が出ます。EXへコピー貼り付けで後は番地を手入力してくださいね。

【VBA】郵便番号を入れたら住所が出てくる仕組み

ＩＭＥでよかったらですが、関数を使った一案です。

間違いがありましたので訂正します

IME は、郵便番号→住所の一方通行です。

IMEの変換モードを、地名人名にするとか

この回答への補足

＃２です。

何をしたいのか不明なのですが、

この回答への補足

始めまして、此方のサイトを張っておきますね、

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング