Skip i'r prif gynnwys

Sut i guddio rhesi yn seiliedig ar liw celloedd yn Excel?

doc cuddio rhesi yn ôl lliw 1

Yn nhaflen waith Excel, mae gen i restr o gelloedd sydd â llawer o wahanol liwiau, nawr, mae angen i mi guddio'r holl resi lliw glas golau fel y dangosir y llun isod, sut allech chi ddelio â'r dasg hon yn Excel yn gyflym ac yn hawdd?

Cuddio rhesi yn seiliedig ar liw celloedd gyda chod VBA

Cuddio rhesi yn seiliedig ar liw celloedd gyda Kutools ar gyfer Excel


Cuddio rhesi yn seiliedig ar liw celloedd gyda chod VBA

I guddio rhesi yn seiliedig ar liw cefndir penodol, gall y cod VBA canlynol eich helpu chi, gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi, yna mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Cuddio rhesi yn seiliedig ar liw celloedd:

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. Yna pwyswch F5 allwedd i redeg y cod hwn, ac mae blwch prydlon yn cael ei popio allan i'ch atgoffa i ddewis y celloedd rydych chi am eu defnyddio, gweler y screenshot:

doc cuddio rhesi yn ôl lliw 2

4. Ac yna cliciwch OK botwm, mae'r holl gelloedd lliw glas golau wedi'u cuddio ar unwaith, gweler y screenshot:

doc cuddio rhesi yn ôl lliw 1

Nodiadau:

1. Yn y cod uchod, y rhif 20 o fewn y sgript hon Os xRg.Range ("A" & I) .Interior.ColorIndex = 20 Yna yw'r rhif mynegai lliw, gallwch ei newid yn ôl yr angen.

2. Os nad ydych yn siŵr y rhif mynegai lliw, dylech gymhwyso'r cod canlynol i gael y mynegai lliw yr ydych am ei wybod:

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

Ac yna nodwch y fformiwla: = GetColor (A2) i ddychwelyd rhif mynegai lliw penodol y cefndir yng nghell A2, rydych chi'n newid A2 i eraill yn ôl yr angen.


Cuddio rhesi yn seiliedig ar liw celloedd gyda Kutools ar gyfer Excel

Os oes gennych Kutools ar gyfer Excel, Gyda'i Dewiswch Gelloedd gyda Fformat cyfleustodau, gallwch ddewis y celloedd lliw penodol yn gyntaf, ac yna eu cuddio ar unwaith.

Kutools ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. 

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel a ganlyn:

1. Cliciwch Kutools > dewiswch > Dewiswch Gelloedd gyda Fformat, gweler y screenshot:

2. Yn y Dewiswch Gelloedd gyda Fformat blwch deialog, gwnewch y gweithrediadau isod:

(1.) Cliciwch doc cuddio rhesi yn ôl lliw 5botwm i ddewis yr ystod ddata rydych chi am ei defnyddio;

(2.) Yna cliciwch Dewiswch Fformat O Gell botwm i ddewis y gell liw benodol rydych chi am guddio rhesi yn seiliedig arni;

(3.) Mae holl briodoleddau'r gell benodol wedi'u rhestru yn y blwch rhestr, gwiriwch Lliw cefndir O dan y Llenwch adran hon.

doc cuddio rhesi yn ôl lliw 4

3. Yna cliciwch Ok botwm, mae'r holl gelloedd sydd â'r lliw penodol wedi'u dewis ar unwaith, ac yna cliciwch Hafan > fformat > Cuddio a Dadorchuddio > Cuddio Rhesi, gweler y screenshot:

doc cuddio rhesi yn ôl lliw 6

4. Ac yna mae'r celloedd a ddewiswyd gyda'r lliw penodol wedi'u cuddio, gweler y screenshot:

doc cuddio rhesi yn ôl lliw 7

Cliciwch Am Ddim Lawrlwytho Kutools ar gyfer Excel Nawr!


Demo: Cuddio rhesi yn seiliedig ar liw celloedd gyda Kutools ar gyfer Excel

Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch a threial am ddim Nawr!

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
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!
This comment was minimized by the moderator on the site
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!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations