问对已自动筛选的行应用大于逻辑

EN

Sub ZZZ()
    Dim rng As Range, rngVisible As Range, rngRow As Range, delay_count As Double
    Set rng = Range("$A$1:$X$3432")
    '// Get visible cells excluding header
    With rng
        Set rngVisible = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
    End With
    '// Must use "Cells" when dealing with "Rows" property
    For Each rngRow In rngVisible.Rows
        delay_count = delay_count + IIf(rngRow.Cells(1, "O") > rngRow.Cells(1, "X"), 1, 0)
    Next
End Sub

Private Sub CommandButton1_Click()

Dim F11, F22, Month, Year As Variant
  Dim f_name1, f_name2
  Dim wb1, wb2, wb3, wb4 As Workbook
  Dim sht1, sht2, sht3, sht4 As Worksheet
  Dim Total_DCR As Long
  Dim StartDate, EndDate As Date

'Select Product Backlog File
 F11 = Application.GetOpenFilename("check (*.xlsm*), *.xlsm*")
  If (F11 <> vbNullString) Then
    If (F11 <> "False") Then
      f_name1 = F11
    End If
  End If
  If (f_name1 = "") Then
    MsgBox "The check file must be specified."
    Exit Sub
  End If

Set wb1 = Excel.Workbooks.Open(f_name1)
Set sht1 = wb1.Sheets("Product Backlog")


Set wb3 = ThisWorkbook
Set sht3 = wb3.Sheets("check")
With sht3

        StartDate = sht3.Range("J3").Value
        'Debug.Print StartDate

        If IsDate(StartDate) = True Then
        MsgBox ("The following string is a valid date expression")
        Else
        'if its not a date expression show a message box
        MsgBox ("The following string is not a valid date expression")
        End If

        EndDate = sht3.Range("J4").Value
        'Debug.Print EndDate

End With

wb1.Activate
sht1.Activate
    sht1.Columns("O:O").Select
    wb1.Worksheets("Product Backlog").Sort.SortFields.Clear
    wb1.Worksheets("Product Backlog").Sort.SortFields.Add2 Key:=Range( _
        "O1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal

With wb1.Worksheets("Product Backlog").Sort
        .SetRange Range("O1:O3437")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply

End With


sht1.Range("$A$1:$X$3432").AutoFilter Field:=15, Criteria1:= _
        ">=" & CDbl(StartDate), Operator:=xlAnd, Criteria2:="<=" & CDbl(EndDate)

With sht1
    Total_DCR = WorksheetFunction.Subtotal(102, ActiveSheet.Range("O1:O5000").Columns(1))
    Debug.Print Total_DCR
End With
 Dim rng As Range, rngVisible As Range, rngRow As Range, delay_count As Double
    Set rng = Range("$A$1:$X$5000")
    '// Get visible cells excluding header
    With rng
        Set rngVisible = .Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
    End With
    '// Must use "Cells" when dealing with "Rows" property
    For Each rngRow In rngVisible.Rows
        delay_count = delay_count + IIf(rngRow.Cells(1, "O") > rngRow.Cells(1, "X"), 1, 0)
    Next
MsgBox ("total delay DCR is" & delay_count)

End Sub