Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 9 and Target.Column < 4 and Target.Row < 4 Then
MsgBox "内容A1:A3包含3个文本"
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count = 9 and Target.Column < 4 and Target.Row < 4 Then
MsgBox "内容A1:A3包含3个文本"
End If
End Sub