【VBA】マウスの動作をさせる（カーソル移動、クリック）

マウスカーソルを移動する

マウスカーソルを移動する構文は次のとおりです。

'これを先頭に記載します（変更の必要はありません）
Private Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

'マウスカーソルを移動する構文（X:横位置、y縦位置）
SetCursorPos 横位置, 縦位置
DoEvents:

'マウスカーソルを移動する例                                        
Sub moveCursor()
    SetCursorPos 100, 500
    DoEvents:
End Sub

クリックをする

クリックする構文は次のとおりです。

'これを先頭に記載します（変更の必要はありません）
Private 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)

'クリックをする構文
'左クリックを押す:2 , 左クリックを離す：4 , '右クリックを押す:8 , 右クリックを離す：16
mouse_event 数値

'左クリックをする
Public Sub clickLeft()
    mouse_event 2
    mouse_event 4
    DoEvents:
End Sub

'右クリックをする
Public Sub clickRight()
    mouse_event 8
    mouse_event 16
    DoEvents:
End Sub