Note: The other languages of the website are Google-translated. Back to English
Vpiši se  \/ 
x
or
x
Registracija  \/ 
x

or

Kako skriti vrstice glede na barvo celice v Excelu?

doc skrij vrstice po barvi 1

V Excelovem delovnem listu imam seznam celic z različnimi barvami. Zdaj moram skriti vse svetlo modre vrstice, kot je prikazano na spodnji sliki, kako bi se lahko hitro in enostavno spopadli s to nalogo v Excelu?

Skrij vrstice glede na barvo celice s kodo VBA

Skrij vrstice glede na barvo celice s programom Kutools za Excel


Skrij vrstice glede na barvo celice s kodo VBA

Če želite skriti vrstice glede na določeno barvo ozadja, vam bo morda v pomoč naslednja koda VBA, naredite naslednje:

1. Držite tipko ALT + F11 tipke, nato odpre Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Skrij vrstice glede na barvo celice:

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. Nato pritisnite F5 tipko za zagon te kode in pojavilo se bo pozivno polje, ki vas bo opomnilo, da izberete celice, ki jih želite uporabiti, glejte posnetek zaslona:

doc skrij vrstice po barvi 2

4. In nato kliknite OK gumba so naenkrat skrite vse svetlo modre celice, glej posnetek zaslona:

doc skrij vrstice po barvi 1

Opombe:

1. V zgornji kodi številka 20 v tem skriptu Če xRg.Range ("A" & I) .Interior.ColorIndex = 20 Nato je številka barvnega indeksa, ki jo lahko spremenite po potrebi.

2. Če niste prepričani v številko barvnega indeksa, uporabite naslednjo kodo, da dobite želeni barvni indeks:

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

In nato vnesite formulo: = GetColor (A2) če želite vrniti določeno številko barvnega indeksa ozadja v celici A2, spremenite A2 v druge, kot potrebujete.


Skrij vrstice glede na barvo celice s programom Kutools za Excel

Če imate Kutools za Excel, Z njegovim Izberite Celice z obliko Pripomoček lahko najprej izberete določene barvne celice in jih nato hkrati skrijete.

Kutools za Excel : z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite v 30 dneh. 

Po namestitvi Kutools za Excel, naredite naslednje:

1. Kliknite Kutools > Izberite > Izberite Celice z obliko, glej posnetek zaslona:

2. v Izberite Celice z obliko v pogovornem oknu izvedite spodnje postopke:

(1.) Kliknite doc skrij vrstice po barvi 5gumb, da izberete obseg podatkov, ki ga želite uporabiti;

(2.) Nato kliknite Izberite Oblika iz celice gumb, da izberete določeno barvno celico, na podlagi katere želite skriti vrstice;

(3.) Vsi atributi določene celice so bili navedeni v seznamskem polju, samo preverite Barva ozadja pod Izpolnite oddelek.

doc skrij vrstice po barvi 4

3. Nato kliknite Ok gumba so naenkrat izbrane vse celice z določeno barvo in nato kliknite Domov > oblikovana > Skrij in razkrij > Skrij vrstice, glej posnetek zaslona:

doc skrij vrstice po barvi 6

4. Nato so izbrane celice z določeno barvo skrite, glejte posnetek zaslona:

doc skrij vrstice po barvi 7

Kliknite Prosti prenos Kutools za Excel zdaj!


Predstavitev: Skrij vrstice glede na barvo celice s programom Kutools za Excel

Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Prenesite in brezplačno preskusite zdaj!

Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2019 in 365. Podpira vse jezike. Preprosta namestitev v vašem podjetju ali organizaciji. Vse funkcije 30-dnevnega brezplačnega preskusa. 60-dnevno jamstvo za vračilo denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Brice · 2 years ago
    Is it possible to use the code with conditional formatting? I tried the code but it only worked on standardly colored cells, not on those which got the color from a conditional formatting.
    In my case, the rows should be hidden when the cell in column C is gray (colorindex = 15). But the row should be shown again, when the cell changes color to white again. Is this possible?
    Thanks!
  • To post as a guest, your comment is unpublished.
    Nikki · 3 years ago
    Thank you!!! I came across the macro you wrote above and had 1000s of rows to hide based on one color... your macro and directions worked wonderfully! I appreciate your help!