Скрыть ячейку в excel по цвету

Скрыть строки на основе цвета ячейки с кодом VBA

Чтобы скрыть строки на основе определенного цвета фона, вам может помочь следующий код VBA, сделайте следующее:

1. Удерживайте ALT + F11 ключи, затем он открывает Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.

Код VBA: скрыть строки в зависимости от цвета ячейки:

Sub Hidebycolor()
'Updateby Extendoffice
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.Columns(1).AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.Columns(1).AddressLocal
    End If
LInput:
    Set xRg = Application.InputBox("Range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "does not support multiple selections", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "the selection is not more than 1 column", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    On Error Resume Next
    Application.ScreenUpdating = False
    For I = 1 To xRg.Count
        If xRg.Range("A" & I).Interior.ColorIndex = 20 Then
            xRg.Range("A" & I).EntireRow.Hidden = True
        End If
    Next 'i
    Application.ScreenUpdating = True
End Sub

3, Затем нажмите F5 нажмите клавишу для запуска этого кода, и появится диалоговое окно с напоминанием о выборе ячеек, которые вы хотите использовать, см. снимок экрана:

4, Затем нажмите OK кнопки, все ячейки голубого цвета были скрыты сразу, см. снимок экрана:

Ноты:

1. В приведенном выше коде число 20 в этом сценарии Если xRg.Range («A» & I) .Interior.ColorIndex = 20 Затем стоит порядковый номер цвета, вы можете изменить его по своему усмотрению.

2. Если вы не уверены в номере индекса цвета, вам следует применить следующий код, чтобы получить индекс цвета, который вы хотите знать:

Function GetColor(r As Range) As Integer
GetColor = r.Interior.ColorIndex
End Function

А затем введите формулу: = GetColor (A2) чтобы вернуть конкретный номер индекса цвета фона в ячейке A2, вы измените A2 на другие по мере необходимости.

Скрыть строки на основе цвета ячейки с помощью Kutools for Excel

Если у вас есть Kutools for Excel, С его Выбрать ячейки с форматом вы можете сначала выбрать определенные цветные ячейки, а затем сразу скрыть их.

После установки Kutools for Excel, пожалуйста, сделайте следующее:

1. Нажмите Кутулс > Выберите > Выбрать ячейки с форматом, см. снимок экрана:

2. В Выбрать ячейки с форматом диалоговом окне выполните следующие операции:

(1.) Щелкните кнопка для выбора диапазона данных, который вы хотите использовать;

(2.) Затем щелкните Выбрать формат из ячейки кнопка для выбора определенной цветной ячейки, по которой вы хотите скрыть строки;

(3.) Все атрибуты конкретной ячейки были перечислены в списке, пожалуйста, просто отметьте Цвет фона под Заполнять .

3. Затем нажмите Ok кнопка, все ячейки с определенным цветом были выбраны сразу, а затем нажмите Главная > Формат > Скрыть и показать > Скрыть строки, см. снимок экрана:

4. И затем выбранные ячейки с определенным цветом скрываются, см. Снимок экрана:

Нажмите Скачать бесплатно Kutools for Excel от Yhao сейчас!

Демонстрация: скрыть строки в зависимости от цвета ячейки с помощью Kutools for Excel

Здравствуйте, уже писала выше, поэтому решила написать в эту тему.  
У меня вот какая ситуация — есть файл, где строки таблицы проставлены тремя разными цветами заливки (зеленый, красный и без заливки), задача стоит сделать так, чтоб можно было посмотреть либо только зеленые строки, либо красные, либо без заливки, либо каких-то двух цветов разом. Решить эту задачу я решила так — поместила на лист три флажка и кнопку, типа выбери флажками, что нужно и отфильтруй, как это выглядит скин во вложении.  
Код программы написала простенький, хотя длинновато получилось))  

  Sub Кнопка5_Щелчок()  
If ActiveSheet.CheckBoxes(1).Value = False Then  
Call flag_1_snat  
Else  
Call flag_1_stoit  
End If  

  If ActiveSheet.CheckBoxes(2).Value = False Then  
Call flag_2_snat  
Else  
Call flag_2_stoit  
End If  

  If ActiveSheet.CheckBoxes(3).Value = False Then  
Call flag_3_snat  
Else  
Call flag_3_stoit  
End If  
End Sub  

      Sub flag_1_snat()  
Dim iLastRow As Long  
iLastRow = Cells(Rows.Count).End(xlUp).Row  
For i = 8 To 16  
If Cells(i, 1).Interior.ColorIndex = 35 Then  
Rows(i).Hidden = True  
End If  
Next  
End Sub  

  Sub flag_1_stoit()  
Dim iLastRow As Long  
iLastRow = Cells(Rows.Count).End(xlUp).Row  
For i = 8 To 16  
If Cells(i, 1).Interior.ColorIndex = 35 Then  
Rows(i).Hidden = False  
End If  
Next  
End Sub  

  Sub flag_2_snat()  
Dim iLastRow As Long  
iLastRow = Cells(Rows.Count).End(xlUp).Row  
For i = 8 To 16  
If Cells(i, 1).Interior.ColorIndex = 19 Then  
Rows(i).Hidden = True  
End If  
Next  
End Sub  

  Sub flag_2_stoit()  
Dim iLastRow As Long  
iLastRow = Cells(Rows.Count).End(xlUp).Row  
For i = 8 To 16  
If Cells(i, 1).Interior.ColorIndex = 19 Then  
Rows(i).Hidden = False  
End If  
Next  
End Sub  

  Sub flag_3_snat()  
Dim iLastRow As Long  
iLastRow = Cells(Rows.Count).End(xlUp).Row  
For i = 8 To 16  
If Cells(i, 1).Interior.ColorIndex = -4142 Then  
Rows(i).Hidden = True  
End If  
Next  
End Sub  

  Sub flag_3_stoit()  
Dim iLastRow As Long  
iLastRow = Cells(Rows.Count).End(xlUp).Row  
For i = 8 To 16  
If Cells(i, 1).Interior.ColorIndex = -4142 Then  
Rows(i).Hidden = False  
End If  
Next  
End Sub  

  Вопрос: код раньше выдавал ошибку, теперь не выдаёт, но и ничего не происходит. Коды цветов верные.  
Помогите, пожалуйста!!! Очень нужно! Заранее огромное спасибо!

1. В диапазоне ячеек или столбце таблицы щелкните ячейку с определенным цветом, цветом шрифта или значком, по которому требуется выполнить фильтрацию.

2. На вкладке Данные нажмите кнопку Фильтр.

   

3. Щелкните стрелку в столбце с содержимым, которое вы хотите отфильтровать.

4. В разделе Фильтр во всплывающем меню По цвету щелкните Цвет ячейки, Цвет шрифта или Значок ячейки и выберите условия.

   

1. В диапазоне ячеек или столбце таблицы щелкните ячейку с определенным цветом, цветом шрифта или значком, по которому вы хотите выполнить фильтрацию.

2. На панели инструментов Стандартная нажмите кнопку Фильтр .

3. Щелкните стрелку в столбце с содержимым, которое нужно отфильтровать.

4. В разделе Фильтр во всплывающем меню По цвету щелкните Цвет ячейки, Цвет шрифта или Значок ячейки и выберите цвет.