选择所有单元格时,Selection.Count溢出

Question

在Excel 2007中,我想在单击单元格(L2)时提示消息.我有一段代码工作,但问题是,当我选择工作表中所有的细胞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 Selection.CountLarge = 1 Then
        If Not Intersect(Target, Range("L2")) Is Nothing Then
            MsgBox "ACTION!"
        End If
    End If
End Sub

Answer 2

尝试这个：

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