お世話になります。 以前にも似たような質問をさせていただきました。 EXCELに表示されている行番号を正確にとらえ、表示範囲が変更された場合（スクロール、ZOOM、その他で・・）、動的にある処理をする必要があります。 変更された範囲については、visibleRangeプロパティで変化を捉えることができるのですが、それトリガー（きっかけ）となるイベントがありません。 しかたがないので、Win32 APIのGetInputStateでマウス、またはキーボードの入力を待ち構えることにしました。　ところが、GetInputStateは入力があった場合は、1を返すはずなのですが、マウスボタンを押すと、1が返ったり、返らなかったり、また、キーをおしても反応しないようです。 実験は書きのコードにより、マウス、キーバードを押すと列１に"aa"という文字を行１から下に向かって書くようにしました。 根本的にこのAPIの使い方が間違っているのでしょうか？　Web上で検索しても非常にシンプルなサンプルがあり、単純にこのAPIの0,1を判断して使っているようですので、わたしのコードで問題ないように思えるのですが・・・ どなたかアドバイスをお願いできますでしょうか。 Dim i Sub Main() i = 1 Do If GetInputState <> 0 Then Cells(i, 1) = "aa" i = i + 1 End If DoEvents Loop MsgBox "マウスクリックかキーの入力がありました。", vbInformation, "確認" End Sub この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 ++++++++++++++++++++ OS      ⇒Windows 2000 Version⇒Excel 2000 ++++++++++++++++++++

> 根本的にこのAPIの使い方が間違っているのでしょうか？ 間違ってはいないでしょうが、適用先がおかしいと思います。 その API は、メッセージキューの中を探しますが、キューは Excel のものです。 Excel がキューの中のメッセージを処理した後であれば、見つかりません。 マウス・キーボードの監視だと、フックの方が適切かな〜と思いますが、1 秒単 位のタイマーとかでもいいような気がします。 キーの状態を見る API だと、マウスまで見れるのは GetAsyncKeyState がすぐに 思いつきます。ただ、これで複数のキーの監視を行うと、激しく重いです。(^^;) Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Public i As Long Public Sub Main() Dim fMoveKey As Boolean i = 1 Do fMoveKey = False fMoveKey = fMoveKey Or (GetAsyncKeyState(vbKeyLButton) And 1) fMoveKey = fMoveKey Or (GetAsyncKeyState(vbKeyUp) And 1) fMoveKey = fMoveKey Or (GetAsyncKeyState(vbKeyDown) And 1) fMoveKey = fMoveKey Or (GetAsyncKeyState(vbKeyLeft) And 1) fMoveKey = fMoveKey Or (GetAsyncKeyState(vbKeyRight) And 1) fMoveKey = fMoveKey Or (GetAsyncKeyState(vbKeyPageUp) And 1) fMoveKey = fMoveKey Or (GetAsyncKeyState(vbKeyPageDown) And 1) fMoveKey = fMoveKey Or (GetAsyncKeyState(vbKeyEnd) And 1) fMoveKey = fMoveKey Or (GetAsyncKeyState(vbKeyHome) And 1) fMoveKey = fMoveKey Or (GetAsyncKeyState(vbKeyTab) And 1) fMoveKey = fMoveKey Or (GetAsyncKeyState(vbKeyReturn) And 1) If fMoveKey Then Debug.Print i, Timer i = i + 1 End If DoEvents Loop End Sub この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

藤代千尋さん、いつもありがとうございます。 >マウス・キーボードの監視だと、フックの方が適切かな〜と思いますが、1 秒単 >位のタイマーとかでもいいような気がします。 この"フック"とは、GetAsyncKeyState のサンプルコードのことなのでしょうか。あるいは、このAPIを使用する以外の"フック"をするやり方が別にあるのでしょうか。 （基本的な言葉がよくわからなくて申し訳ありません。） この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

> > キーの状態を見る API だと、マウスまで見れるのは GetAsyncKeyState フックは、SetWindowsHookEx とかです。(^^) この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他

藤代千尋さん、ありがとございました。