vba excel代码中的语法错误
我在我的Excel表中添加一个button,用于添加上面使用的公式的员工。
在下面的代码中的前两个公式工作完美,但最后一个给语法错误。
我的代码是:
Private Sub AddEmployee_Click() Sheets("Sheet1").Range("A35").Select ActiveCell.EntireRow.Insert shift:=xlDown Sheets("Sheet1").Range("A35:AJ35").Select Selection.Borders.Weight = xlThin Sheets("Sheet1").Range("AJ35").Select ActiveCell.Formula = "=SpeDays(C35:AG35,9)" Sheets("Sheet1").Range("AI35").Select ActiveCell.Formula = "=IF(AI35>=10,10,AI35)" Sheets("Sheet1").Range("AH35").Select ActiveCell.Formula = "=COUNTIF(C35:AG35,">=4000")"
问题是您的公式内的报价。 使用双引号作为解决scheme:
ActiveCell.Formula = "=COUNTIF(C35:AG35, "">=4000"")"
使用可以使用下面的代码
Activecell.Formula = "=Countif(C35:AG35," & chr(34) & ">=4000" & chr(34) & ")"
输出将是:
=Countif(C35:AG35,">=4000")