在工作表中的change事件中设置,代码如下
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "E2" Then
If Not IsEmpty(Target) Then Range("C3").Select
End If
End Sub
移动鼠标点击指定单元格即可。
if [E2]<>"" then [C3].select
使用VBA方形,必要时我可以给你编程,需要的话