selectionchange事件
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Application.Union(Rows(Target.Row), Columns(Target.Column)).Select
Target.Activate '加入这行好看一点
End Sub
selectionchange事件
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Application.Union(Rows(Target.Row), Columns(Target.Column)).Select
Target.Activate '加入这行好看一点
End Sub