VBA根据鼠标位置判断执行代码能实现吗？

ldflmh

比如：
如果鼠标在Range("A1:Y25")这个范围里的任意一个单元格内，就执行某一段代码。

liulang0808

表格selection事件，楼主看看这个吧

ldflmh

liulang0808 发表于 2020-3-1 21:01
表格selection事件，楼主看看这个吧

嗯，正丰论坛学习，看能不能看懂点，好像不太懂

lss001

ldflmh 发表于 2020-3-1 21:05
嗯，正丰论坛学习，看能不能看懂点，好像不太懂

'Sheet1 代码>>>
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column < 26 And Target.Row < 26 Then Call dd '执行dd
End Sub
Sub dd()
    MsgBox "所在范围：a1:y25"
End Sub

chis3

樓主好像是說鼠標不是單元格
如果是這樣應該要動用api了

ldflmh

lss001 发表于 2020-3-1 21:40
'Sheet1 代码>>>
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column  ...

谢谢，这个不是我想要的结果，我要的是，判断当前光标所激活的单元格是不是在那个范围内（光标事先已经在那个单元格里了），如果是，则执行命令。

shenjianrong163

ldflmh 发表于 2020-3-1 22:52
谢谢，这个不是我想要的结果，我要的是，判断当前光标所激活的单元格是不是在那个范围内（光标事先已经在 ...

试试这个：

1. Sub test()
   
2.     Set Rng = Range("A1:Y25")
   
3.     For Each Rng In Selection
   
4.         If Rng.Column < 26 And Rng.Row < 26 Then Call dd: Exit Sub
   
5.     Next
   
6. End Sub
   
7. Sub dd()
   
8.     MsgBox "鼠标所在范围:a1:y25"
   
9. End Sub

复制代码

shenjianrong163

请参考附件：

根据鼠标位置判断执行代码.rar (11.46 KB, 下载次数: 21)

2020-3-1 23:39 上传

点击文件名下载附件
1

lss001

ldflmh 发表于 2020-3-1 22:52
谢谢，这个不是我想要的结果，我要的是，判断当前光标所激活的单元格是不是在那个范围内（光标事先已经在 ...

工作簿1.rar (16.48 KB, 下载次数: 35)

2020-3-2 18:57 上传

点击文件名下载附件

说明：3楼检测鼠标点击位置

         本楼检测鼠标移动位置

ldflmh

shenjianrong163 发表于 2020-3-1 23:35
试试这个：

谢谢，就是这个效果。