|
▼okb さん:
>質問を改めて書きますと、欲しい関数は次のようなイメージです。
>1.任意のセルAに半角で郵便番号を入力
>2.任意のセルB(入力規則で日本語入力ON済み)にワークシート関数を定義して
> 次の手順で住所を表示
> a)セルAの値をIMEの変換キーを押す前の全角に変換
> b)変換キーを一度だけ押す
> c)住所が表示されて、Enterキーを押す
セル内に キーボードイベントおくと
再計算されるたびに呼び出されたり
それ以前に式入れた時点で吹っ飛びますよ。
他から検索データを拾ってきたくないってことなので
ワークシートのイベントで処理する方が安全でしょう
ThisWorkbook に下記を追加
Public Sub 住所検索2(c1, c2 As String)
' 使い方 call 住所検索2("A1","B1")
Range(c2).Activate
Call SendKeys(Range(c1).Cells.Value & Space(1), True)
Call SendKeys("{ENTER}", True)
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If (Sh.Name = "Sheet1") And (Target.Column = 1) _
And (IsEmpty(Target.Value) = False) Then
Call 住所検索2(Target.Address, _
Cells(Target.Row, Target.Column + 1).Address)
End If
End Sub
|
|