- ベストアンサー
エクセルで郵便番号を入力したら、別なセルに住所を応答させたい
ka_na_deの回答
- ka_na_de
- ベストアンサー率56% (162/286)
もとのオリジナルのコードに一旦戻って、 Target.Column <> 1 を Target.Address <> "$B$7" に変更し、 ２箇所の Target.Offset(0, 1) を Range("D7") に変更し、 最後に SendKeys "{LEFT}" SendKeys "{DOWN}" を取り除く。 これで試してみてください。 B7に入力し、D7に出力する場合です。
関連するQ&A
- 郵便番号から住所を自動表示
お世話になります。 Excel 2016を使用して、A列のセルに郵便番号を入力すると、B列のセルにその住所を表示するようにしたいと思います。Webから検索した次のようなVBAをSheet1のシートモジュールとして貼り付けました。 Private Sub Worksheet_Change(ByVal Target As Range) '範囲は、A2～A100 に郵便番号を入力する場合 If Intersect(Target, Range("A2:A100")) Is Nothing Then Exit Sub If Target.Count > 1 Then Exit Sub Application.ScreenUpdating = False Application.EnableEvents = 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.EnableEvents = True Application.ScreenUpdating = True End Sub この結果自分の住所の郵便番号の場合はうまく表示されました。そのほかの番号の場合は、 瞬間的に何か表示されたような気はしますが、結果的には列に入力した番号が表示されます。 またうまく表示されないB列の郵便番号を変換キーで住所に変換する作業を3～4回繰り返した後にこの番号をA列に入力するとB列にこの住所が表示されます。「学習した番号については、うまくいく」ような感じです。 何か解決する方法はないでしょうか。 よろしく願いします。
- ベストアンサー
- Excel（エクセル）
- エクセルで郵便番号を入力すると、別なセルに住所が表示されるようにしたい
先ほども投稿したのですが、別なジャンルに張っていたようですので再投稿させていただきます。 恐縮ですが、ＩＭＥの範疇になるのかもしれませんが、 エクセルで、例えばＡ１に123456と入力したら、Ｂ１に それに対応する住所が表示されるようにしたい。。 Excel アドイン: 郵便番号変換ウィザードがあるのは知っていますが、 これを利用しないで、ＩＭＥの郵便番号変換機能を利用して、関数で、あるいはＶＢＡで表示できるようにしたいのですが、可能でしょうか?? （ＩＭＥのプロパティの辞書/学習は「郵便番号辞書」にチェックはついています。為念） よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 郵便番号を入れると住所が出るマクロを組みたい
A列に郵便番号を入れると、（例：123-4567）B列に住所が出るマクロを組みたいのですが なかなかできません。例えばA１セルに入力するとB１セルに。A4セルに入力するとB４セルに 出るといった感じです。インターネットで調べながら、 Option Explicit ' ワークシートのChangeイベント記述 Private Sub Worksheet_Change(ByVal Target As Range) Dim xlAPP As Application ' 郵便番号セル以外では動作させない If Target.Address <> "$A$1" Then Exit Sub ' (1) ' 3桁以上の郵便番号があり、住所がブランクの場合のみ住所を変換させる If ((Len(Cells(1, 1).Value) >= 3) And (Cells(1, 2).Value = "")) Then ' (2) Set xlAPP = Application xlAPP.EnableEvents = False ' (3) ' 郵便番号を全角変換し住所に転記 Cells(1, 2).Value = StrConv(Target.Value, vbWide) ' (4) ' 住所のセルを選択 Cells(1, 2).Select ' (5) ' F2 → Shift+Home → F13 を擬装入力する SendKeys "{F2}", True ' 編集モード ' (6) SendKeys "+{HOME}", True ' 文字列全体を選択 ' (7) SendKeys "{F13}", True ' 再変換(MS-IME) ' (8) xlAPP.EnableEvents = True End If End Sub というコードを作ったのですが、これはA1セルしか対応しておらず、A列全体で対応できません。 何か方法があればご教授いただけたら幸いです。
- ベストアンサー
- オフィス系ソフト
- 郵便番号→住所にしたい（少し特殊）
郵便番号をうって変換して住所にしたいのですが、 ＩＭＥの郵便番号辞書ですと 000-0000で変換すると、住所のみになります。 したいのは 000-000で変換すると 000-0000 住所 といった風にしたいのです。 つまりせっかく入力した郵便番号を無駄にしたくないわけです。 このような辞書、もしくはソフトをご存知の方いおられないですか？
- 締切済み
- オフィス系ソフト
- 郵便番号を入力して、住所を入力したいです。
困っています。 Windows10を使用していています。 エクセルで郵便番号を入力して、住所に変換したいのですができません。IMEのプロパティから、詳細設定で郵便番号辞書には元々設定されていたのですが、入力出来ず困っています。どなたかアドバイスお願いします。 ※OKWAVEより補足：「富士通FMV」についての質問です。
- ベストアンサー
- Windows 10
- 郵便番号を入力→住所へ
Excel97の使用を前提に質問させて頂きます。 新規作成でA列に郵便番号を入力すると、B列に自動的に住所が表示される 上記の事がしたく、過去の投稿を色々と読ませて頂きましたが、いまいち意味がよくわかりません。 過去に投稿している方で下記のような質問をしている方がいました。 ＝＝＝ここから＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ 「EXCELの郵便番号変換ツール」のことは存じております。この機能を使うと、まとめて 入力してある場合には、一括変換できるのですが全く新規に、お客様の名簿を見ながら 入力するので、その都度、ウィザードを使って変換しながら進めるのは面倒ですし、 １件入力するごとに、正しい郵便番号と住所が表示されているかを確認したいのです。 1.郵便番号を入力 2.隣りのセルに住所が自動的に表示される 3.続きの住所を入力 のような使い方は、Excelで出来ますでしょうか？ IMEで「人名地名辞書」を使うと、郵便番号を２度入力するようになって、誤りが発生 しやすい気がしてます。（1回目は、郵便番号の列用、２回目は住所列で変換用） できれば１回入力するだけで自動表示させたいのでもしそのような使い方をされて いる方がいらしたら教えてくださいませ。 回答→ IMEで「人名地名辞書」モードにして住所は郵便番号変換します。その際、郵便番号の セル（恐らく住所を入力するセルの左隣？）に以下の関数を仕込んでおいたら如何でしょう？ =LEFT(ASC(PHONETIC(★)),8) ＊★は住所のセル番号 ＝＝＝ここまで＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝ Excelについては本当に初心者で関数の入力の仕方もわかりません。 こんな状態なのでもっと砕いて詳しく教えていただけないでしょうか？ お手数と思いますが宜しくお願い致します。 使用PC Windows98 IBM Aptiva
- ベストアンサー
- オフィス系ソフト
- 住所に変換されない郵便番号
印刷物に書いてある郵便番号を入力しても、住所に変換できないものがあるみたいです。IME2003で使用している郵便番号辞書は最新の物です。 例えば「日経PC21」は発売が「日経出版社センター」となっており、同センターの郵便番号は「108-8646」ですが、これは住所に変換できません。ちなみに同センターの住所は「東京都港区白金」です。これを「ゆうびんホームページの番号検索」で調べると「108-0072」になります。「108-0072」はちゃんと住所に変換できます。先の「108-8646」なる郵便番号は存在してさえいないようなのです。 IME2003の最新版郵便番号辞書でも変換されない郵便番号というのも変なものですが、変換されない郵便番号「108-8646」は大量の郵便物が届くための事業所用の特定郵便番号とでもいうものなのでしょうか。 ここで、何軒かそういう郵便番号に出くわしてしまい、IMEがおかしくなっちゃったのかなと思った次第ですが、そういった郵便番号は「ゆうびんホームページの番号検索」で調べても出てこないので、変換できない郵便番号の意味というか、これについてなにかお分かりの方は教えてください。変換できない郵便番号が気分的に面白くないです（笑）
- ベストアンサー
- オフィス系ソフト
- 郵便番号→住所入力
お尋ねします。過去の質問で色々調べてチャレンジしてますが、どうもうまく行きません！ご指導願います。エクセル2002です。IME2002です。A1に郵便番号入力、B1に自動的に住所入力の方法を教えてください。 IMEは、人名・地名にしてます。A1のセルには=LEFT(ASC(PHONETIC(B1)),8) と関数を入力しております。 A1に郵便番号を入力して変換すると、確かに住所は出てきますが、エンターキーで、そのままA1になります。 郵便番号ウィザードもありますが、これも上手く行きません。 どうしたら出来るのか、ご指導願います。
- ベストアンサー
- その他(ソフトウェア)
- 【Excel】郵便番号を入力し、隣りのセルに住所を表示したい
「EXCELの郵便番号変換ツール」のことは存じております。 この機能を使うと、まとめて入力してある場合には、一括変換できるのですが 全く新規に、お客様の名簿を見ながら入力するので、 その都度、ウィザードを使って変換しながら進めるのは面倒ですし、 １件入力するごとに、正しい郵便番号と住所が表示されているかを 確認したいのです。 1.郵便番号を入力 2.隣りのセルに住所が自動的に表示される 3.続きの住所を入力 のような使い方は、Excelで出来ますでしょうか？ IMEで「人名地名辞書」を使うと、 郵便番号を２度入力するようになって、誤りが発生しやすい気がしてます。 （1回目は、郵便番号の列用、２回目は住所列で変換用） できれば１回入力するだけで自動表示させたいので もしそのような使い方をされている方がいらしたら教えてくださいませ。 本人、出来たような。。。出来なかったようなうろ覚えでして、 質問させていただきました。 よろしくお願い申し上げます。
- ベストアンサー
- オフィス系ソフト
- ＥＣＥＬ２００７ 郵便番号を入力して住所を出したい
ＥＸＣＥＬ２００７です よろしくお願いします。 ＩＭＥの変換モードを人名/地名にして郵便番号を入力して スペースを押しても 郵便番号から住所になりません。 気になるのはＡＴＯＫ１６が入っているからかなど 原因がわかりません 郵便番号から住所にする方法を 細かく教えてください。 よろしくお願いします。
- 締切済み
- オフィス系ソフト