Ħabi/turi ringieli u kolonni mhux meħtieġa

Formulazzjoni tal-problema

Ejja ngħidu li għandna mejda bħal din li għandna "niżfin" magħha kuljum:

 

Lil min it-tabella tidher żgħira - immoltiplikaha mentalment għoxrin darba skond iż-żona, u żżid ftit blokki oħra u żewġ tużżani bliet kbar. 

Il-kompitu huwa li tneħħi temporanjament mill-iskrin ringieli u kolonni li bħalissa mhumiex meħtieġa għax-xogħol, jiġifieri, 

  • aħbi d-dettalji skond ix-xahar, u tħalli biss kwarti
  • aħbi t-totali b'xhur u kwarti, u tħalli biss it-total għal nofs sena
  • naħbi bliet li mhumiex meħtieġa bħalissa (naħdem f'Moska - għaliex għandi nara San Pietruburgu?), eċċ.

Fil-ħajja reali, hemm baħar ta 'eżempji ta' tabelli bħal dawn.

Metodu 1: Ħabi ringieli u kolonni

Il-metodu, franchement, huwa primittiv u mhux konvenjenti ħafna, iżda jistgħu jingħadu żewġ kelmiet dwaru. Kwalunkwe ringieli jew kolonni magħżula qabel fuq folja jistgħu jiġu moħbija billi tikklikkja bil-lemin fuq l-intestatura tal-kolonna jew ringiela u tagħżel il-kmand mill-menu tal-kuntest Aħbi (Aħbi):

 

Għall-wiri b'lura, agħżel ringieli / kolonni maġenb u, billi tikklikkja bil-lemin, agħżel mill-menu, rispettivament, wiri (Aħbi).

Il-problema hija li trid tittratta kull kolonna u ringiela individwalment, li hija inkonvenjenti.

Metodu 2. Raggruppament

Jekk tagħżel ringieli jew kolonni multipli u mbagħad agħżel mill-menu Data – Grupp u Struttura – Grupp (Data — Grupp u Outline — Grupp), imbagħad ikunu magħluqa f'parentesi kwadri (raggruppati). Barra minn hekk, il-gruppi jistgħu jitbejtu wieħed ma' ieħor (sa 8 livelli ta' bejta huma permessi):

Mod aktar konvenjenti u aktar mgħaġġel huwa li tuża shortcut tat-tastiera biex tiggruppa ringieli jew kolonni magħżula minn qabel. Alt+Shift+Vleġġa Lemin, u għat-tqassim Alt+Shift+Vleġġa tax-Xellug, rispettivament.

Dan il-metodu ta’ taħbi ta’ data mhux meħtieġa huwa ħafna aktar konvenjenti – tista’ jew tikklikkja fuq il-buttuna bil-“+"Jew"-", jew fuq il-buttuni b'livell ta 'raggruppament numeriku fir-rokna ta' fuq tax-xellug tal-folja - allura l-gruppi kollha tal-livell mixtieq se jiġu mġarrfa jew estiżi f'daqqa.

Allura, jekk it-tabella tiegħek fiha ringieli jew kolonni fil-qosor bil-funzjoni li jinġabru ċelluli ġirien, jiġifieri, ċans (mhux 100% veru) li Excel se joħloq il-gruppi kollha meħtieġa fit-tabella b'moviment wieħed - permezz tal-menu Dejta - Grupp u Struttura - Oħloq Struttura (Data — Grupp u Outline — Oħloq Outline). Sfortunatament, funzjoni bħal din taħdem b'mod imprevedibbli ħafna u xi kultant ma tlesti nonsense fuq tabelli kumplessi. Imma tista' tipprova.

F'Excel 2007 u aktar ġodda, dawn il-ferħ kollha jinsabu fuq it-tab Data (Data) fil-grupp   struttura (Kontorn):

Metodu 3. Ħabi ta 'ringieli/kolonni mmarkati b'makro

Dan il-metodu huwa forsi l-aktar versatili. Ejja nżidu ringiela vojta u kolonna vojta fil-bidu tal-folja tagħna u nimmarka bi kwalunkwe ikona dawk ir-ringieli u kolonni li rridu naħbu:

Issa ejja niftħu l-Editur Bażiku Viżwali (ALT + F11), daħħal modulu vojt ġdid fil-ktieb tagħna (menu Daħħal – Modulu) u kkopja t-test ta' żewġ macros sempliċi hemmhekk:

Sub Hide() Dim cell As Range Application.ScreenUpdating = Falza 'Iżżejjen l-aġġornament tal-iskrin biex tħaffef Għal Kull ċellula F'ActiveSheet.UsedRange.Rows(1).Ċelloli 'Itertu fuq iċ-ċelloli kollha fl-ewwel ringiela Jekk cell.Value = "x " Imbagħad iċ-ċellula .EntireColumn.Hidden = Veru 'jekk fiċ-ċellula x - aħbi l-kolonna Li jmiss Għal Kull ċellula F'ActiveSheet.UsedRange.Columns (1). Iċ-ċelluli 'jgħaddu miċ-ċelloli kollha tal-ewwel kolonna Jekk iċ-ċellula.Valur = "x" Imbagħad cell.EntireRow.Hidden = Veru 'jekk fiċ-ċellula x - aħbi r-ringiela Next Application.ScreenUpdating = True End Sub Sub Show () Columns.Hidden = False 'ikkanċella r-ringieli u l-kolonni kollha li jaħbu Rows.Hidden = False End Sub

Kif inti tista 'raden, il-makro Aħbi ġlud u l-makro Uri – Juri ringieli u kolonni ttikkettjati lura. Jekk mixtieq, macros jistgħu jiġu assenjati hotkeys (Alt + F8 u buttuna parametri), jew toħloq buttuni direttament fuq il-folja biex tniedihom mit-tab Żviluppatur – Daħħal – Buttuna (Żviluppatur — Daħħal — Buttuna).

Metodu 4. Ħabi ta 'ringieli/kolonni b'kulur partikolari

Ejja ngħidu li fl-eżempju ta 'hawn fuq, aħna, għall-kuntrarju, irridu naħbu t-totali, jiġifieri ringieli vjola u iswed u kolonni sofor u ħodor. Imbagħad il-makro preċedenti tagħna se jkollu jiġi kemmxejn immodifikat billi żżid, minflok ma tiċċekkja l-preżenza ta '"x", verifika biex tqabbel il-kulur tal-mili ma' ċelloli tal-kampjun magħżula b'mod każwali:

Sub HideByColor() Dim cell As Range Application.ScreenUpdating = False Għal Kull ċellula F'ActiveSheet.UsedRange.Rows(2).Cells Jekk cell.Interior.Color = Range("F2").Interior.Color Imbagħad cell.EntireColumn.Hidden = Veru Jekk cell.Interior.Color = Medda("K2").Interior.Color Imbagħad cell.EntireColumn.Hidden = Veru Li jmiss Għal Kull ċellula F'ActiveSheet.UsedRange.Columns(2).Ċelloli Jekk cell.Interior.Color = Firxa ("D6").Interior.Color Imbagħad cell.EntireRow.Hidden = Veru Jekk cell.Interior.Color = Range("B11").Interior.Color Imbagħad cell.EntireRow.Hidden = Veru Applikazzjoni li jmiss.ScreenUpdating = True End Sub

Madankollu, m'għandniex ninsew dwar twissija waħda: din il-makro taħdem biss jekk iċ-ċelloli tat-tabella tas-sors kienu mimlija bil-kulur manwalment, u ma tużax ifformattjar kondizzjonali (din hija limitazzjoni tal-proprjetà Interior.Color). Allura, pereżempju, jekk awtomatikament enfasizzajt l-offerti kollha fit-tabella tiegħek fejn in-numru huwa inqas minn 10 billi tuża l-ifformattjar kondizzjonali:

Ħabi/turi ringieli u kolonni mhux meħtieġa

... u trid taħbihom f'mozzjoni waħda, allura l-makro preċedenti jkollha tkun "lesta". Jekk għandek Excel 2010-2013, allura tista 'toħroġ tuża minflok il-proprjetà Intern proprjetà DisplayFormat.Intern, li joħroġ il-kulur taċ-ċellula, irrispettivament minn kif ġiet issettjata. Il-makro biex taħbi l-linji blu tista 'mbagħad tidher bħal din:

Sub HideByConditionalFormattingColor() Dim cell As Range Application.ScreenUpdating = Falza Għal Kull ċellola F'ActiveSheet.UsedRange.Columns(1).Cells Jekk cell.DisplayFormat.Interior.Color = Range("G2").DisplayFormat.Interior.Color Imbagħad ċellola .EntireRow.Hidden = True Next Application.ScreenUpdating = True End Sub

Iċ-ċellula G2 tittieħed bħala kampjun għat-tqabbil tal-kulur. Sfortunatament il-proprjetà DisplayFormat deher f'Excel biss li jibda mill-verżjoni 2010, għalhekk jekk għandek Excel 2007 jew aktar, ser ikollok toħroġ b'modi oħra.

  • X'inhu makro, fejn daħħal il-kodiċi makro, kif tużahom
  • Raggruppament awtomatiku f'listi f'diversi livelli

 

Ħalli Irrispondi