求导出的新表打开自动计算的代码

武松打鼓 · 发表于 2020-9-27 23:35

本帖最后由武松打鼓于 2020-9-28 08:57 编辑

要求导出的新表是自动计算模式，原表继续保持手动计算模式，求代码

某月其他收入登记表-0927.zip (121.37 KB, 下载次数: 14)

3190496160 · 发表于 2020-9-28 08:12

Sub 自动计算()
With Application
.Calculation = xlAutomatic
End With
End Sub
Sub 手动计算()
With Application
.Calculation = xlManual
End With
End Sub

武松打鼓 · 发表于 2020-9-28 19:53

3190496160 发表于 2020-9-28 08:12
Sub 自动计算()
With Application
.Calculation = xlAutomatic

这两段代码放到哪个文件里呢。我需要不用点击按钮就可以自动执行哦

武松打鼓 · 发表于 2020-9-28 19:55

3190496160 发表于 2020-9-28 08:12
Sub 自动计算()
With Application
.Calculation = xlAutomatic

我要求原表继续保持手动计算，导出的新表是自动计算哦

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

[求助] 求导出的新表打开自动计算的代码