Question

我需要使用下面的VBA代码中的变量将公式添加到单元格中：

Sub begin()

ActiveCell.Offset(5, 0).Select
ActiveCell = "Nombre d'appels"
ActiveCell.Offset(0, 1).Select
Myrange = ("A2" & ":" & "A" & maxrow)
ActiveCell = "=COUNTA" & "(" & (Myrange) & ")"
ActiveCell.Offset(1, -1).Select
ActiveCell = "Appels abandonnés"
ActiveCell.Offset(0, 1).Select
Myrange = ("Q2" & ":" & "Q" & maxrow)
ActiveCell = "=COUNTIF" & "(" & (Myrange) & ";" & "yes" & ")"
End Sub

此示例显示COUNTA和COUNTIF。对于COUNTA，它运行正常，没有错误。至于countif，它给了我1004运行时错误。

maxrow和Myrange在代码中的更高级别定义。

Answer 1

计算字符串“yes”的出现次数，请使用

ActiveCell = "=COUNTIF" & "(" & (Myrange) & "," & """yes""" & ")"

在计算任何命名范围yes的值时，请使用

ActiveCell = "=COUNTIF" & "(" & (Myrange) & "," & "yes" & ")"

Aadd公式/函数来自VBA的excell细胞

1 个答案: