表格中处理的数据较多，且使用了很多易失性函数后，往往会导致表格函数公式计算的时间延长。从而影响填充效率。此时可以通过一个按钮先关闭表格自动计算，待填充后再开启自动计算。这样大量的易失性函数只要计算一次，从而显著提高运行效率。



下面是VBA代码

1.             If e.Shape.Name = "Button 1" Then
   
2.                 MessageBox.Show("手动计算开启")
   
3.                 ActiveWorkbook.WorkbookSet.Calculation = Calculation.Manual
   
4.             ElseIf e.Shape.Name = "Button 2" Then
   
5.                 MessageBox.Show("自动计算打开")
   
6.                 ActiveWorkbook.WorkbookSet.Calculation = Calculation.Automatic
   
7.             End If

复制代码

表格中处理的数据较多，且使用了很多易失性函数后，往往会导致表格函数公式计算的时间延长。从而影响填充效率。此时可以通过一个按钮先关闭表格自动计算，待填充后再开启自动计算。这样大量的易失性函数只要计算一次，从而显著提高运行效率。



下面是VBA代码

1.             If e.Shape.Name = "Button 1" Then
   
2.                 MessageBox.Show("手动计算开启")
   
3.                 ActiveWorkbook.WorkbookSet.Calculation = Calculation.Manual
   
4.             ElseIf e.Shape.Name = "Button 2" Then
   
5.                 MessageBox.Show("自动计算打开")
   
6.                 ActiveWorkbook.WorkbookSet.Calculation = Calculation.Automatic
   
7.             End If

复制代码