将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而不是“”来保持一个简单的公式字符串。