Excel VBA質問箱 IV

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

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


59321 / 76738 ←次へ | 前へ→

【22120】Re:改めて質問します
お礼  okb  - 05/2/9(水) 11:31 -

引用なし
パスワード
   過去ログ、りすりすさんの投稿を参考に下記で思うように動作しました。

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

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 お礼

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