如何在vba中用mouse_event操作鼠標(biāo)？2018年2月7日 作者：exceloffice api函數(shù)mouse_event可以實現(xiàn)各種鼠標(biāo)操作，如左鍵單擊、左鍵雙擊、右鍵單擊、滑動滾輪等等。 它的語法如下 Visual Basic VOID WINAPI mouse_event( _In_ DWORD dwFlags, _In_ DWORD dx, _In_ DWORD dy, _In_ DWORD dwData, _In_ ULONG_PTR dwExtraInfo );
具體的參數(shù)含義可以看幫助文檔。 以下是在vba中用api函數(shù)mouse_event執(zhí)行鼠標(biāo)雙擊操作的代碼： Visual Basic Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long Public 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) Public Const MOUSEEVENTF_LEFTDOWN = &H2 Public Const MOUSEEVENTF_LEFTUP = &H4 Sub QQ1722187970() x = Sheet1.Range("A1") y = Sheet1.Range("b1") SetCursorPos x, y mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0 mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0 End Sub
|
|
|
