B列に、郵便番号を 入力すると、郵便番号は、B列に、表示されたまま、Enterキィまたは、Tabキィを押すと、C列に、B列に対応する住所の文字列が、自動的に、表示させるように、設定をしたいのです。

環境的には、MS-IMEを使っているので、もちろん、郵便辞書機能は、ついています。

例えば、郵便番号を 入力し、変換するとセルに 住所が変換表示されるのは、わかるのですが、郵便番号も、生かしたまま、次の列のセルに、住所を 表示させたいのです。PHONETICのような関数あるいは、マクロなど、ありましたら、ぜひ、宜しくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

こんにちは



 以下のページがご参考になるのでは?

郵便番号変換ウィザード (Microsoft Excel 2000 用)
http://office.microsoft.com/worldwide/japan/down …

Access 97 & Excel 97 新7桁郵便番号対応キット
http://office.microsoft.com/worldwide/japan/down …

郵便番号辞書アップデート (2001 年 2 月版)
http://office.microsoft.com/worldwide/japan/down …

参考URL:http://office.microsoft.com/worldwide/japan/down …
    • good
    • 0
この回答へのお礼

早速のご返事ありがとうございます!
実は、連休中におたふくになってしまい、なかなか、お返事がかけなくて、すみませんでした。

郵便番号ウィザードは、アドレスがないみたいなのですが。。。。郵便番号辞書アップデートは、まだみてないので、ぜひ、そちらの方を見てみて、参考にさせていただきます。

Excel2000で、使用したいのです。
私の質問の仕方が悪かったようで、混乱させてしまったような気もします。

A列に、郵便番号を入力すると、A列に郵便番号、B列に住所が同時に表示されるように、したかったのですが、もしも、そちらの方もわかりましたら、ぜひ、教えてください。

お礼日時:2001/05/12 21:29

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aと関連する良く見られている質問

QEXCELの表、組[A列]:番号[B列] を 組[A列]:番号[行]に変換する方法

EXCELに
A列に組、B列に番号がそれぞれ反映されている表があります。
これを
A列に組、同行に番号が横並びに配置された状態に変更したいと考えております(添付画像)。

D列にはA列の組名を「重複なし」で貼り付けます。
このとき、E列~K列にどのような数式を入力すればよろしいでしょうか?
E1に入力する数式を教えていただけるとありがたいです。
何卒よろしくお願いいたします。

Aベストアンサー

こんばんは!

画像の配置だとE1セルに
=IF($D1="","",IFERROR(INDEX($B$1:$B$1000,SMALL(IF($A$1:$A$1000=$D1,ROW($A$1:$A$1000)),COLUMN(A1))),""))

配列数式になりますので、Ctrl+Shift+Enterで確定!
この画面からコピー&ペーストする場合は
上記数式をドラッグ&コピー → E1セルを選択 → 数式バー内に貼り付け →そのまま(編集可能なまま)
Ctrl+Shiftキーを押しながらEnterキーで確定!
数式の前後に{ }マークが入り配列数式になります。

最後にE1セルのフィルハンドルで列・行方向にずぃ~~~!っとフィル&コピーします。

こんな感じではどうでしょうか?m(_ _)m

Qエクセルで郵便番号を入力すると、別なセルに住所が表示されるようにしたい

先ほども投稿したのですが、別なジャンルに張っていたようですので再投稿させていただきます。

恐縮ですが、IMEの範疇になるのかもしれませんが、
エクセルで、例えばA1に123456と入力したら、B1に
それに対応する住所が表示されるようにしたい。。

Excel アドイン: 郵便番号変換ウィザードがあるのは知っていますが、
これを利用しないで、IMEの郵便番号変換機能を利用して、関数で、あるいはVBAで表示できるようにしたいのですが、可能でしょうか??
(IMEのプロパティの辞書/学習は「郵便番号辞書」にチェックはついています。為念)

よろしくお願いします。

Aベストアンサー

こんばんは。

別の方のスレですが、以下に私のコードを書きました。
VBAは、私のしかありません。(理屈を考えたのは私ではありませんが、私のオリジナルのはずです。)

Excel 2002 郵便番号から住所を入力する方法を教えてください。
http://oshiete1.goo.ne.jp/kotaeru.php3?qid=3191662

