VBA Excel代碼中的語法錯誤

Question

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

Answer 1

問題是您在公式中加引號。 使用雙引號作為解決方案：

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

Answer 2

使用也可以使用以下代碼

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

輸出將是：

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