Excel vba Application.CalculateFull仅在定义的范围

Question

我正在使用此链接中的代码从雅虎获取交易： https://desmondoshiwambo.wordpress.com/2014/06/27/how-to-get-the-current-exchange-rateconvert-currency-in-access-excel-and-vba-using-yahoo-finance/

这很有效。我现在唯一的挑战是不使用Application.CalculateFull更新交换。因为我只需要范围（A2：D6）来刷新。

我尝试过.calculate，但不刷新数据。只进入公式并按下输入，并且计算完成。

任何想法？

Answer 1

试试这个：

=CALCULATE(
    DISTINCTCOUNT( 'Product'[Unit Price] )
    ,ALL( 'Product' )
    ,'Product'[Unit Price] > EARLIER( 'Product'[Unit Price] )
) + 1