VBA 具有多个条件的 CountIFS

Question

我有一个 VBA 程序扫描工作表并生成计数，其中单元格 C 不等于某些颜色，但第 I 列设置为一个值。这是程序：

FormulaR1C1 = "=COUNTIFS(Sheet1!C[-2],RC[-2],Sheet1!C,""<>Red"",
Sheet1!C,""<>Blue"",Sheet1!C,""<>Green"",Sheet1!C,""<>Black"",
Sheet1!C,""<>Purple"",Sheet1!C,""<>White"",
Sheet1!C[6],""Temp"")"

条件已经改变，我需要为计数条件添加另一个标准，所以我认为像这样在结尾添加逗号和标准会是一个快速修复

FormulaR1C1 = "=COUNTIFS(Sheet1!C[-2],RC[-2],Sheet1!C,""<>Red"",
Sheet1!C,""<>Blue"",Sheet1!C,""<>Green"",Sheet1!C,""<>Black"",
Sheet1!C,""<>Purple"",Sheet1!C,""<>White"",
Sheet1!C[6],""Temp"",Sheet1!C[6],""Perm"")"

但是 - 现在总是 returns0。将 VBA 中的次要条件添加到 CountIFS()

的正确方法是什么

编辑
我要添加的第二个参数也应该是一个 "OR" 条件，所以 Sheet1!C[6] = Temp OR Perm

编辑 2
我试着像这样编辑我的语法

FormulaR1C1 = "=COUNTIFS(Sheet1!C[-2],RC[-2],Sheet1!C,""<>Red"",
Sheet1!C,""<>Blue"",Sheet1!C,""<>Green"",Sheet1!C,""<>Black"",
Sheet1!C,""<>Purple"",Sheet1!C,""<>White"",
Sheet1!C[6],""Temp"")"
+
"COUNTIFS(Sheet1!C[-2],RC[-2],Sheet1!C,""<>Red"",
Sheet1!C,""<>Blue"",Sheet1!C,""<>Green"",Sheet1!C,""<>Black"",
Sheet1!C,""<>Purple"",Sheet1!C,""<>White"",
Sheet1!C[6],""Perm"")"

但这给了我一个

的错误

application defiend or object defined error

Answer 1

Dim f
f = "=COUNTIFS(Sheet1!C[-2],RC[-2],Sheet1!C,'<>Red'," & _
    "Sheet1!C,'<>Blue',Sheet1!C,'<>Green',Sheet1!C,'<>Black'," & _
    "Sheet1!C,'<>Purple',Sheet1!C,'<>White'," & _
    "Sheet1!C[6],'Temp') + COUNTIFS(Sheet1!C[-2],RC[-2],Sheet1!C,'<>Red'," & _
    "Sheet1!C,'<>Blue',Sheet1!C,'<>Green',Sheet1!C,'<>Black'," & _
    "Sheet1!C,'<>Purple',Sheet1!C,'<>White',Sheet1!C[6],'Perm')"


FormulaR1C1 = Replace(f, "'", """")

VBA 具有多个条件的 CountIFS

VBA CountIFS With Multiple Criteria

excel

vba

worksheet-function

excel-2013