不符合條件時自動進行Excel自動篩選

Question

在Excel VBA中，當不滿足過濾條件時，我希望計數顯示為零；否則，我希望其顯示過濾后的行的確切數量。 但是，當沒有結果滿足條件時，即使1個結果滿足條件，計數器也會顯示1。

On Error Resume Next
If .Range("D3", Range("D" & Rows.count).End(xlUp)).Offset(1, 0).SpecialCells(xlCellTypeVisible).Value = "" Then
MsgBox "vs4 is zero"
V_S4 = 0
ThisWorkbook.Sheets(3).Range("E5").Value = V_S4
Else
V_S4 = .Range("D3", Range("D" & Rows.count).End(xlUp)).SpecialCells(xlCellTypeVisible).count
ThisWorkbook.Sheets(3).Range("E5").Value = V_S4
End If

Answer 1

Dim lrow, i As Integer

lrow = Cells(rows.Count, 4).End(xlUp).Row + 1

i = WorksheetFunction.CountA(Range("D1:D" & lrow).SpecialCells(xlCellTypeVisible)) - 1

If i=0 then
MsgBox "vs4 is zero"
V_S4 = 0
Else

我相信這應該可行，請告訴我結果，如果需要，我很想再給它一次。