ただ、Excel2000以下ですと、少しコードを変えなくてはなりません。(なぜ、バージョンの違いがあるのか、私には良く分かりません。)

また、『郵便番号変換ウィザード』の古いものをお持ちでしたら、このエンジンだけを利用して、郵便番号変換関数が出来上がります。郵便番号 <->住所 の双方向が可能になります。

(たぶん、そんなことを知っている人はいないから、新しくしてしまったでしょうね。MSではないオリジナル・メーカーが、そのような使い方をされるのを嫌ったためです。)

QExcel2013 VBA A列とB列の文字をA列とB列とC列に移動させる方法

A列とB列に文字が入っているのですが、下記のようにA列とB列とC列に文字を移動させたいです。
(A列の数字は必ず奇数のA列に入っています。)
VBAのコードを教えて下さい。

例えば
A1 1  B1 cat
A2 空白 B2 猫
A3 空白 B3 dog
A4 空白 B4 犬
A5 2  B5 whale
A6 空白 B6 クジラ
A7 3  B7 rabbit
A8 空白 B8 ウサギ

とデータがある場合

A1 1  B1 cat  C1 猫
A2 空白 B2 dog  C2 犬
A3 2  B3 whale  C3 クジラ
A4 3  B4 rabbit C4 ウサギ

としたいです。

実際、データは、A5196まであります。

Aベストアンサー

No.1です。

>実際、データは、A5196まであります。

前回のコードは一つずつカット&ペーストしていますので
かなりの時間を要すると思います。
↓のコードに変更してみてください。

Sub Sample2()
Dim lastRow As Long
lastRow = Cells(Rows.Count, "B").End(xlUp).Row
Application.ScreenUpdating = False
With Range(Cells(1, "C"), Cells(lastRow, "C"))
.Formula = "=IF(MOD(ROW(),2)=1,B2,"""")"
.Value = .Value
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
Application.ScreenUpdating = True
MsgBox "完了"
End Sub

少しは短縮できると思います。m(_ _)m

No.1です。

>実際、データは、A5196まであります。

前回のコードは一つずつカット&ペーストしていますので
かなりの時間を要すると思います。
↓のコードに変更してみてください。

Sub Sample2()
Dim lastRow As Long
lastRow = Cells(Rows.Count, "B").End(xlUp).Row
Application.ScreenUpdating = False
With Range(Cells(1, "C"), Cells(lastRow, "C"))
.Formula = "=IF(MOD(ROW(),2)=1,B2,"""")"
.Value = .Value
.SpecialCells(xlCellTypeB...続きを読む

Q【Excel】郵便番号を入力し、隣りのセルに住所を表示したい

「EXCELの郵便番号変換ツール」のことは存じております。
この機能を使うと、まとめて入力してある場合には、一括変換できるのですが
全く新規に、お客様の名簿を見ながら入力するので、
その都度、ウィザードを使って変換しながら進めるのは面倒ですし、
1件入力するごとに、正しい郵便番号と住所が表示されているかを
確認したいのです。

1.郵便番号を入力
2.隣りのセルに住所が自動的に表示される
3.続きの住所を入力

のような使い方は、Excelで出来ますでしょうか?

IMEで「人名地名辞書」を使うと、
郵便番号を2度入力するようになって、誤りが発生しやすい気がしてます。
(1回目は、郵便番号の列用、2回目は住所列で変換用)

できれば1回入力するだけで自動表示させたいので
もしそのような使い方をされている方がいらしたら教えてくださいませ。

本人、出来たような。。。出来なかったようなうろ覚えでして、
質問させていただきました。
よろしくお願い申し上げます。

Aベストアンサー

IMEで「人名地名辞書」モードにして
住所は郵便番号変換します。その際、
郵便番号のセル(恐らく住所を入力するセルの左隣?)
に以下の関数を仕込んでおいたら如何でしょう?

=LEFT(ASC(PHONETIC(★)),8)  
*★は住所のセル番号

Q行のデータ(a列b列c列)をd列に表示したい

a1、b1、c1のセルに入力したデータをd1セルに表示したい。可能でしょうか。一例「a1セルに1と入力、b1セルに2と入力、c1セルに3と入力しd1セルに123と表示する」

Aベストアンサー

d1セルに =a1&b1&c1

エクセルですよね?


このカテゴリの人気Q&Aランキング

おすすめ情報