EXCELで郵便番号を入力すると住所を表示するようにしたい

IMEの機能のみを使った住所入力を作ってみました。　　　Ａ　　　　Ｂ　　　　　　　　　　　　　　　Ｃ　　　　　　Ｄ　　　　Ｅ
１　郵便番号　郵便番号入力　　　　　　　　　　補助住所入力　都道府県　市町村
２　047-0028　北海道小樽市相生町　　　　　　　４－４－４　　北海道　　小樽市相生町
３　334-0001　埼玉県鳩ヶ谷市桜町　　　　　　　１－２　　　　埼玉県　　鳩ヶ谷市桜町
　　　：　　　　　　　　　　：
９　602-0001　京都府京都市上京区竹園町　　　　大マンション　京都府　　京都市上京区竹園町

上のように
　　Ａ列　郵便番号表示（算式）
　　Ｂ列　郵便番号入力
　　Ｃ列　補助住所入力
　　Ｄ列　都道府県表示（算式）
　　Ｅ列　市町村表示　（算式）
としてみます。Ｂ列に郵便番号を入力、Ｃ列には補助住所を入力します。

郵便番号は、IMEをONの状態（日本語入力オン）で全角で『０４７－００２８』のように入力して変換します。

A2には　式　=IF(NOT(ISERROR(PHONETIC(B2))),ASC(PHONETIC(B2)),"")　をセット。
D2には　式　=LEFT(B2,MAX(MIN(FIND({"都","道","府","県"},B2&"都道府県")),3))　をセット。
E2には　式　=MID(B2,MAX(MIN(FIND({"都","道","府","県"},B2&"都道府県")),3)+1,1000)　をセット。
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
以前の回答から上の方法で試してみたのですが、
この関数で郵便番号‐（ハイフン）なし、
市町村の後に番地まで同じセルで表示させる事は可能ですか。

できなかったら、他にうまくいく方法はありませんか？
詳しくないので、分かりやすく解説していただくと助かります。

No.3 ベストアンサー 回答者： noname#29107 回答日時： 2004/04/03 04:58

意図を間違えて理解しているかもしれませんが、

A2の式　=SUBSTITUTE(IF(NOT(ISERROR(PHONETIC(B2))),ASC(PHONETIC(B2)),""),"-","")
E2の式　=MID(B2,MAX(MIN(FIND({"都","道","府","県"},B2&"都道府県")),3)+1,1000)&C2

でどうでしょう？

この回答への補足

A2の式で上手くいっていたのですが、
北海道で
北海道札幌市東区北９条東－－－0600909
北海道札幌市東区北７条東－－－0650007条東

と7桁のあとに文字が残ってしまうものが出てきました。
７条東を七条東とすれば表示されないのですが、
全角数字で入力したいので、なにか良い方法はありませんか？

補足日時：2004/04/04 01:50

この回答へのお礼

分かりにくい質問なのに、早々の回答ありがとうございます。
A2の式は上手くいったのですが、
E2の方が私の使い方が悪いのか上手くいかず、
NO.2の方の方法でさせていただきました。

お礼日時：2004/04/03 17:13

No.4 回答者： noname#29107 回答日時： 2004/04/04 08:05

#3の補足の件ですが、

＞北海道札幌市東区北７条東－－－0650007条東
該当セルで、書式=>ふりがな=>表示/非表示で、正しく「よみ」が郵便番号だけ入力されているか確かめて下さい。

それにしても、「よみ」に漢字が出力されるというのは、理解できません。
実際に入力した計算式を、貼り付けてもらえますか？

No.2 回答者： makoma 回答日時： 2004/04/02 21:23

市町村の後に番地まで同じセルに表示させる方法としては

F2　式　=CONCATENATE(E2,C2)　と入れてあげれば出来ます。
その際、E2列が表示されてしまうのが邪魔でしたら、E列を表示しないように(列幅0)に設定されてはいかがでしょうか。

この回答へのお礼

分かりにくい質問なのに、早々の回答ありがとうございます。
関数使わせていただきできました。
列幅0に設定する技まで教えていただき
とても参考になりました。

お礼日時：2004/04/03 17:15

No.1 回答者： S-Fuji 回答日時： 2004/04/02 20:46

　IMEではなく、Excelのアドインを使うと、ハイフォン入りでもなしでも郵便番号と住所の相互変換が可能です。

http://www.microsoft.com/downloads/details.aspx? …

市町村以降の番地ですが、郵便番号にはそこまで規定されていないので、手入力する必要があります。

参考URL：http://www.microsoft.com/downloads/details.aspx? …

この回答へのお礼

早々の回答ありがとうございます。
ちょっと難しそうでしたので、今回は
関数を貼り付けて使わせていただきました。

お礼日時：2004/04/03 17:09