将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代替“”来保留简单的公式字符串。