Excel VBA質問箱 IV

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

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


59322 / 76732 ←次へ | 前へ→

【22113】Re:改めて質問します
回答  りすりす  - 05/2/9(水) 2:26 -

引用なし
パスワード
   ▼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

0 hits

【22055】住所検索関数の作成 okb 05/2/7(月) 23:03 質問
【22060】Re:住所検索関数の作成 りすりす 05/2/8(火) 1:45 回答
【22062】Re:住所検索関数の作成 ichinose 05/2/8(火) 8:32 発言
【22087】改めて質問します okb 05/2/8(火) 16:06 質問
【22113】Re:改めて質問します りすりす 05/2/9(水) 2:26 回答
【22120】Re:改めて質問します okb 05/2/9(水) 11:31 お礼

59322 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free