回答受付が終了しました

slv********

2022/1/21 15:18

11回答

Excelのvbaについて質問です。 下記のコードについてです。 'マウスイベントを取得するための決まり文句的なもの

Excelのvbaについて質問です。 下記のコードについてです。 'マウスイベントを取得するための決まり文句的なもの Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long Declare PtrSafe Sub mouse_event Lib "user32" ( _ ByVal dwFlags As Long, _ Optional ByVal dx As Long = 0, _ Optional ByVal dy As Long = 0, _ Optional ByVal dwDate As Long = 0, _ Optional ByVal dwExtraInfo As Long = 0 _ ) Sub clickMouseLeft() '指定したポイントへ左クリックを実行 '座標を設定。350はX軸（横方向） 270はY軸（縦方向） SetCursorPos 350, 270 '左クリックの動作 mouse_event 2 mouse_event 4 '解りやすいように秒を表示 Range("E10") = Format(Now(), "mm:ss") '3秒後に再度実行 Application.OnTime Now() + TimeValue("00:00:03"), "clickMouseLeft" End Sub このコードは3秒後に同じ箇所で左クリックを再実行するものですが、別の指定した場所で3秒後に左クリックのように、場所と時間を再度指定したコードを書きたいのですが、教えていただけますでしょうか。 例 座標(350,200)で左クリック 3秒後 座標(200,150)で左クリック 3秒後 座標(100,150)で左クリック 、、、 このようなのを教えていただきたいです。 よろしくお願いします。

Visual Basic | Excel・96閲覧・xmlns="http://www.w3.org/2000/svg">100

回答（1件）

0
よこまや

2022/1/27 5:44

Sub test() Static cnt As Long, once As Boolean, ary() Dim a As Long, b As Long If once = False Then once = True ary = Array(350, 200, 200, 150, 100, 150) End If a = ary(cnt * 2) b = ary(cnt * 2 + 1) cnt = cnt + 1 If cnt = 3 Then cnt = 0 MsgBox a & "," & b Application.OnTime Now() + TimeValue("00:00:03"), "test" End Sub 直接の回答じゃありません。 変数が実行ごとに変化する構造をお望みなんですよね。 そのサンプルです。 適当に組み合わせをお考えください。