[[20210221123314]]　『入力してある郵便番号から住所を取得したいです。』（なな）　ページの最後に飛ぶ

『入力してある郵便番号から住所を取得したいです。』（なな）

「なな」と申します。

タイトルにありますように郵便番号から住所を取得したいです。

今現在、C列に郵便番号が300件ほど入力されております。
C列のi行目の郵便番号を取得し、その番号から住所を取得しD列のi行目へ入力したいです。

現在出来ているのは、郵便番号を取得しD列へ全角での入力をするという所まで出来ております。

・D列のi行目を編集モードにする。
・セル内の文字列を全部選択する。
・文字列を変換する。
・住所を選択する。

上記の手順をすれば良いとは思っているのですが、コードで表現出来ずに困っておりました。
分かる方ご教授頂けないでしょうか？
宜しくお願い致します。

現状のコードを記載致します。

 Sub 郵便番号から住所に変換()

 Dim i As Long

    For i = Worksheets("顧客データ").Cells(1, 3) To Worksheets("顧客データ").Cells(1, 4)

        Cells(i, 4).Value = StrConv(Cells(i, 3), vbWide)

        Range("D3").Select

    Next i

 End Sub

＜使用 Excel：Excel2016mac、使用 OS：Windows10 ＞

http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_800_040.html
（BJ） 2021/02/21(日) 13:40

 こんにちは　＾＾
日本郵便局のサイトから
KEN_ALL.CSV
配布フリー
ＤＬすれば、VLOOKUP　とかでも、もちろんVBAでも
行けるかも、　一工夫いるようですが。。。m(__)m
（隠居じーさん） 2021/02/21(日) 14:12

BJさんありがとうございます。

こちら拝見したのですが、理解出来ませんでしたのでこちらに質問させて頂きました。

もう一度読み直します。

隠居じーさんさんありがとうございます。
先に上記URLをもう一度読み直してその後確認させて頂きます！
ありがとうございます。
（なな） 2021/02/21(日) 14:40

 なな様へ
済みません。。。（隠居じーさん） 2021/02/21(日) 14:12
の方法では、一部地域では、なかなか、複雑な記入箇所が
あり、システム化にはとても、手間が、かかる様です。。
さすが、有料の辞書だけの事は有ります。郵便番号辞書
使用を、推奨いたします。あいすみませんでした。。。m(_ _)m
（隠居じーさん） 2021/02/22(月) 10:43

＞使用 Excel：Excel2016mac、使用 OS：Windows10

Windows上で Mac版Excel なんですか？

Windows上でWindows版Excel なら、
・Microsoft/郵便番号変換ウィザード
・AddinBox/kt電話郵便アドイン
が使えますけどね・・・

（AddinBox 角田） 2021/02/22(月) 18:23

おはようございます。　＾＾
おお！。。。なるほど。。。アドインがあったのですね。
無料でしたら。ＤＬ、してみます。
有難うございました。。。m(_ _)m
（隠居じーさん） 2021/02/23(火) 07:24

コメント返信：

[ 一覧(最新更新順) ]

[[20210221123314]] 『入力してある郵便番号から住所を取得したいです。』（なな） ページの最後に飛ぶ

[[20210221123314]]　『入力してある郵便番号から住所を取得したいです。』（なな）　ページの最後に飛ぶ