[已解决]求助：鼠标到单元格上面激发事件

jbh121

比如说，鼠标移到A1上，或者点A1，激发一个事件，

移到A2上，或者点A2，激发另一个事件，有没有这种可能？怎么做？

最佳答案

月排行榜 / 总排行榜

紫猪侠

2010-4-11 05:22

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
    Call 宏1
ElseIf Target.Address = "$A$2" Then
    Call 宏2
End If
End Sub

宏1，宏2你可以在模块里写

跳转到最佳答案楼层

fjmxwrs

Private Sub Worksheet_Change(ByVal Target As Range)

这是用IF

End Sub

fjmxwrs

Private Sub Worksheet_Change(ByVal Target As Range)

if.....then...else...end if

或if ...   then

elseif  ... 

end  if

End Sub

[此贴子已经被作者于2010-4-11 0:56:10编辑过]

紫猪侠

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
    Call 宏1
ElseIf Target.Address = "$A$2" Then
    Call 宏2
End If
End Sub

宏1，宏2你可以在模块里写