VBA 鼠标移动到指定单元格

志65 · 发表于 2022-11-21 11:01

短腿小居居。 · 发表于 2022-11-21 11:30

Range("E3").Comment.Visible = True

02761752696 · 发表于 2022-11-21 12:15

rn.Comment.Visible = True

02761752696 · 发表于 2022-11-21 12:16

加入这个

志65 · 发表于 2022-11-21 12:22

02761752696 发表于 2022-11-21 12:16
加入这个

多谢，可我发现我运行代码后，我点击其他单元格，那批注不会消失了，一直显示。无法做到跟鼠标那样，只有鼠标悬停在那个单元格批注才会显示，鼠标不在那个单元格悬停，就会批注就会消失

02761752696 · 发表于 2022-11-21 12:24

志65 发表于 2022-11-21 12:22
多谢，可我发现我运行代码后，我点击其他单元格，那批注不会消失了，一直显示。无法做到跟鼠标那样，只有 ...

判断一下E3 显示，其他不显示就好了

小fisher · 发表于 2022-11-21 14:17

Option Explicit
#If VBA7 Then
Private Declare PtrSafe Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
#Else
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
#End If
Sub test()
Dim lx As Long, ly As Long
Dim rn As Range
Set rn = Range("E3")
lx = ActiveWindow.ActivePane.PointsToScreenPixelsX(rn.Left + rn.Width / 2)
ly = ActiveWindow.ActivePane.PointsToScreenPixelsY(rn.Top + rn.Height / 2)
SetCursorPos lx, ly
End Sub

复制代码

志65 · 发表于 2022-11-21 14:21

02761752696 发表于 2022-11-21 12:24
判断一下E3 显示，其他不显示就好了

好的，那我加入等待时间，过了那段时间再把visible=false就可以了

志65 · 发表于 2022-11-21 14:22

短腿小居居。发表于 2022-11-21 11:30
Range("E3").Comment.Visible = True

多谢回复。

493861364 · 发表于 2022-11-21 17:47

小fisher 发表于 2022-11-21 14:17

可以自由控制鼠标的位置了，厉害了

		自动登录	找回密码
密码			免费注册

[求助] VBA 鼠标移动到指定单元格