Excel VBA 自动刷新问题！请高手指教！

Question

我想请问几个问题！一，我知道按F9可以刷新，但是手动的，有没有自动刷新的，就是不用按F9，表格自动刷新，到我要停的时候我可以手动停止刷新！请问这个要怎么实现呢！？二，VBA中有调节自动刷新，或停止自动刷新的语句吗？我想在一个模块中添加这个功能！直接把相应语句添加进去就行了吧？求高手赐教啊！

Answer 1

①、在工具－选项－重新计算里，有自动重算选项，点选它，就能自动刷新。
②、有些函数公式在设定为自动重算的状态下仍然不能自动刷新，因为这些公式中包含非易失性函数的跨工作表、工作薄的引用。这时，需要根据公式得到的结果添加易失性函数来强制其自动刷新。通常，对于得到的结果为文本的公式，就在其后添加：&T(NOW())，而对结果为数值的公式，添加：+ISTEXT(NOW())

③、VBA中有控制自动重算的功能。你在手动修改自动重算的设置的同时录制宏，就能看到它的代码：
Application.Calculation = xlAutomatic'设置为自动重算
Application.Calculation = xlManual'设置为手动重算

Answer 2

你说的是公式的自动重算吧？
可以在工具--选项--公式 把手工计算改成自动重算，就不用按F9了
VBA中的语句如下：
手工计算
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With

自动重算：

With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With本回答被提问者采纳