オンキヨーホームエンターテイメント(株)【6628】の掲示板 2021/07/28

excel VBAの自動クリックのコードを載せておきましょう。どこかのサイトで拾ったコード

Declare Function SetCursorPos Lib "User32" (ByVal X As Long, ByVal Y As Long) As Long
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Declare 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 マウスで画面の任意の位置をクリック(X As Long, Y As Long, N As Integer, S As Long)
StopFlag = True
SetCursorPos X, Y '左からXピクセル、上からYピクセルの位置にカーソルを移動
For i = 1 To N Step 1
If StopFlag = False Then Exit For
Sleep S
DoEvents
mouse_event 2 '左ボタン押下のコード
mouse_event 4 '左ボタン解放のコード
Next i
End Sub