Как да скриете редове въз основа на цвета на клетката в Excel?
В работния лист на Excel имам списък с клетки, които имат много различни цветове, сега трябва да скрия всички светлосини редове, както е показано на следната екранна снимка, как бихте могли да се справите с тази задача в Excel бързо и лесно?
Скриване на редове въз основа на цвета на клетката с VBA код
Скрийте редове въз основа на цвета на клетката с Kutools за Excel
Скриване на редове въз основа на цвета на клетката с VBA код
За да скриете редове въз основа на конкретен цвят на фона, следният VBA код може да ви помогне, моля, направете следното:
1. Задръжте натиснат ALT + F11 ключове, след това отваря Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в Модули Window.
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 за Excel
Ако имате Kutools за Excel, Със своята Изберете Клетки с формат можете първо да изберете конкретни цветни клетки и след това да ги скриете наведнъж.
Kutools за Excel : с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. |
След инсталиране Kutools за Excel, моля, направете следното:
1. Щракнете Kutools > Изберете > Изберете Клетки с формат, вижте екранна снимка:
2. В Изберете Клетки с формат диалогов прозорец, направете следните операции:
(1.) Щракнете бутон, за да изберете диапазона от данни, който искате да използвате;
(2.) След това щракнете Изберете Форматиране от клетка бутон, за да изберете конкретната цветна клетка, въз основа на която искате да скриете редове;
(3.) Всички атрибути на конкретната клетка са изброени в списъка, моля, просто проверете Цвят на фона под Напълнете раздел.
3, След това кликнете Ok всички клетки с конкретния цвят са избрани наведнъж и след това щракнете Начало > формат > Скриване и показване > Скриване на редове, вижте екранна снимка:
4. И тогава избраните клетки с конкретния цвят са скрити, вижте екранната снимка:
Щракнете върху Безплатно изтегляне на Kutools за Excel сега!
Демонстрация: Скриване на редове въз основа на цвета на клетката с Kutools за Excel
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!