Hur döljer jag rader baserat på cellfärg i Excel?
I Excel-kalkylbladet har jag en lista över celler som har många olika färger, nu måste jag dölja alla ljusblåfärgade rader som följande skärmdump visas, hur kan du hantera den här uppgiften i Excel snabbt och enkelt?
Dölj rader baserat på cellfärg med VBA-kod
För att dölja rader baserat på en viss bakgrundsfärg kan följande VBA-kod hjälpa dig, gör så här:
1. Håll ner ALT + F11 och sedan öppnas Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.
VBA-kod: Dölj rader baserat på cellfärg:
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. Tryck sedan på F5 nyckel för att köra den här koden och en snabbruta visas för att påminna dig om att välja cellerna du vill använda, se skärmdump:
4. Och klicka sedan på OK -knappen, alla ljusblå celler har döljts på en gång, se skärmdump:
Anmärkningar:
1. I ovanstående kod, numret 20 inom detta skript Om xRg.Range ("A" och I) .Interior.ColorIndex = 20 Då är färgindexnumret, du kan ändra det efter behov.
2. Om du inte är säker på färgindexnumret bör du använda följande kod för att få det färgindex som du vill veta:
Function GetColor(r As Range) As Integer
GetColor = r.Interior.ColorIndex
End Function
Och ange sedan formeln: = GetColor (A2) för att returnera det specifika färgindexnumret för bakgrunden i cell A2, ändrar du A2 till andra efter behov.
Dölj rader baserat på cellfärg med Kutools för Excel
Om du har Kutools för Excel, med dess Välj celler med format verktyget kan du först välja de specifika färgade cellerna och sedan dölja dem på en gång.
| Kutools för Excel : med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. |
När du har installerat Kutools för Excel, gör så här:
1. Klicka Kutools > Välja > Välj celler med format, se skärmdump:
2. I Välj celler med format dialogrutan, gör följande åtgärder:
(1.) Klicka på 
knappen för att välja det dataintervall som du vill använda;
(2.) Klicka sedan på Välj Format från cell knapp för att välja den specifika färgade cellen som du vill dölja rader baserat på;
(3.) Alla attribut för den specifika cellen har listats i listrutan, kontrollera bara Bakgrundsfärg under Fyll sektion.
3. Klicka sedan Ok knappen har alla celler med den specifika färgen valts på en gång och klicka sedan på Hem > bildad > Dölj och dölj > Dölj rader, se skärmdump:
4. Och sedan döljs de valda cellerna med den specifika färgen, se skärmdump:
Klicka på Gratis nedladdning Kutools för Excel nu!
Demo: Dölj rader baserat på cellfärg med Kutools för Excel
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
