"Syntax error in vba excel code"的含义是"VBA Excel代码中有语法错误"。

8 浏览
0 Comments

"Syntax error in vba excel code"的含义是"VBA Excel代码中有语法错误"。

这个问题已经在此处有答案:

如何在VBA字符串中放入双引号？

我正在我的Excel表格中添加一个按钮，用于添加一个使用上述公式的员工。

以下代码中的前两个公式工作得很好，但最后一个公式却出现了语法错误。

我的代码如下：

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")"

admin 更改状态以发布 2023年5月21日
0

2 答案

0 Comments

你也可以使用以下代码

Activecell.Formula = "=Countif(C35:AG35," & chr(34) & ">=4000" & chr(34) & ")"

输出将为：

=Countif(C35:AG35,">=4000")

0
0 Comments

问题在于公式中的引号。使用双引号作为解决方案：

ActiveCell.Formula = "=COUNTIF(C35:AG35, "">=4000"")"

0