Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

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 Lawrlwytho Am Ddim 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!

Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
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!