VBA CountA / countif加法

嗨，大家只是快速的问题。 我想在VBA excel中做一个Counta / Countif公式 。 我正在使用的代码如下。

Sub To_open Dim x as Range x =COUNTA('Tier 2'!C2:C1000)+COUNTA('Tier 3'!C2:C1000)+COUNTA('Tier 4'!C2:C1000)+COUNTA('Tier 5'!C2:C1000) If x = 0 then msgbox " No impact " End If End sub 

代码是假设计数并添加颜色C中的行的值，在4张 ，如果它等于零，然后显示消息框。

Answer 1

一种方法是使用Evaluate函数：

 Sub To_open() Dim n As Long n = Evaluate("COUNTA('Tier 2'!C2:C1000) + " & _ "COUNTA('Tier 3'!C2:C1000) + " & _ "COUNTA('Tier 4'!C2:C1000) + " & _ "COUNTA('Tier 5'!C2:C1000)") MsgBox n End Sub 

Answer 2

尝试

  x =Application.WorksheetFunction.COUNTA('Tier 2'!C2:C1000)+COUNTA('Tier 3'!C2:C1000)+COUNTA('Tier 4'!C2:C1000)+COUNTA('Tier 5'!C2:C1000))