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

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

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

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

自动重算：

With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With