よろしくお願いします。

質問

よろしくお願いします。

Excel2003／Windowsxp環境です。

＜作業内容＞
DtAdsというシートのJ列に郵便番号をK列に住所を入れます。

郵便番号を入れたら、K列に地名までの住所が同時に入力され、
かつ、その後、F2キーで住所の続き（番地等）を入力したいです。

今から手をつけますので、全くコードも無く、申し訳ありません。

＜お願い＞
VBAでIMEの変換キーを地名／人名にするコードを教えていただけませんか？
かなり厚かましいですが、上記作業内容が可能なサンプルコードをお教えいただけるともっと嬉しいです。

本日中に完成しないといけないので、自分でも今からいたします。

どうしても無理な場合は、フリーのソフトを発見しましたので、
それを使うことも視野に入れております。

勝手ばかり書いて申し訳ありません。
よろしくお願いいたします。

回答No.3

tom04

No．1です！
たびたびごめんなさい。

前回は希望とはかけ離れていたみたいでごめんなさい。

↓のURLから入力支援ソフトが無料でダウンロードできるみたいです。
Excelの郵便番号ウィザードに近いかたちですが、
操作がワンクリックで可能みたいです。

http://www.vector.co.jp/soft/winnt/personal/se447422.html

J列に郵便番号を入力後、K列をアクティブにし、ワンクリックで大字まで住所が表示されるみたいです。
その後番地を入力して完了！という感じです。

お役に立つかどうか判りませんが、
覗かれてみてはどうでしょうか？

どうも何度も失礼しました。m(__)m

お礼

何度もありがとうございました。

そろそろ、家に帰りたいので、マクロで組むのはあきらめて、
たった今、４台のPCに『kt電話郵便アドイン』を入れました。
Excel2007のマシンも入っていましたので、こちらの選択となりました。
参考までに、
URL：http://www.h3.dion.ne.jp/~sakatsu/TelPost.htm

お教えいただいた『郵便住所入力支援 for Excel』を今使わせていただき、
上記のものより、簡単でよかったなぁ・・・と、残念がっております。

こんな短期間でお返事いただけたこと、しかも２回も
すごく嬉しかったです。
明日なのに、どうしよう・・・とかなりあせっておりましたが、
何だか、一緒にお仕事していただいているみたいで、すごく安心できました。

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

明日、業務終了後、自分でマクロも組んでみようと思います。
予定を見据えた仕事をしないといけないと、反省いたしました。
では、3時までには帰ります！！

回答No.2

某HN クロメート(Chromate)（@CoalTar）

アドインはダウンロードしてインストールしないと使えませんので紹介

Excel アドイン: 郵便番号変換ウィザード (2000-2007 ユーザー用)
http://www.microsoft.com/downloads/details.aspx?familyid=6f6af8ef-b9dd-4e21-9e63-af4a0ff4e7ce&displaylang=ja
と
Office 更新プログラム: 郵便番号辞書 (2009 年 11 月版)
http://www.microsoft.com/downloads/details.aspx?familyid=45192822-FBA7-49E6-B220-09BB32250EB3&displaylang=ja
おまけで
Microsoft IME 2003 郵便番号辞書更新 2008 年 11 月版
http://www.microsoft.com/downloads/details.aspx?FamilyID=844e8bb9-8d43-451b-9057-00c493240733&DisplayLang=ja
参考だけ

お礼

丁寧にたくさんリンクをいただき、ありがとうございました。
言葉足らずなため、お手を取らせて申し訳ありませんでした。

回答No.1

tom04

こんばんは！
単純にIMEの郵便番号辞書を使ってはダメですか？

J1・K1セルから表示させる場合ですが、
J1セルに
=LEFT(ASC(PHONETIC(K1)),8)
としてオートフィルでずぃ～～～！っと下へコピーします。

そして、入力はK列に行います。
日本語入力をONにして、ハイフン付で7桁の郵便番号を入力し、変換するとK列は大字まで表示されると思いますので、続けて番地等を入力すればOKかと思います。

他の方法としてメニュー　→　ツール　→　郵便番号変換　があると思います。
（メニュー　→　ツール　→　アドイン　から「郵便番号変換ウィザード」にチェックを入れておく必要があります）

J列にとりあえず郵便番号をハイフン付で入力します。

郵便番号変換ウィザード画面の　1/3　で「郵便番号から・・」を選択して　次へ
郵便番号データのセル範囲　→　J列を選択
住所を出力するセル範囲　　→　K列を選択
→　完了

私個人的には最初に書いた関数での方法が操作し易いと思います。
（個々の行で番地等の編集が終了して、次の行へ進むことが出来るからです）

以上、参考になれば幸いですが
他に良い方法があれば読み流してくださいね。m(__)m

お礼

ありがとうございました。
大切な情報が１つ抜けていました。
私が入力するのではなく、複数の方に入力していただくので、IMEの変換機能を利用して、J列に郵便番号を入力したときに、自動でK列に住所が出力され、それを追加で編集するということです。言葉足らずで申し訳ありません。
なお、今、少しいじってみて、K列に郵便番号を入れてもらって変換、同時にK列にデータを入れ、変換したときにJ列に郵便番号が入り、同時に値コピーをさせて、追加編集が反映しないようにする方が簡単かなと考えました
すみません、もう少しやってみます。