将excel公式单元格更改为vba宏

请注意，我需要更改此公式：

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

该公式给出了两个日期之间的差异：

1） 即K15:30/10/2017

2） 今日()

最大倒计时在0处停止

---

我需要在宏中转换此公式，以便将此代码位插入到由

专用子工作表运行的宏中。\u Change（ByVal Target As Range）

我希望下面的代码行可以工作，测试结果对我来说工作正常

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

---

代码中IF函数的参数太多。您还可以使用0而不是“”来保留公式的简单字符串

FWIW-您的公式缺少一个

）

来完成

IF

函数。您需要完整的代码还是只需要一个提示来完成此操作？我会先尝试一个提示，看看它是否适合我的代码。到目前为止，我一直在尝试但没有成功的是这段代码：我将首先尝试一个提示，看看它是否适合我的代码。到目前为止，我一直尝试的代码是：sheet2.Range（M15:M38）。公式=“（=IF（ISBLANK（K15），”，MAX（K15-TODAY（），0）），作为提示-查看

DATEDIFF

或只是

Sheet1.Range（“K15”）-Date