Թաքցնել/ցուցադրել անհարկի տողեր և սյունակներ

Խնդրի ձևակերպում

Ենթադրենք, մենք ունենք այնպիսի սեղան, որի հետ պետք է ամեն օր «պարել».

 

Ում համար աղյուսակը փոքր է թվում, մտովի բազմապատկեք այն քսան անգամ ըստ տարածքի, ավելացնելով ևս մի քանի բլոկ և երկու տասնյակ խոշոր քաղաքներ: 

Խնդիրն այն է, որ էկրանից ժամանակավորապես հեռացնել այն տողերն ու սյունակները, որոնք ներկայումս աշխատանքի համար ավելորդ են, այսինքն. 

  • թաքցնել մանրամասները ըստ ամիսների՝ թողնելով միայն քառորդներ
  • թաքցնել գումարներն ըստ ամիսների և եռամսյակների՝ թողնելով միայն ընդհանուրը կես տարի
  • թաքցնել քաղաքները, որոնք այս պահին ավելորդ են (ես աշխատում եմ Մոսկվայում. ինչո՞ւ պետք է տեսնեմ Սանկտ Պետերբուրգը) և այլն։

Իրական կյանքում նման սեղանների օրինակների ծով կա:

Մեթոդ 1. Թաքցնել տողերը և սյունակները

Մեթոդը, անկեղծ ասած, պարզունակ է և ոչ այնքան հարմար, բայց դրա մասին կարելի է երկու բառ ասել. Թերթի վրա նախկինում ընտրված ցանկացած տող կամ սյունակ կարող է թաքցվել՝ աջ սեղմելով սյունակի կամ տողի վերնագրի վրա և ընտրելով հրամանը համատեքստի ընտրացանկից: Թաքցնել (Թաքցնել):

 

Հակադարձ ցուցադրման համար ընտրեք հարակից տողեր/սյունակներ և աջ սեղմելով ընտրացանկից ընտրեք համապատասխանաբար՝ ցուցադրել (Բացահայտել).

Խնդիրն այն է, որ յուրաքանչյուր սյունակի և տողի հետ պետք է գործ ունենալ առանձին, ինչը անհարմար է:

Մեթոդ 2. Խմբավորում

Եթե ​​ընտրում եք մի քանի տող կամ սյունակ, այնուհետև ընտրեք ընտրացանկից Տվյալներ – Խումբ և կառուցվածք – Խումբ (Տվյալներ — Խումբ և ուրվագիծ — Խումբ), ապա դրանք կփակվեն քառակուսի փակագծում (խմբավորված)։ Ավելին, խմբերը կարող են բույն դրվել միմյանց մեջ (թույլատրվում է մինչև 8 բնադրման մակարդակ).

Ավելի հարմար և արագ միջոց է օգտագործել ստեղնաշարի դյուրանցումը նախապես ընտրված տողերը կամ սյունակները խմբավորելու համար: Alt+Shift+աջ սլաք, և խմբավորումից հանելու համար Alt+Shift+Ձախ սլաք, Համապատասխանաբար.

Ավելորդ տվյալները թաքցնելու այս մեթոդը շատ ավելի հարմար է. կարող եք կամ սեղմել կոճակի վրա «+"Կամ"-կամ թերթի վերին ձախ անկյունում թվային խմբավորման մակարդակ ունեցող կոճակների վրա, այնուհետև ցանկալի մակարդակի բոլոր խմբերը միանգամից կփլուզվեն կամ կընդլայնվեն:

Այնպես որ, եթե ձեր աղյուսակը պարունակում է ամփոփ տողեր կամ սյունակներ՝ հարևան բջիջների գումարման գործառույթով, այսինքն, հնարավորություն (ոչ 100% ճիշտ), որ Excel-ը նա կստեղծի բոլոր անհրաժեշտ խմբերը աղյուսակում մեկ շարժումով՝ մենյուի միջոցով Տվյալներ – Խումբ և կառուցվածք – Ստեղծեք կառուցվածք (Տվյալներ - Խումբ և ուրվագիծ - Ստեղծեք ուրվագիծ). Ցավոք սրտի, նման ֆունկցիան աշխատում է շատ անկանխատեսելի և երբեմն բարդ աղյուսակների վրա կատարում է ամբողջական անհեթեթություն: Բայց դուք կարող եք փորձել:

Excel 2007 և ավելի նոր տարբերակում այս բոլոր ուրախությունները ներդիրում են Ամսաթիվ (Ամսաթիվ) խմբում   կառուցվածք (Ուրվագիծ):

Մեթոդ 3. Նշված տողերը/սյունակները թաքցնել մակրոյով

Այս մեթոդը, թերեւս, ամենաբազմակողմանին է: Եկեք մեր թերթի սկզբում ավելացնենք դատարկ տող և դատարկ սյունակ և ցանկացած պատկերակով նշենք այն տողերն ու սյունակները, որոնք ցանկանում ենք թաքցնել.

Հիմա եկեք բացենք Visual Basic խմբագրիչը (ALT + F11), տեղադրեք նոր դատարկ մոդուլ մեր գրքում (մենյու Ներդիր – մոդուլ) և այնտեղ պատճենեք երկու պարզ մակրոների տեքստը.

Sub Hide() Dim cell As Range Application.ScreenUpdating = False 'Անջատել էկրանի թարմացումը ActiveSheet-ի յուրաքանչյուր բջիջի համար արագացնելու համար.UsedRange.Rows(1):Cells 'Iterate բոլոր բջիջների վրա առաջին շարքում Եթե cell.Value = "x Այնուհետև բջիջ .EntireColumn.Hidden = True 'եթե x բջիջում - թաքցնել սյունակը Հաջորդը ActiveSheet-ի յուրաքանչյուր բջիջի համար.UsedRange.Columns(1). Բջիջները 'անցնում են առաջին սյունակի բոլոր բջիջներով Եթե cell.Value = "x" Ապա cell.EntireRow.Hidden = True 'եթե x բջիջում - թաքցնել տողը Հաջորդ Application.ScreenUpdating = True End Sub Show() Columns.Hidden = False 'չեղարկել բոլոր թաքցնող տողերը և սյունակները Rows.Hidden = False End Sub Show()  

Ինչպես կարող եք կռահել, մակրո Թաքցնել թաքցնում և մակրո ցուցադրում – Ցուցադրում է ետ պիտակավորված տողերն ու սյունակները: Ցանկության դեպքում մակրոներին կարող են նշանակվել թեժ ստեղներ (Alt + F8 և կոճակը Պարամետրեր), կամ ստեղծեք կոճակներ անմիջապես թերթիկի վրա՝ դրանք ներդիրից գործարկելու համար Մշակող – Տեղադրել – Կոճակ (Մշակող — Տեղադրել — կոճակ).

Մեթոդ 4. Տրված գույնով տողեր/սյունակներ թաքցնելը

Ասենք, որ վերը նշված օրինակում մենք, ընդհակառակը, ցանկանում ենք թաքցնել տոտալները, այսինքն՝ մանուշակագույն և սև տողերը և դեղին ու կանաչ սյունակները։ Այնուհետև մեր նախորդ մակրոն պետք է մի փոքր փոփոխվի՝ ավելացնելով «x»-ի առկայությունը ստուգելու փոխարեն լրացման գույնը պատահականորեն ընտրված բջիջների հետ համապատասխանեցնելու ստուգում.

Sub HideByColor() Dim cell As Range Application.ScreenUpdating = False ActiveSheet-ի յուրաքանչյուր բջիջի համար.UsedRange.Rows(2).Cells If cell.Interior.Color = Range("F2").Interior.Color Այնուհետեւ cell.EntireColumn.Hidden = True If cell.Interior.Color = Range("K2").Interior.Color Այնուհետեւ cell.EntireColumn.Hidden = True Next For ActiveSheet.UsedRange.Columns(2).Cells If cell.Interior.Color = Range ("D6").Interior.Color Այնուհետեւ cell.EntireRow.Hidden = True Եթե cell.Interior.Color = Range("B11").Interior.Color Այնուհետեւ cell.EntireRow.Hidden = True Next Application.ScreenUpdating = True End Sub  

Այնուամենայնիվ, մենք չպետք է մոռանանք մեկ նախազգուշացման մասին. այս մակրոն աշխատում է միայն այն դեպքում, եթե սկզբնաղբյուրի աղյուսակի բջիջները ձեռքով լցված են գույներով և չօգտագործելով պայմանական ձևաչափում (սա Interior.Color հատկության սահմանափակում է): Այսպիսով, օրինակ, եթե դուք ավտոմատ կերպով ընդգծեցիք ձեր աղյուսակի բոլոր գործարքները, որտեղ թիվը 10-ից փոքր է, օգտագործելով պայմանական ձևաչափումը.

Թաքցնել/ցուցադրել անհարկի տողեր և սյունակներ

… և դուք ցանկանում եք թաքցնել դրանք մեկ շարժումով, ապա նախորդ մակրոները պետք է «ավարտվեն»: Եթե ​​ունեք Excel 2010-2013, ապա կարող եք դուրս գալ՝ օգտագործելով սեփականության փոխարեն Բնավորությունը սեփականություն DisplayFormat.Interior, որը թողարկում է բջիջի գույնը՝ անկախ նրանից, թե ինչպես է այն դրվել: Կապույտ գծերը թաքցնելու մակրոն կարող է այսպիսի տեսք ունենալ.

Sub HideByConditionalFormattingColor() Dim բջիջը որպես միջակայքի Application.ScreenUpdating = False ActiveSheet.UsedRange.Columns(1) յուրաքանչյուր բջիջի համար.Cells If cell.DisplayFormat.Interior.Color = Range("G2").DisplayFormat.Interior .EntireRow.Hidden = True Next Application.ScreenUpdating = True End Sub  

G2 բջիջը վերցվում է որպես նմուշ գույների համեմատության համար: Ցավոք, գույքը DisplayFormat Excel-ում հայտնվել է միայն 2010 թվականի տարբերակից սկսած, այնպես որ, եթե ունեք Excel 2007 կամ ավելի հին, դուք ստիպված կլինեք այլ ուղիներ գտնել:

  • Ինչ է մակրո, որտեղ տեղադրել մակրո կոդը, ինչպես օգտագործել դրանք
  • Ավտոմատ խմբավորում բազմաստիճան ցուցակներում

 

Թողնել գրառում