A01034 - 切换手动/自动计算 - P21

admin · 发表于 2019-4-4 08:51:48

您需要登录才可以下载或查看，没有账号？注册

x

Public Sub 技巧1_034()8 f. Y% q) l% F" l
Application.Calculation = xlCalculationAutomatic '自动计算" D, _2 n" F+ k/ R: l& u4 W
MsgBox "已经切换为自动计算"! y! N, Y O; r( J
Application.Calculation = xlCalculationManual '手动计算8 J- l8 t5 w; N: ~
MsgBox "已经切换为手动计算"( h/ t& ]. r* {* n
Application.Calculation = xlCalculationSemiautomatic '除模拟运算表外,自动计算
7 r1 v5 p3 n. L. y0 q
MsgBox "已经切换除模拟运算表外,自动计算"! {# h9 t6 z1 Z% G9 E
Application.Calculation = xlCalculationAutomatic '自动计算
' z; t3 q4 A: |% |) C/ I" i
MsgBox "已经恢复为自动计算"5 |( s% U5 L* x6 S- j( j( Q9 h! G
End Sub

复制代码

		自动登录	找回密码
密码			注册

[VBA精品课] A01034 - 切换手动/自动计算 - P21