重新计算工作表指定区域

muerjun

重新计算工作表指定区域
       如果在工作表中含有大量公式，那么在对工作表执行重新计算操作时，可能需要较长的时间。在实际工作中，有时希望仅对指定的区域进行重新计算，以提高计算效率，那么可以使用下面的代码。 复制内容到剪贴板 代码:#001  Sub CalculationSpecialRange()
#002      Dim OldCalculation As XlCalculation
#003      OldCalculation = Application.Calculation
#004      Application.Calculation = xlCalculationManual
#005      ActiveSheet.Range("A1:D10").Calculate
#006      Application.Calculation = OldCalculation
#007  End Sub

muerjun

CalculationSpecialRange过程对单元格A1到B10区域进行重新计算。
       第3行代码保存当前应用程序的Calculation属性设置。应用于Application对象的Calculation属性返回或设置当前应用程序的计算模式，可为表格所示的XlCalculation常量之一。



       第4行代码将计算模式设置为手动重算。
       第5行代码重新计算活动工作表指定的单元格区域B3:D7。（指定区域之外的公式将不重新计算，但包含易失性函数的公式除外）
       第6行代码恢复当前应用程序的Calculation属性设置。