質問: 郵便番号 エクセルで・・・ a1に郵便番号を入れると自動的にb1に住所を入力するような方法ってありませんか? ※b1に郵便番号を入れて変換(imeの機能?) ※郵便番号変換ウィザードを使う ※うえの2つをマクロ化する 以上の3(2)つは除く
回答: マクロを完全否定ではない?下のコードはime2000の機能を使っています。 変換モード=人名/地名で行う必要があります。(←重要) これが質問の主旨にあっているか不明です。 都道府県別の郵便番号テーブルを使っても、『以下に掲載がない場合』、『次のビルを除く』、『地階・階層不明』などの文言があって面倒になる場合があったように記憶しています。 下のコードではa列に郵便番号を入力します。(例、160-0001) 有効な郵便番号であれば隣のセル(b列)に住所を表示します。(東京都新宿区片町) 住所に変換できなければ、そのまま表示します。 <**1>の行を削除すれば、丁目、番地号、補助住所等を続けて入力できるはずです。 ご参考に。(excel2000です) sheet1で作成(sheet1のコードウインドウに貼り付け) ↓ private sub worksheet_change(byval target as range) if target.count = 1 then '単一セルの入力の場合 if target.column = 1 and target.value <> "" then '『column=1』はa列の意味 target.offset(0, 1).select target.offset(0, 1).value = target.value sendkeys "{f2}" sendkeys "{convert}" sendkeys "{enter}" sendkeys "{enter}" '**1 end if end if end sub