Macro simular clique do mouse no excel
Enviado: 29 Jul 2019 às 20:53
Boa noite!
Tenho uma planilha gigantesca e pra poupar trabalho (cerca de 10k de cliques), queria configurar uma macro pra simular o clique do mouse.
Fazendo uma procura rápida no google, achei isso:
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
Private Const MOUSEEVENTF_RIGHTUP As Long = &H10
Private Sub DoubleClick()
'Double click as a quick series of two clicks
SetCursorPos 300, 180 'x and y position
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
Application.SendKeys "{ENTER}"
Sleep 100 'Wait 0.1 seconds
Loop
End Sub
-> Problemas: Erro de compilação: 'Sub' ou 'Function' não definida (pro "SetCursorPos")
Alguém poderia me ajudar?
OBS: meus conhecimentos de programação são quase negativos, então peço desculpas desde já caso tenha cometido alguma atrocidade ali em cima.
Tenho uma planilha gigantesca e pra poupar trabalho (cerca de 10k de cliques), queria configurar uma macro pra simular o clique do mouse.
Fazendo uma procura rápida no google, achei isso:
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
Private Const MOUSEEVENTF_RIGHTUP As Long = &H10
Private Sub DoubleClick()
'Double click as a quick series of two clicks
SetCursorPos 300, 180 'x and y position
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
Application.SendKeys "{ENTER}"
Sleep 100 'Wait 0.1 seconds
Loop
End Sub
-> Problemas: Erro de compilação: 'Sub' ou 'Function' não definida (pro "SetCursorPos")
Alguém poderia me ajudar?
OBS: meus conhecimentos de programação são quase negativos, então peço desculpas desde já caso tenha cometido alguma atrocidade ali em cima.