[已解决]求鼠标移动触发事件代码

libaest

进入工作表后，鼠标第一次且只是第一次移动  触发事件：Msgbox"XXX"
或第一次单元格且只是第一次单元格选择改变  触发事件：Msgbox"XXX"
跪求大师们出手指教！！！

最佳答案

月排行榜 / 总排行榜

爱疯

2017-1-7 14:50

Private Sub Worksheet_Deactivate()
    [z1] = ""
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If [z1] = "" Then
        [z1] = 1
        MsgBox 1
    End If
End Sub
2.rar (7.7 KB, 下载次数: 11)

2017-1-7 14:48 上传

点击文件名下载附件



1）切换到sheet2测试
2）z1单元格是随意选择的，自行更换
3）1也是随意选择的，自行更换

跳转到最佳答案楼层

爱疯

Private Sub Worksheet_Activate()
MsgBox "你切换到了" & Me.Name
End Sub

1.rar (7.02 KB, 下载次数: 7)

2017-1-6 18:36 上传

点击文件名下载附件

libaest

爱疯 发表于 2017-1-6 18:36
Private Sub Worksheet_Activate()
MsgBox "你切换到了" & Me.Name
End Sub

感谢版主鼎力相助！
不知道用SelectionChange，能不能加以限制只是第一次

爱疯

Private Sub Worksheet_Deactivate()
    [z1] = ""
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If [z1] = "" Then
        [z1] = 1
        MsgBox 1
    End If
End Sub
2.rar (7.7 KB, 下载次数: 11)

2017-1-7 14:48 上传

点击文件名下载附件



1）切换到sheet2测试
2）z1单元格是随意选择的，自行更换
3）1也是随意选择的，自行更换

libaest

谢谢！谢谢版主的用心，学弟感动的热泪盈框！