|
過去ログ、りすりすさんの投稿を参考に下記で思うように動作しました。
1.標準モジュールへ
Sub 住所変換(c1, c2 As String)
'セルc1に郵便番号を"-"つきの半角で入力しておき、セルc2の入力規則、日本語入力で"ひらがな"を選択
' 使い方 call 住所変換("A1","B1")
Range(c2).Activate
Application.SendKeys Range(c1) & Space(1) '& "{ENTER}"
End Sub
2.シートへ
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
|
|