小爱1979 请进： 跟踪显示区域内所有相同值的单元格

YZC51

jsgj2023 发表于 2017-8-17 15:35
请问老师,如果要扩大格子区域的话要如何修改代码?

老师好！
可能是下面的过程

1. Private Sub myCls_MouseMove(ByVal sht As Worksheet, ByVal Target As Range, ByVal x As Long, ByVal y As Long)
   
2.     On Error Resume Next
   
3.     If Not Target Is Nothing Then
   
4.         Application.StatusBar = "鼠标正在掠过工作表" & sht.Name & "上的单元格" & Target.Address
   
5.         If Target.Row > 3 And Target.Row < 21 And Target.Column > 1 And Target.Column < 13 Then
   
6.             [c2] = Target.Address: [d2] = Target.Value
   
7.         End If
   
8.     Else
   
9.         Application.StatusBar = "鼠标已离开工作表区域"
   
10.     End If
    
11. End Sub

复制代码