Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

59328 / 76738

←次へ　｜　前へ→


	【22113】Re:改めて質問します

りすりす - 05/2/9(水) 2:26 -


	引用なし

	パスワード

▼okb さん：

>質問を改めて書きますと、欲しい関数は次のようなイメージです。
>１．任意のセルＡに半角で郵便番号を入力
>２．任意のセルＢ（入力規則で日本語入力ON済み）にワークシート関数を定義して
>　　次の手順で住所を表示
>　　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

0 hits

▼

【22055】住所検索関数の作成 okb 05/2/7(月) 23:03