Excelで住所録を作成

質問

Excelで住所録を作成でA１に郵便番号を入力するとB1に住所が表示される方法有りますか、お願いします。

回答No.4

imogasi · ベストアンサー

（１）１件ずつ郵便番号を入力しつつ、住所に変換する方法
（２）一旦全員の郵便番号を全部セル（普通は同一列）に入力し、
それから、郵便番号辞書を使い、ソフトの力を借りて、郵便番号を全員に一斉に振る方法
（１）
（Ａ）Ａ１に=LEFT(PHONETIC(B2),8)という関数を入れてＡ２以下に式を複写します。
（Ｂ）ＩＭＥの変換モードを地名・人名を指定します
（Ｃ）郵便番号を全角で入力し、変換キーをおし、地名を選択します。
（２）
下記の後半を参照。
http://www.excel.studio-kazu.jp/tips/0028/

お礼

ワードと同じ感覚で出来ます、助かりました。

回答No.5

Wendy02

こんばんは。
MS-IMEに限定されますが、プロパティで、郵便番号辞書にチェックを入れておき、住所を入力するシートに以下のコードを貼り付けます。このコードは、遅いし、あまり関心できないコードですが、今となっては、こんなものしかないかなって思っています。

'-----------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
　'範囲は、A2～A100 に郵便番号を入力する場合
　If Intersect(Target, Range("A2:A100")) Is Nothing Then Exit Sub
　　　Application.ScreenUpdating = False
　　　With Target.Offset(0, 1).Validation
　　　.Delete
　　　.Add Type:=xlValidateInputOnly
　　　.IMEMode = xlIMEModeHiragana
　　　End With
　　 If Target Like "###-####" Then
　　　　Target.Offset(0, 1).Select
　　　　SendKeys Target.Value
　　　　SendKeys "{ }"
　　　　SendKeys "{ENTER}{ENTER}"
　　　　SendKeys "{Left}"
　　　End If
　　　Application.ScreenUpdating = True
End Sub
'-----------------------------------------------------

なお、数年前のMS配布の郵便番号変換ウィザードをお持ちならば、ユーザー定義関数が出来ます。

回答No.3

odessa7

お考えのような動作は、エクセルでは難しいかもしれません。郵便番号のデータベースを備えるなら別ですが。

　私の場合は、逆にA1に住所を入力し（IMEの郵便番号辞書をオンにし、郵便番号から住所を入力します。）B1にPHONETIC関数を使って郵便番号を表示させる方法を使います。

=LEFT(PHONETIC(A1),8)

　このような方法ではだめでしょうか？

お礼

良いですね、簡単に出来ました。

回答No.2

naop75

こんにちは。

こちらを参考にしてみて下さい。

参考URL：

http://kokoro.kir.jp/excel/yubin.html

お礼

良い勉強をさせて戴きました。

回答No.1

hf_minami

アドインで郵便番号変換ウィザードを入れておく必要が有ります

Ａ１セルの書式設定を、「郵便番号」に設定し入力し、
「ツール」→「ウィザード」→「郵便番号変換」を選択します
後は手順どおりで好きなセルに住所（丁目まで）が入力されますよ

ちなみに、新しいウィザードはＥＸＣＥＬのＣＤかＯＦＦＩＣＥのダウンロードで入手できます
参考まで

参考URL：

http://office.microsoft.com/ja-jp/officeupdate/default.aspx?displaylang=JA

お礼

大変参考に成りました。