Excel VBA質問箱 IV

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

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


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

59315 / 76732

←次へ　｜　前へ→


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

okb - 05/2/9(水) 11:31 -


	引用なし

	パスワード

過去ログ、りすりすさんの投稿を参考に下記で思うように動作しました。

１．標準モジュールへ
Sub 住所変換(c1, c2 As String)
　　'セルc1に郵便番号を"-"つきの半角で入力しておき、セルc2の入力規則、日本語入力で"ひらがな"を選択
　 '　使い方 call 住所変換("A1","B1")
　 Range(c2).Activate
　 Application.SendKeys Range(c1) & Space(1)　　　　'& "{ENTER}"
End Sub

２．シートへ
Private Sub Worksheet_Change(ByVal Target As Range)
'　指定のセルの値をチェックして何かを実行させる。
'
　If Target.Count = 1 Then
　　 If Target = Range("A1") And Target.Value <> "" Then
　　　　　Call 住所変換("A1", "B1")　'入力ミスの回避は、Escキーで対応
　　 End If
　End If
End Sub

使い方が、まずかったのか下記ではうまくいきませんでした。
>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