ベストアンサー

郵便番号

2002/11/15 19:06

エクセルで・・・ A１に郵便番号を入れると自動的にB1に住所を入力するような方法ってありませんか？ ※B１に郵便番号を入れて変換（IMEの機能？） ※郵便番号変換ウィザードを使う ※うえの２つをマクロ化する以上の３（２）つは除く

daisuke-123
お礼率31% (226/714)

オフィス系ソフト
回答数7
ありがとう数3

みんなの回答 （7）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

nishi6
ベストアンサー率67% (869/1280)

2002/11/16 01:12 回答No.5

マクロを完全否定ではない？下のコードは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

ログインすると、全ての回答が全文表示されます。

その他の回答 (6)

taisuke555
ベストアンサー率55% (132/236)

2002/11/16 03:02 回答No.7

回答を書いているうちに＞都道府県別の郵便番号テーブルを使っても、『以下に掲載がない場合』、『次のビルを除く』、＞『地階・階層不明』などの文言があって面倒になる場合があったように記憶しています。という回答が載ってしまいました。確かに、そういうのもありますが、新しい郵便番号で入力するにはこれ以外思いつきませんでした。（新しい郵便番号でなくてよければこの限りではありません）私のプログラムでは、『以下に掲載がない場合』の部分と、（）でくくられた部分は削除してあります。 nishi6さんへ私のパソコンは、IME2000なのですが、回答の方法を試したのですが、うまく変換されません。（変換モード=人名／地名で行いました）何か他にも必要な設定があるのですか？（私が質問するのもおかしなものですが）あとIME2000の新しい郵便番号になった時、郵便番号辞書（でいいのかな？）はアップグレード版がありますか？（２、３ヶ月遅れでいいのですが）あれば、私の方法より楽そうなんで・・・

質問者

お礼 2002/12/06 23:07

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

ログインすると、全ての回答が全文表示されます。

taisuke555
ベストアンサー率55% (132/236)

2002/11/16 01:35 回答No.6

郵便番号って毎月変更があるんですよね～私は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のフォルダとデータベースを保存する　　フォルダの場所以上を確認の上、補足してください。

ログインすると、全ての回答が全文表示されます。

misatoanna
ベストアンサー率58% (528/896)

2002/11/15 22:54 回答No.4

お望みのステップを固持されるのでしたら、エクセルの一般関数ではできません。とりあえずマクロに頼ってみるべきでしょう。えも、下記のような逆発想が認められるなら可能ですよね。１．A1 に関数を入力します。　→ =PHONETIC(B1) ２．B1 に郵便番号を入力し、住所に変換します。 IMEの郵便番号辞書(郵便番号変換ウィザードとは違います)が必要ですが、これで A1 に郵便番号、B1 に住所――の形になります。

ログインすると、全ての回答が全文表示されます。

imogasi
ベストアンサー率27% (4737/17070)

2002/11/15 20:18 回答No.3

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

ログインすると、全ての回答が全文表示されます。

taknt
ベストアンサー率19% (1556/7783)

2002/11/15 19:54 回答No.2

まず郵便番号のデータをダウンロードしてきます。 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))) といれたら、いいのかな？未確認です。ま、関数は、こういうのを使うといけると思うので、詳細は調べてみてください。

ログインすると、全ての回答が全文表示されます。