老师，新年好，下面代码中的蓝色字体部分为什么不执行

wyzdddl

山菊花 发表于 2020-1-24 11:45
(Year(Date) & "-1-1")换成DateSerial(Year(Date), 1, 1)试试。

谢谢，山菊花老师，问题解决了还是您的代码正确，我的有误。
我删除的那句引用的也不对。
谢谢您。祝您新年快乐，阖家欢乐，万事如意！

wyzdddl

也谢谢各位老师的关注，祝您新年快乐

山菊花

不客气，问题解决就好，祝身体健康、合家平安。

wyzdddl

山菊花 发表于 2020-1-29 13:12
不客气，问题解决就好，祝身体健康、合家平安。

山菊花老师，这个代码也出现了错误，有时间请您给看看，哪位老师不在线，麻烦您给看看

Range("C11").Formula = "=IF(TODAY()-""" & Year(Date) & "-1-1""  这个语句中的蓝色部分是一位老师给写的。运行正常，生成的公式也正确。
可是我把它写在下面的公式中，生成的公式中的引号无法去除（蓝色部分）。
Cells(FKH + 1, 10).FormulaR1C1 = "=ROUNDUP(IF(RC6<""" & Year(Date) & "-3-1"",0,(DATEDIF(""" & Year(Date) & "-1-1"",RC6,""D"")*0.0004*RC8)),0)"
将公式写成上面这样后，蓝色字体部分生成的公式带引号，不能正确计算
这是生成的公式ROUNDUP(IF($F30<"2020-3-1",0,(DATEDIF("2020-1-1",$F30,"D")*0.0004*$H30)),0)
这个“2003-03-1”日期没有引号才能 正常计算

山菊花

现在这个问题跟1楼提的是同一个问题，都是日期问题。
1楼问题中，Year(Date) & "-1-1"是个文本，改使用函数DateSerial()就是使用日期格式。
“2003-03-1”是个文本，同理，要以日期格式表达这个日期：Date(2003,3,1)或者DATEVALUE("2003-3-1")。
公式蓝色部分可改为：
"=ROUNDUP(IF(RC6<date( Year(today()),3,1),0,

wyzdddl

山菊花 发表于 2020-1-29 14:54
现在这个问题跟1楼提的是同一个问题，都是日期问题。
1楼问题中，Year(Date) & "-1-1"是个文本，改使用函 ...

谢谢您，山菊花老师，问题解决，解释明了