Excel vba Application.CalculateFull只在定义的范围内

即时通讯使用此链接中的代码获取雅虎交换： https ： //desmondoshiwambo.wordpress.com/2014/06/27/how-to-get-the-current-exchange-rateconvert-currency-in-access-excel-并使用-VBA – -雅虎金融/

这工作很好。 我现在唯一的挑战是更新交换，而不使用Application.CalculateFull。 由于我只需要范围（A2：D6）刷新。

我已经尝试.calculate但不刷新数据。 只有进入公式和推入，并计算全部作品。

有任何想法吗？

Answer 1

尝试这个：

Sub Test() 'Application.CalculateFull With ActiveWorkbook.Sheets("Sh1").Range("A2:D6") ' change this line as you need .Formula = .Formula End With End Sub