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