vba在Excel滑鼠滑過朗讀

Q1：excel VBA 滑鼠浮上命令按鈕有文字提示

以下來自excel的幫助文件
================================
ControlTipText 屬性
指定當用戶將滑鼠指針放在控件上但未按下時所顯示的文本。
語法
object.ControlTipText [= String]
ControlTipText 屬性的語法有以下幾個成分：
成分
object必需。一個有效物件。
String可選。當用戶將滑鼠指針放在控件上時所顯示的文本。
說明
ControlTipText 屬性可為用戶提供有關當前執行的窗體中某一控件的提示。該屬性可在設計時間設定，但僅在執行時間由控件顯示。
ControlTipText 的默認值為空字符串。此時，該控件將無任何提示。

Q2：Excel 求助：VBA控制滑鼠移動到任意位置

代碼如下，請參考：
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_ABSOLUTE = &H8000指定滑鼠使用絕對坐標系，此時，屏幕在水平和垂直方向上均勻分割成65535×65535個單元
Private Const MOUSEEVENTF_MOVE = &H1移動滑鼠
Private Const MOUSEEVENTF_LEFTDOWN = &H2模擬滑鼠左鍵按下
Private Const MOUSEEVENTF_LEFTUP = &H4模擬滑鼠左鍵抬起
Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long獲取分辨率
Type POINTAPI
X As Long
Y As Long
End Type
Private Sub Screen_Click(ByVal X As Long, ByVal Y As Long)移動並點擊
mw = X / GetSystemMetrics32(0) * 65535、mh = Y / GetSystemMetrics32(1) * 65535、mouse_event MOUSEEVENTF_ABSOLUTE Or MOUSEEVENTF_MOVE, mw, mh, 0, 0
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0, 0, 0, 0
End Sub
Public Function getmouse_x_y() As POINTAPI坐標
GetCursorPos getmouse_x_y
End Function
Sub DisplayMonitorInfo()
Dim X As Long, Y As Long
X = GetSystemMetrics32(0) 寬度（像素）
Y = GetSystemMetrics32(1) 高度（像素）
MsgBox "屏幕分辨率為：" & X & " × " & Y & " 像素"
End Sub
Sub GetPosition()獲得坐標
Debug.Print getmouse_x_y.X, getmouse_x_y.Y
[D2] = getmouse_x_y.X
[D3] = getmouse_x_y.Y
End Sub
Sub test()
Screen_Click [D2], [D3]
End Sub

Q3：Excel 求助用VBA移動滑鼠到指定位置

使用API函數：
取得當前滑鼠位置
Public Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long
設置當前滑鼠位置
Public Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos" (ByVal x As Long, ByVal y As Long) As Long

Q4：關於Excel vba 滑鼠事件 記錄滑鼠點擊單元格的內容

可以使用VBA事件完成該操作。

alt+F11

打開VBA編輯器

復制粘貼如下代碼

回到sheet界面操作即可

如下代碼將選擇的內容不斷的復制到H列。

PrivateSubWorksheet_SelectionChange(ByValTargetAsRange)
DimEndrowAsSingle
DimmyTargetAsRange
Endrow=Cells(65525,8).End(xlUp).Row
Application.EnableEvents=False
SetmyTarget=Target
myTarget.Copy
Cells(Endrow+1,8).Select
ActiveSheet.Paste
Application.EnableEvents=True
EndSub