1

我有这个函数试图检测特定单元格值何时发生变化。问题是，如果用户选择整个电子表格并按下删除，我会在检查范围只是一个单元格时出现溢出：

Public Sub Worksheet_Change(ByVal Target As Range)

    'Overflow can occur here if range = whole spreadsheet
    If Not IsError(Int(Target.Cells.Count)) Then 
        If Target.Cells.Count = 1 Then
            If Target.Cells.Row = 4 And Target.Cells.Column = 1 Then
                Sheets("X").Cells(5, 1).Calculate
            End If
        End If
    End If
End Sub

当单个特定单元格值发生更改时，是否有更优雅的方法可以让此代码仅运行？（没有溢出，清除整个工作表时出现问题等）？

4

2 回答 2

4

我假设您使用的是 Excel 2007+，因为这些版本中的行数和列数急剧增加。您可能会更幸运地检查以确保行数和列数 = 1，因为这些最大值将远低于两者的乘积（即单元格数）：

If Target.Rows.Count = 1 And Target.Columns.Count = 1 Then
于 2012-07-27T15:24:34.893 回答
3

使用 CountLarge 而不是 Count

Private Sub Worksheet_SelectionChange(ByVal target As Range)
    If target.Cells.CountLarge > 1 Then Exit Sub

    'Code...
End Sub

请参阅：MSDN Range.CountLarge 属性 (Excel)

于 2013-08-27T09:37:43.103 回答