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

Question

在Excel 2007中，我想在单击单元格（L2）时提示消息。 我有一段代码可以工作，但问题是，当我用Ctrl+A选择工作表中的所有单元格时，我得到错误号06: overflow行上的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

Answer 3

您必须按如下方式更改代码。 不需要错误陷阱：私有子工作表_SelectionChange（ByVal目标作为范围）如果Selection.Area.Count = 1那么如果不相交（目标，范围（“L2”））什么都没有那么MsgBox“行动！” 结束如果结束如果结束子

Answer 4

如果您有64位Excel，我会告诉您使用CountLarge而不是Count 。 Excel 2007仅提供32位版本，因此不适合您。

您的问题是Range.Count返回一个Long变量，如果单元格数大于Long可以存储，则抛出错误。

要解决此问题，您可以执行以下操作：

1. 使用存储在Variant的Decimal数据类型。 该组合可以在Excel工作表中计算超过1,048,576行x 16,384列单元格。

2. 一次计数一列单元格以避免Range.Count 。

我写了一个函数来做到这一点。 将此函数保存在常规代码模块（不是工作表或工作簿模块）中，并像这样使用它：

If CountLarge32(Selection) = 1 Then

这是实际的功能：

Public Function CountLarge32(ByVal rangeOrSelection As Variant) As Variant

    Dim target As Excel.Range
    On Error Resume Next
    Set target = rangeOrSelection
    On Error GoTo 0


    Dim cnt As Variant
    Dim iColumn As Excel.Range

    If Not target Is Nothing Then                   ' parameter -IS- a valid Range

        ' Use Range.Count on one column at a time to avoid the overflow error
        '   if counting higher than the limit of the Long data type.
        For Each iColumn In target.Columns
            cnt = CDec(cnt + iColumn.Cells.Count)
        Next iColumn

        CountLarge32 = cnt

    End If
End Function

此功能还可以避免在Select是对象（例如按钮，形状，图表等）而不是单元格时发生的错误。