Question

下面提供的代码有2个问题。首先，当我使用自动过滤功能过滤列时。对于某些配置，它以正确的方式工作，但是当我在标准参数中更改字符串时，有时所有行都被隐藏。不知道为什么会这样。其他问题是IF循环问题。我正在与百分比值进行比较。

因此55％可以代表0.5512321，依此类推。与示例中一样，它仅发现低于50％的值。

Sub code()

Dim ws As Worksheet, example As Integer, rng As Range, cl As Range

Set ws = Sheets("THAT")
With ws
    On Error Resume Next
    .ShowAllData
    .Cells.AutoFilter Field:=16, Criteria1:="m_M"
    .Cells.AutoFilter Field:=18, Criteria1:=""
    .Cells.AutoFilter Field:=17, Criteria1:="m_C"

    Set rng = Range("T4", "T24000")
    For Each cl In rng.SpecialCells(xlCellTypeVisible)
        example = cl.value
        If example <= 0.6 Then
             cl.Interior.ColorIndex = 22
        Else
        End If
    Next cl
End With
Set ws = Nothing

End Sub

自动过滤器隐藏所有行和对于每个比较问题

0 个答案: