更改Excel公式单元格成宏VBA

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

这个公式给出了两个日期之间的差值：

1），即K15：30/10/2017

2）今天，（）

最大倒计时停止在0

我需要到t在宏中转换此公式以便将这一位代码插入由Private Sub Worksheet_Change(ByVal Target As Range)运行的宏中。

2017-10-19 Tom

FWIW - 你的公式缺少'''来完成'IF'功能。 – YowE3K

你需要整个代码还是只是一个提示如何做到这一点？ – Flocke

我会先尝试提示，然后看看它是否适合我的代码。我到现在为止没有成功尝试过的是这段代码： – Tom

我希望下面的代码行应该工作，测试工作适合我。

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

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

2017-10-19 11:06:20

非常感谢。它的魅力。 – Tom

回答