停止 Microsoft Excel 应用程序中的重新计算。
expression.CheckAbort(KeepAbort)
expression 必需。该表达式返回“应用于”列表中的对象之一。
KeepAbort Variant 类型,可选。允许对 Range 进行重新计算。
本示例中,Microsoft Excel 将停止应用程序中的重新计算(不包括单元格 A10)。为查看本示例的结果,假定应用程序中还存在其他计算,这将允许用户查看选中的单元格和没有选中的单元格区域之间的不同。
Sub UseCheckAbort()
Dim rngSubtotal As Variant
Set rngSubtotal = Application.Range("A10")
' Stop recalculation except for designated cell.
Application.CheckAbort (KeepAbort:=rngSubtotal)
End Sub