[[20040902101445]]　『文字入力後Enterでマクロ実行される方法』（すがやっち）　ページの最後に飛ぶ

『文字入力後Enterでマクロ実行される方法』（すがやっち）

[任意のセルで文字入力後、Enterを押すとマクロが実行される方法]

早速質問させていただきます。
簡単な質問だとは思われますが、申し訳ありません。検索しましたが私が意図していたようなFAQが見つかりませんでした。宜しくお願いします。

フィルタオプションをマクロ化して、検索シートを作成しようと思っています。
A1に文字を入力し(orA1セルを選択している時に)、確定後Enterを押すと指定したマクロが実行されるような式はどのように記述すればよいか教えてください。

今はA1に文字を入力した後、ボタンを作って、それをクリックすることにより検索(マクロ)を実行させるようにしていますが、それを文字確定後にEnterを押すことによって、ボタンをクリックしたのと同じ効果を出したいのです(ただ単にマウスに右手を持っていくのがわずらわしいだけなのですが･･･)。

以上、宜しくお願いします。

 シートモジュールのchangeイベントをお試し下さい。

  (INA)

申し訳ありません。上記の内容だけでは私には理解できませんでした。
具体的な方法を教えていただきたかったのですが･･･。ありがとうございました。

 シートモジュールのコードウィンドウに下記を登録します。
Ａ１が変更された場合にメッセージを表示します。
　
 Private Sub Worksheet_Change(ByVal Target As Range)
 Dim MyRow As Long
 Dim MyCol As Long

 Rem セルの数をチェック
     If Target.Count <> 1 Then Exit Sub
 Rem 変更されたセルの位置をチェック
     MyRow = Target.Row
     MyCol = Target.Column
 Rem 変更されたセルが１列目の１行目であれば、メッセージ表示
     If (MyRow = 1) * (MyCol = 1) Then
         MsgBox "A1が変更されました"
     End If

 End Sub
　
もし、実際使っているマクロがうまく動いているのであれば、
MsgBox～の一行を現在使用しているマクロ名に差し替えれば
たいがい動くと思います。
データのバックアップを取ってからお試しください。
(KAMIYA)

 >上記の内容だけでは私には理解できませんでした。

 ここをお読み下さい。

http://www.sanynet.ne.jp/~awa/excelvba/kouza/chapt_01/sec08_01.html

  (INA)

コメント返信：

[ 一覧(最新更新順) ]

[[20040902101445]] 『文字入力後Enterでマクロ実行される方法』（すがやっち） ページの最後に飛ぶ

[[20040902101445]]　『文字入力後Enterでマクロ実行される方法』（すがやっち）　ページの最後に飛ぶ