VBA:使用Range.Formula时出错

Question

我正在使用这个公式

ThisWorkbook.Sheets("Overview").Range(formrange).Formula = "=IF(OR(ISBLANK(B2);WEEKDAY(DATE($B$38;$B$37;B2);2)>5;DAY(EOMONTH(DATE($B$38;$B$37;B$3);0))<B2);0;IF(C2=""Y"";0,5;1))"

我有以下错误

Run-time error "1004"
Application-denied or object-defined error

你们想知道那是什么吗？

Answer 1

该Range.Formula属性需要一个公式字符串,其格式与在具有美国区域设置的计算机上输入的单元格相同.因此,对于此示例,您需要:

ThisWorkbook.Sheets("Overview").Range(formrange).Formula = "=IF(OR(ISBLANK(B2),WEEKDAY(DATE($B$38,$B$37,B2),2)>5,DAY(EOMONTH(DATE($B$38,$B$37,B$3),0))<B2),0,IF(C2=""Y"",0.5,1))"