打开自动计算

我正在使用Excel 2013，我们将随机Excel文件设置为手动计算，并且在重置为自动后似乎不会消失。打开自动计算

这些文件似乎保持为自动，但在随机的一天，不同的Excel文件或相同的Excel恢复为手动。我想在加载任何Excel文件或只是将Excel设置为自动计算的程序时自动执行宏。

我尝试下面的宏：

Private Sub Auto_Open() 
Application.Calculation = xlCalculationAutomatic

我在加载收到以下错误消息的Excel：

“运行时错误 '1004'：object'_Application的方法 '计算' '失败

疑难解答： Auto_Open宏在任何其他工作簿打开之前运行因此，如果您记录的操作您希望Excel在默认的Book1工作簿或从XLStart文件夹加载的工作簿上执行，则重新启动Excel时Auto_Open宏将失败，因为该宏在默认和启动工作簿打开之前运行。

如果遇到这些限制，而不是记录Auto_Open宏，则必须为Open事件创建VBA过程，如本文下一节所述。

问题：有没有办法创建一个宏，将任何Excel文件重置为自动？我将宏存储在我的个人工作簿中，因为我希望宏可以在我加载的任何Excel文件上执行。

2016-01-21 NPark

如果打开录制宏，然后执行步骤来启用自动计算，它将使命令你。这是：'Application.Calculation = xlAutomatic'。 – RLH

嗨。是的，这正是我所做的，并收到上述错误信息。 – NPark

你的代码是不一样的。 'xlCalculationAutomatic'和'xlAutomatic' – RLH

我试过你写的，它的工作原理。

以防万一，这里是我的代码:)

Private Sub auto_open() 

    Application.Calculation = xlAutomatic 

End Sub

2016-01-21 18:56:18

回答