郵便番号

エクセルで・・・

A１に郵便番号を入れると自動的にB1に住所を入力するような方法ってありませんか？

※B１に郵便番号を入れて変換（IMEの機能？）
※郵便番号変換ウィザードを使う
※うえの２つをマクロ化する

以上の３（２）つは除く

No.5 ベストアンサー 回答者： nishi6 回答日時： 2002/11/16 01:12

マクロを完全否定ではない？下のコードはIME2000の機能を使っています。

変換モード=人名／地名で行う必要があります。（←重要）

これが質問の主旨にあっているか不明です。


都道府県別の郵便番号テーブルを使っても、『以下に掲載がない場合』、『次のビルを除く』、『地階・階層不明』などの文言があって面倒になる場合があったように記憶しています。

下のコードではA列に郵便番号を入力します。（例、160-0001）
有効な郵便番号であれば隣のセル(B列)に住所を表示します。（東京都新宿区片町）
住所に変換できなければ、そのまま表示します。

<**1>の行を削除すれば、丁目、番地号、補助住所等を続けて入力できるはずです。
ご参考に。(Excel2000です)



Sheet1で作成（Sheet1のコードウインドウに貼り付け）
↓
Private Sub Worksheet_Change(ByVal Target As Range)
　　If Target.Count = 1 Then '単一セルの入力の場合
　　　　If Target.Column = 1 And Target.Value <> "" Then '『Column=1』はA列の意味
　　　　　　Target.Offset(0, 1).Select
　　　　　　Target.Offset(0, 1).Value = Target.Value
　　　　　　SendKeys "{F2}"
　　　　　　SendKeys "{Convert}"
　　　　　　SendKeys "{Enter}"
　　　　　　SendKeys "{Enter}" '**1
　　　　End If
　　End If
End Sub

No.7 回答者： taisuke555 回答日時： 2002/11/16 03:02

回答を書いているうちに

＞都道府県別の郵便番号テーブルを使っても、『以下に掲載がない場合』、『次のビルを除く』、
＞『地階・階層不明』などの文言があって面倒になる場合があったように記憶しています。
という回答が載ってしまいました。
確かに、そういうのもありますが、新しい郵便番号で入力するにはこれ以外思いつきませんでした。
（新しい郵便番号でなくてよければこの限りではありません）
私のプログラムでは、『以下に掲載がない場合』の部分と、（）でくくられた部分は削除してあります。

nishi6さんへ
私のパソコンは、IME2000なのですが、回答の方法を試したのですが、
うまく変換されません。（変換モード=人名／地名で行いました）
何か他にも必要な設定があるのですか？（私が質問するのもおかしなものですが）
あとIME2000の新しい郵便番号になった時、郵便番号辞書（でいいのかな？）はアップグレード版がありますか？（２、３ヶ月遅れでいいのですが）
あれば、私の方法より楽そうなんで・・・

この回答へのお礼

皆様　ご回答ありがとうございました。

お礼日時：2002/12/06 23:07

No.6 回答者： taisuke555 回答日時： 2002/11/16 01:35

郵便番号って毎月変更があるんですよね～

私はVBですが、郵政のホームページ（＃５さんと同じ）から
CSV形式のデータをDownLoadし、データベース化して使っています。
毎月更新するのも面倒なので、２、３ヶ月に１度、その分の差分データを
更新します。（その時、郵便番号をチェックし、変更のあった郵便番号は
チェックをいれて（自動更新は無理）手入力で住所の更新をしています。

一応VBAでつくってみたので興味があれば補足してください。
（１）全県データ(CSV)→データベース化
（２）A1に郵便番号入力→B1に住所表示
まではつくりました。（差分データ更新の方はつくっていません）

その時には、
１．[Alt]+[F11]でVisialBasicEditerへ移り
　　ツール→参照設定の中に「Microsoft DAO 3.51 Object Library」
　　が存在するか確認してください（私のVBAはこれを使用していますのでないと出来ません）
２．http://www.post.yusei.go.jp/newnumber/down_2.htmからDownLoadして
　　Ken_All.zipを展開したKen_All.csvのフォルダとデータベースを保存する
　　フォルダの場所
以上を確認の上、補足してください。

No.4 回答者： misatoanna 回答日時： 2002/11/15 22:54

お望みのステップを固持されるのでしたら、エクセルの一般関数ではできません。

とりあえずマクロに頼ってみるべきでしょう。

えも、下記のような逆発想が認められるなら可能ですよね。

１．A1 に関数を入力します。　→ =PHONETIC(B1)
２．B1 に郵便番号を入力し、住所に変換します。

IMEの郵便番号辞書(郵便番号変換ウィザードとは違います)が必要ですが、これで
A1 に郵便番号、B1 に住所――の形になります。

No.3 回答者： imogasi 回答日時： 2002/11/15 20:18

（１）郵便番号辞書の仕組み（ファイルの項目フォーマット）を知る。

（２）または自分でファイルの仕組みを作り、その形式の
郵便番号辞書を作る。ご近所の分なら可能（歯医者に来る
患者の住所とか、自店の顧客の住所録用とかに限れば可能でしょう。）
（３）（１）または（２）を検索する（郵便番号を指定した時の住所を探す）プログラムを自作する。（１）に対してはソフトが見つかっても、自分のプログラム内で使える形式でないとダメです。使えるソフトは通常バッチ処理用であるので、「入れると自動的に」入りません。
＊（１）に付いて、それを行ってくれるものの１つが、郵便番号ウイザード（アドイン）です。
（４）そしてセルの値が変わったとき等のきっかけを捉えるプログラムのしかけ（ＶＢＡ）を使って、作ったプログラムを埋めこむ。
（５）数百ぐらいなら、郵便番号（１列）と住所（原則丁目までですが）（１列）の対応表を計２列に入力し、ＶｌｏｏｌＵＰ関数を使えば可能だと思います。
このレベルのことを、考えておられるのですか？

No.2 回答者： taknt 回答日時： 2002/11/15 19:54

まず 郵便番号のデータをダウンロードしてきます。

http://www.post.yusei.go.jp/newnumber/down_2.htm
Sheet1に A列に郵便番号を入れて、B列に住所を入れます。

で、住所が出るＢ１には、
=IF(ISNA(MATCH(A1,シート1!A:A,0)),"",INDEX(Sheet1!B:B,MATCH(A1,シート1!A:A,0)))

といれたら、いいのかな？
未確認です。
ま、関数は、こういうのを使うといけると思うので、詳細は調べてみてください。

No.1 回答者： Methyln 回答日時： 2002/11/15 19:11

郵便番号と住所のデータをどこかに用意しておかないと、無理だと思いますが...

マクロでA1にデータを入力を検知し、その後A1に入った郵便番号から
データにアクセスし、一致した住所をB1に入れる
という仕組みを作ればできなくはないですが...

この回答への補足

・・・・
65536を超えませんか？
それは考えたんですがね・・・

補足日時：2002/11/15 22:59