vba excel代码中的语法错误

时间:2017-07-24 07:57:31

标签: excel 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")"

2 个答案:

答案 0 :(得分:3)

问题是公式中的引号。使用双引号作为解决方案:

<div class="collapse navbar-collapse">
  <ul class="nav navbar-nav mainMenu">
    <li><a href="#"><span class="glyphicon glyphicon-dashboard">a</span><span class="menuText">Menu1</span></a></li>
    <li><a href="#"><span class="glyphicon glyphicon-home">b</span><span class="menuText">Menu2</span></a></li>
    ...
  </ul>
</div>

答案 1 :(得分:1)

使用也可以使用以下代码

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

输出将是:

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