Sut i guddio rhesi yn seiliedig ar liw celloedd yn Excel?
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:
4. Ac yna cliciwch OK botwm, mae'r holl gelloedd lliw glas golau wedi'u cuddio ar unwaith, gweler y screenshot:
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 botwm 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.
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:
4. Ac yna mae'r celloedd a ddewiswyd gyda'r lliw penodol wedi'u cuddio, gweler y screenshot:
Cliciwch Am Ddim Lawrlwytho Kutools ar gyfer Excel Nawr!
Demo: Cuddio rhesi yn seiliedig ar liw celloedd gyda Kutools ar gyfer Excel
Offer Cynhyrchiant Swyddfa Gorau
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...
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!