Ինչպե՞ս թաքցնել Excel- ում բջիջների գույնի վրա հիմնված շարքերը:
Excel- ի աշխատաթերթում ես ունեմ այն բջիջների ցուցակը, որոնք ունեն շատ տարբեր գույներ, հիմա ես պետք է թաքցնեմ բոլոր բաց կապույտ գունավոր շարքերը, ինչպես ցույց է տրված հետևյալ նկարը.
Թաքցնել տողերը, որոնք հիմնված են բջջային գույնի վրա, VBA կոդով
Թաքցնել տողերը ՝ հիմնված բջջային գույնի վրա, Kutools- ի համար Excel- ի համար
Թաքցնել տողերը, որոնք հիմնված են բջջային գույնի վրա, VBA կոդով
Հատուկ ֆոնի գույնի վրա հիմնված տողերը թաքցնելու համար հետևյալ VBA կոդը կարող է օգնել ձեզ, արեք հետևյալ կերպ.
1, Պահեք պահեք ALT + F11 ստեղները, ապա այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.
2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլներ Պատուհանը:
VBA կոդ. Թաքցնել տողերը ՝ հիմնված բջիջի գույնի վրա.
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, Դրանից հետո սեղմեք F5 այս կոդն աշխատեցնելու բանալին, և հուշվում է արագ տուփ ՝ հիշեցնելու համար, որ ընտրեք այն բջիջները, որոնք ցանկանում եք օգտագործել:
4. Եվ այնուհետեւ կտտացրեք OK կոճակը, բոլոր բաց կապույտ գունավոր բջիջները միանգամից թաքցվել են, տե՛ս նկարը.
Նշումներ:
1, Վերոնշյալ ծածկագրում `համարը 20 այս սցենարի շրջանակներում Եթե xRg.Range («Ա» և ես): Ներքին.Գույնի ցուցիչ = 20 Հետո գույնի ինդեքսի համարն է, այն կարող ես փոխել ըստ անհրաժեշտության:
2, Եթե վստահ չեք գույնի ցուցիչի համարին, ապա պետք է կիրառեք հետևյալ կոդը `ստանալու համար այն գույնի ցուցիչը, որը ցանկանում եք իմանալ.
Function GetColor(r As Range) As Integer
GetColor = r.Interior.ColorIndex
End Function
Եվ ապա մուտքագրեք բանաձեւը. = GetColor (A2) A2 բջիջում հետին պլանի գունային ցուցիչի հատուկ համարը վերադարձնելու համար A2- ը փոխում եք մյուսներին ՝ ըստ ձեզ:
Թաքցնել տողերը ՝ հիմնված բջջային գույնի վրա, Kutools- ի համար Excel- ի համար
Եթե դուք ունեք Excel- ի համար նախատեսված գործիքներԻր Ընտրեք բջիջները ֆորմատով օգտակարություն, նախ կարող եք ընտրել հատուկ գունավոր բջիջները, ապա միանգամից թաքցնել դրանք:
Excel- ի համար նախատեսված գործիքներ : ավելի քան 300 հարմար Excel հավելվածներով, 30 օրվա ընթացքում առանց սահմանափակումների փորձեք անվճար. |
Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներխնդրում եմ արեք հետևյալը.
1: Սեղմեք Կուտոլս > ընտրել > Ընտրեք բջիջները ֆորմատով, տես նկարի նկարը.
2, Մեջ Ընտրեք բջիջները ֆորմատով երկխոսության տուփ, կատարեք հետևյալ գործողությունները.
(1.) Կտտացրեք կոճակը ՝ տվյալների տիրույթը ընտրելու համար, որը ցանկանում եք օգտագործել;
(2.) Ապա կտտացրեք Ընտրեք ձևաչափը բջջից կոճակը ՝ ընտրելու այն հատուկ գունավոր բջիջը, որի հիման վրա ցանկանում եք թաքցնել շարքերը;
(3.) Հատուկ բջիջի բոլոր հատկանիշները նշված են ցուցակի վանդակում, խնդրում ենք պարզապես ստուգել Ֆոնի գույնը տակ Լրացնել բաժնում:
3. Այնուհետեւ կտտացրեք Ok կոճակը, հատուկ գույնով բոլոր բջիջները միանգամից ընտրվել են, ապա կտտացնել Գլխավոր > Ֆորմատ > Թաքցնել և ցուցադրել > Թաքցնել շարքերը, տես նկարի նկարը.
4, Եվ ապա հատուկ գույնով ընտրված բջիջները թաքնված են, տես նկարի նկարը.
Կտտացրեք անվճար ներբեռնման համար Excel- ի համար հիմա
Դեմո. Թաքցրեք տողերը ՝ հիմնված բջջային գույնի վրա, Excel- ի համար նախատեսված Kutools- ի միջոցով
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: