隐藏excel工作簿中的行，不包括单元格颜色 - vba宏

Question

I have the macro that will hide the rows with specific cell color, but i need the other way around. Hide all the rows in entire workbook excluding specific colors.

Sub Hiderows()
Dim r As Range
Application.ScreenUpdating = False
Range("A7").Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    For Each r In Selection
        If r.Interior.Color = RGB(255, 124, 128) Or r.Interior.Color = RGB(255, 255, 163) Then
            r.EntireRow.Hidden = True
        End If
    Next
Range("A7").Select
Application.ScreenUpdating = True
End Sub

Note: - The <> sign is not working here. - Also is there any way, as i can speedup the execution

Thanks,

Answer 1

OK, i see the problem now.

The object is to check multiple cells in a row, hiding that row if it doesn't have a color. But if Cell B8 has the target color... what happens if A8 doesn't? A8 triggers the logic and hides the row. Whoops.

Give this a try. It reads the whole row checking for the color and, once found, stops reading that row and processes the hide logic, and then moves on to the next row:

Sub Hiderows()
    Dim r As Range
    Dim hasColor As Boolean
    hasColor = False

    Application.ScreenUpdating = False
    Range("A7").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
        For Each r In Selection.Rows
            For Each c In r.Columns
                If c.Interior.Color = RGB(255, 124, 128) Or c.Interior.Color = RGB(255, 255, 163) Then
                    hasColor = True
                    Exit For
                End If
            Next

            r.EntireRow.Hidden = Not hasColor
            hasColor = False
        Next
    Range("A7").Select
    Application.ScreenUpdating = True
End Sub