如何在VBA中將字符串比較與count-If合並

Question

我有一個If條件，用於檢查ID號，開始日期和結束日期。 為此，如果要使用條件，我想添加一個字符串比較，以檢查兩個不同列中的True或False值。 我想知道是否可以為此創建另一個application.worksheetfunction.countif ？

    If Application.WorksheetFunction.CountIf(completed.Range(COLUMN_A_IN_COMPLETE & iTotRecsD), Val2) > 0 _
    And Application.WorksheetFunction.CountIf(completed.Range(COLUMN_B_IN_COMPLETE & iTotRecsB), Val1) > 0 _
    And Application.WorksheetFunction.CountIf(completed.Range(COLUMN_C_IN_COMPLETE & iTotRecsE), Val3) > 0 _
    And (StrComp(Val4, Val5) = 0) Then

即使值完全相同，此代碼也僅在運行。

編輯* Val4是worksheet2.Cells（第2行，第4列）Val5是worksheet1.Cells（第2行，第4列）

And Application.WorksheetFunction.CountIf(completed.Range(COLUMN_D_IN_COMPLETE & iTotRecsF), Val4) > 0 Then

對於字符串比較來說似乎不太有效，我想知道為什么嗎？

Answer 1

而不是使用多個countIf，而是由單個countIf完成。

    If (Application.WorksheetFunction.CountIfs(completed.Range(COLUMN_A_IN_COMPLETE & iTotRecsD), Val2, _
        completed.Range(COLUMN_B_IN_COMPLETE & iTotRecsB), Val1, _
        completed.Range(COLUMN_C_IN_COMPLETE & iTotRecsE), Val3, _
        completed.Range(COLUMN_D_IN_COMPLETE & iTotRecsF), Val4)) > 0 Then

現在可以使用了。 :)