select所有单元格时Selection.Count溢出

在Excel 2007中，我想在单击单元格（L2）时提示消息。 我有一段代码的作品，但问题是，当我select所有的单元格与Ctrl+A我得到错误号码06: overflow就行If Selection.Count = 1 Then

强制性VBA代码：

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Selection.Count = 1 Then If Not Intersect(Target, Range("L2")) Is Nothing Then MsgBox "ACTION!" End If End If End Sub 

Answer 1

尝试这个：

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If InStr(1, CStr(Target.Address), ":") < 1 Then If Selection.Count = 1 Then If Not Intersect(Target, Range("L2")) Is Nothing Then MsgBox "ACTION!" End If End If End If End Sub 

Answer 2

轻松修复：

 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Selection.CountLarge = 1 Then If Not Intersect(Target, Range("L2")) Is Nothing Then MsgBox "ACTION!" End If End If End Sub 

Answer 3

您必须如下更改您的代码。 没有错误陷阱需要：私人小组Worksheet_SelectionChange（BYVAL目标作为范围）如果Selection.Area.Count = 1然后如果不相交（目标，范围（“L2”））是Nothing然后MsgBox“行动！ 结束如果结束如果结束小组