请教老师，这个公式在代码中怎样写

wyzdddl · 发表于 2020-1-16 10:10

请问老师，下面代码我需要每年更改一次年份，请问怎样根据系统时间自动更改年份
Range("C11").Formula = "=IF(TODAY()-""2020-1-1""<60,0,DATEDIF(""2020-1-1"",TODAY(),""D"")*0.0004*$B$4)"

大灰狼1976 · 发表于 2020-1-16 12:44

Range("C11").Formula = "=IF(TODAY()-""" & Year(Date) & "-1-1""<60,0,DATEDIF(""" & Year(Date) & "-1-1"",TODAY(),""D"")*0.0004*$B$4)"

wyzdddl · 发表于 2020-1-16 13:45

大灰狼1976 发表于 2020-1-16 12:44
Range("C11").Formula = "=IF(TODAY()-""" & Year(Date) & "-1-1""

真的太感谢您了，有帮助我解决了一个棘手的问题。谢谢老师
预祝老师。春节快乐，阖家幸福健康！

大灰狼1976 · 发表于 2020-1-16 16:04

你太客气了，举手之劳

wyzdddl · 发表于 2020-1-19 22:38

对于您是举手之劳，对于我却是天书一般

wyzdddl · 发表于 2020-1-29 13:44

大灰狼1976 发表于 2020-1-16 12:44
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”日期没有引号才能正常计算

YZC51 · 发表于 2020-1-29 19:45

试试
Cells(FKH + 1, 10).FormulaR1C1 = "=ROUNDUP(IF(RC6<""" & Date(Year(Date) ,3,1),0,(DATEDIF(""" & Year(Date) & "-1-1"",RC6,""D"")*0.0004*RC8)),0)"

taller · 发表于 2020-1-30 14:16

引号格式不对

ActiveCell.Formula = _
Replace("=IF(TODAY()-""CurYr-1-1""<60,0,DATEDIF(""CurYr-1-1"",TODAY(),""D"")*0.0004*$B$4)", "CurYr", Year(Now))

复制代码

wyzdddl · 发表于 2020-1-31 13:40

taller 发表于 2020-1-30 14:16
引号格式不对

新年好，老师
和原先一样，问题没有解决

wyzdddl · 发表于 2020-1-31 13:40

YZC51 发表于 2020-1-29 19:45
试试
Cells(FKH + 1, 10).FormulaR1C1 = "=ROUNDUP(IF(RC6

新年好，老师
运行错误

		自动登录	找回密码
密码			免费注册