エクセル ２００２ 郵便番号から住所を入力する方法を教えてください。

質問

windows XP Excel 2002 を使用しています.
A1に郵便番号を入力すると、即　B１に住所が入力されるようにしたのですが、可能でしょうか。

御指導宜しくお願い致します。

回答No.5

cmc32000 · ベストアンサー

再度の質問の回答です。
フリガナを半角にするには
=ASC(PHONETIC(B1)) とすれば良いでしょう。

お礼

cmc32000様
再度の御回答ありがとうございました。

考えていましたように、完璧に出来ました。

お蔭様で、　JIS　NUMBERSTRING　も覚えることが出来ました。

御礼が遅くなりました事、御詫び申し上げます。

本当にありがとうございました。

回答No.4

Wendy02

こんにちは。

ご質問者のoguno様は、マクロをおやりになるようなので、コードを示しておきます。

まず、IME のプロパティの「辞書/学習」のシステム辞書の
「Microsoft IME 郵便番号辞書」にチェックが入れてあることが条件です。

入力するシートのシートタブを右クリックして、コードの表示で、以下を貼り付けて、
ワークシートに戻れば、設定が終わっています。なお、下位Version(Excel 2000)では、このマクロは、うまく行かないことがありますので、その場合は、違うマクロが必要になります。

>A1に入る郵便番号を半角にするには、どのように設定すればよいのか、
一般的には、IMEのプロパティで、オートコレクト[タブ]で、数字は、半角指定とか、前回の変換結果に従う、としておくのが早いような気がします。ともかく、IMEを使って郵便番号から住所が変換できれば、以下のマクロは稼動するはずです。

-------------------------------------------------------
シートモジュール
-------------------------------------------------------

Private Sub Worksheet_Change(ByVal Target As Range)
'IMEは、MS-IME に限る
　If Target.Column <> 1 Then Exit Sub　'A列でなかったら、取りやめ
　If Target.Rows.Count > 1 Then Exit Sub '1行以上選んだ、取りやめ
　If Len(Target.Value) <> 8 Then Exit Sub '8文字なかったら、取りやめ
　If InStr(Target.Value, "-") = 0 Then Exit Sub '-が入っていること
　　　Application.ScreenUpdating = False
　With Target.Offset(0, 1).Validation　'入力規則
　　　.Delete
　　　.Add Type:=xlValidateInputOnly
　　　.IMEMode = xlIMEModeHiragana　'IME立ち上げ
　 End With
　　　　Application.EnableEvents = False
　　　　Target.Offset(0, 1).Select　'B列に入れる
　　　　Application.EnableEvents = True
　　　　SendKeys Target.Value '番号を入れる
　　　　SendKeys "{ }" 'スペース変換
　　　　SendKeys "{ENTER}"
　　　　SendKeys "{LEFT}"
　　　　SendKeys "{DOWN}"
settei:
　Application.ScreenUpdating = True
End Sub

お礼

Wendy02様
いつも、御指導いただきありがとうございます。

ご連絡が遅くなりました事、御詫び申し上げます。

回答No.3

cupang

マイクロソフトのページに「郵便番号変換ウィザード 」があります。
これをインストールすると
既に入力された　住所→郵便番号・郵便番号→住所が変換できます。
それも範囲指定できるので、たくさんの変換が簡単に一発で変換可能です。（参考URL）
ダウンロード・インストールをしたら、エクセルを開いて、『ツール』→『アドイン』を開いて『郵便番号ウィザード』にチェックを入れます。その後、『ツール』→『ウィザード』をクリックすると使用できます。郵便番号も「－」の有り無しを選択できるので便利です。

ちなみに、IME2003で郵便番号の辞書が平成15年時点らしいので、新しい郵便番号辞書をダウンロードすることをお勧めします。（市町村合併が多々ありましたよね。）

Office 更新プログラム: 郵便番号辞書 (2007 年 5 月版)
http://www.microsoft.com/downloads/details.aspx?FamilyId=45192822-FBA7-49E6-B220-09BB32250EB3&displaylang=ja

参考URL：

http://www.microsoft.com/downloads/details.aspx?familyid=6F6AF8EF-B9DD-4E21-9E63-AF4A0FF4E7CE&displaylang=ja

お礼

cupang様
御指導ありがとうございました。
また、アドレスのご紹介ありがとうございました。

ご連絡が遅くなりお詫び致します。

回答No.2

newbranch

郵便番号変換を行う別の方法として、エクセルのヘルプ画面から、MSのダウンロードに入り、郵便番号変換ソフトをダウンロードし、アドインする。アドインの一覧の郵便番号変換を使用できるようにチェックしたのち、住所録等のデータから、郵便番号から、住所への変換を選ぶか、またはその逆を選択し、夫々入力されているデータの入力範囲を指定すし、同時に出力範囲を指定すれば、郵便番号から住所または住所から郵便番号が出力されます。

お礼

newbranch様
御指導ありがとうございました。
ご連絡が遅くなりお詫び致します。

回答No.1

cmc32000

IMEの郵便番号辞書を有効にします。
これでB1に郵便番号を入れて変換すると、住所が出ます。
A1には、 =PHONETIC(B1) という式を入れます。これで、郵便番号が出ます。
B1に郵便番号を入れて変換するという形式で、質問の形式とは異なりますが、同じことができる最も簡単な方法です。

補足

cmc32000様
早速の御指導ありがとうございました。

●有難う御座います、変換出来ました。

●この時、A1に入る郵便番号を半角にするには、どのように設定すればよいのか、再度御指導御願い申し上げます。

●ウィザード方式は判っていたのですが、御指導いただきましたように即変換出来る方法が知りたかったので、感謝申し上げます。