带加法的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张表中，如果等于零，则显示消息框

试试看

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

试一试

试一试

试一试

---

一种方法是使用评估函数：

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

---

一种方法是使用评估函数：

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

---

一种方法是使用评估函数：

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

---

一种方法是使用评估函数：

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

我把“X=”放在这里，公式是excel公式。我正在尝试将其转换为VBA语言。在我放置“X=”的地方，公式是excel公式。我正在尝试将其转换为VBA语言。在我放置“X=”的地方，公式是excel公式。我正在尝试将其转换为VBA语言。在我放置“X=”的地方，公式是excel公式。我正在尝试将其转换为VBA语言。