将excel公式单元格更改为vbamacros

请我需要改变这个公式：

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

这个公式给出了两个date之间的差别：

1）即K15：30/10/2017

2）今天（）

最大倒计数停在0。

我需要在macros中转换这个公式，以便在由Private Sub Worksheet_Change(ByVal Target As Range)运行的macros中插入这一段代码。

我希望下面的代码行应该工作，testing工作正常我。

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

在你的代码中IF函数的参数太多了。也可以使用0来代替“”来保存一个简单的公式string。