Application.Calculation打开和关闭的效果

VBA语言専攻 2023-07-24

117

【分享成果，随喜正能量】吉人之辞寡，躁人之辞多。遇到急事时，话要慢慢说，冲动的心冷静下来，才有更好的解决办法。遇到难事，慢慢说，浮躁的心沉下来，一切问题迎刃而解。无论何时，稳定的情绪，良善的言语，都是一个人最大的福报。。

《VBA经典应用69例》（10178981），是我推出的第九套教程，教程是专门针对初级、中级学员在学习VBA过程中可能遇到的案例展开，这套教程案例众多，紧贴“实战”，并做“战术总结”，以便大家能很好的应用。教程的目的是要求大家在实际工作中要利用好VBA。本套教程共三册六十九个专题，今日内容：应用2:VBA中的Application.Calculation打开和关闭的效果

应用2 VBA中的Application.Calculation

大家好，我们今天开始第二个专题的应用讲解。本来这个应用没有列入我的写作计划之中，但碰巧，最近总有学员向我反馈类似的问题，说自己的程序运行缓慢，我查了一下大家发给我的程序文件，大多数是“公式自动计算”惹的祸。许多学员都是玩EXCEL的高手，在VBA转型期间还有写工作表函数的习惯，往往在EXCEL工作表中保留有大量的公式，每当工作表的单元格发生改变时，公式就要自动重新计算，从而浪费了大量的时间。那么如何解决这个问题呢？这讲给大家讲解。

2 使用 VBA 关闭或打开自动计算

在VBA中设置或更改计算选项的代码非常简单，可以使用Application.Calculation属性，这个属性返回或设置一个XlCalculation值, 它代表计算模式。

语法：expression.Calculation

其中expression：表示 Application 对象的变量。

XlCalculation 枚举值：

① xlCalculationAutomatic -4105 Excel控制重新计算

② xlCalculationManual -4135 用户请求时进行计算

③ xlCalculationSemiautomatic 2 Excel控制重新计算，但忽略表中的更改

3 应用示例

实例一：打开和关闭自动计算的效果这个例子中我们会看到自动计算打开和关闭的实际应用及效果。重现在以上讲解中的各种操作。

看下面的代码：

Sub mynzA()

'初始化两个单元格及在第三个单元格中设置公式

Cells(1, 1).Value = "5"

Cells(1, 2).Value = "10"

Range("C1").Select

ActiveCell.Formula = "=A1+B1"

'输出C1的值

Debug.Print Cells(1, 3).Value

'修改计算模式为 "手动"并输出计算后的值

Application.Calculation = xlCalculationManual

Cells(1, 1).Value = "10"

Debug.Print Cells(1, 3).Value

'设置立即计算，并再次尝试打印。

Application.Calculate

Debug.Print Cells(1, 3).Value

'修改计算模式为自动并计算

Application.Calculation = xlCalculationAutomatic

Cells(1, 1).Value = "3"

Debug.Print Cells(1, 3).Value

End Sub

代码截图：

代码的解读：（略）

代码的测试效果：

（待续）

本讲内容参考程序文件：应用002.xlsm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

vba 教程

文章转载自VBA语言専攻，如果涉嫌侵权，请发送邮件至：contact@modb.pro进行举报，并提供相关证据，一经查实，墨天轮将立刻删除相关内容。

Application.Calculation打开和关闭的效果

应用2 VBA中的Application.Calculation

2 使用 VBA 关闭或打开自动计算

3 应用示例

评论