將Excel公式單元格更改為VBA宏

Question

請我需要更改此公式：

=IF(VAL.EMPTY(K15);"";MAX(K15-Today();0))

此公式給出兩個日期之間的差額：

1）即K15：30/10/2017

2）今天（）

最大倒數計時將從0開始。

我需要在宏中轉換此公式，以便將這段代碼插入由Private Sub Worksheet_Change(ByVal Target As Range)運行的宏中。

Answer 1

我希望下面的代碼行能夠正常工作，經過測試對我來說很好。

 Sheet2.Range("M15:M38").Formula = "=IF(ISBLANK(K15),0,MAX(K15)-TODAY())"

您的代碼中IF函數的參數過多。 您也可以使用0代替“”來保留簡單的公式字符串。