አላስፈላጊ ረድፎችን እና አምዶችን መደበቅ/ማሳየት

የችግሩ መፈጠር

በየቀኑ “መጨፈር” ያለብን እንደዚህ ያለ ጠረጴዛ አለን እንበል።

ጠረጴዛው ትንሽ የሚመስለው ለማን - በአዕምሯዊ ሁኔታ ሃያ ጊዜ በየአካባቢው በማባዛት, ሁለት ተጨማሪ ብሎኮችን እና ሁለት ደርዘን ትላልቅ ከተሞችን ይጨምሩ. 

ተግባሩ ለጊዜው ለስራ አላስፈላጊ የሆኑትን ረድፎችን እና አምዶችን ከማያ ገጹ ላይ ማስወገድ ነው። 

• ዝርዝሮችን በወር ይደብቁ ፣ ሩብ ብቻ ይተዉ
• ጠቅላላውን በወራት እና በሩብ ይደብቁ, አጠቃላይውን ለግማሽ ዓመት ብቻ ይተው
• በአሁኑ ጊዜ አላስፈላጊ የሆኑትን ከተሞች ደብቅ (በሞስኮ እሰራለሁ - ለምን ሴንት ፒተርስበርግ ማየት አለብኝ?) ወዘተ.

በእውነተኛ ህይወት ውስጥ, የእንደዚህ አይነት ጠረጴዛዎች ምሳሌዎች ባህር አለ.

ዘዴ 1: ረድፎችን እና አምዶችን መደበቅ

ዘዴው, እውነቱን ለመናገር, ጥንታዊ እና በጣም ምቹ አይደለም, ነገር ግን ስለ እሱ ሁለት ቃላት መናገር ይቻላል. በአንድ ሉህ ላይ ከዚህ ቀደም የተመረጡ ረድፎች ወይም አምዶች በአምዱ ወይም ረድፉ ራስጌ ላይ በቀኝ ጠቅ በማድረግ ከአውድ ምናሌው ውስጥ ትዕዛዙን በመምረጥ ሊደበቅ ይችላል ደብቅ (ደብቅ):

ለተገላቢጦሽ ማሳያ ፣ በአቅራቢያ ያሉ ረድፎችን / አምዶችን ይምረጡ እና በቀኝ ጠቅ በማድረግ ከምናሌው ውስጥ በቅደም ተከተል ይምረጡ ። ማሳያ (አትደብቅ).

ችግሩ እያንዳንዱን አምድ እና ረድፍ በተናጥል መቋቋም አለብህ, ይህ ደግሞ የማይመች ነው.

ዘዴ 2. መቧደን

ብዙ ረድፎችን ወይም አምዶችን ከመረጡ እና ከዚያ ከምናሌው ውስጥ ይምረጡ ውሂብ - ቡድን እና መዋቅር - ቡድን (ውሂብ - ቡድን እና ዝርዝር - ቡድን), ከዚያም በካሬ ቅንፍ (በቡድን) ውስጥ ይዘጋሉ. በተጨማሪም ቡድኖች እርስ በእርሳቸው ሊጣበቁ ይችላሉ (እስከ 8 የመክተቻ ደረጃዎች ይፈቀዳሉ)

ይበልጥ ምቹ እና ፈጣን መንገድ አስቀድመው የተመረጡ ረድፎችን ወይም አምዶችን ለመቧደን የቁልፍ ሰሌዳ አቋራጭ መጠቀም ነው። Alt+Shift+ቀኝ ቀስት, እና ለማሰባሰብ Alt+Shift+ግራ ቀስት, ይቀጥላል.

ይህ አላስፈላጊ መረጃን የመደበቅ ዘዴ የበለጠ ምቹ ነው - በ "" ቁልፍን ጠቅ ማድረግ ይችላሉ.+"ወይም"-"፣ ወይም በሉሁ በላይኛው ግራ ጥግ ላይ ያለው የቁጥራዊ ቡድን ደረጃ ባላቸው አዝራሮች ላይ - ከዚያ ሁሉም የተፈለገው ደረጃ ቡድኖች በአንድ ጊዜ ይወድቃሉ ወይም ይሰፋሉ።

በተጨማሪም, ሠንጠረዥዎ የአጎራባች ህዋሶችን የማጠቃለል ተግባር ያላቸው ማጠቃለያ ረድፎችን ወይም አምዶችን ከያዘማለትም የ Excel እድል (100% እውነት አይደለም) ሁሉንም አስፈላጊ ቡድኖች ይፈጥራል በጠረጴዛው ውስጥ ከአንድ እንቅስቃሴ ጋር - በምናሌው በኩል ውሂብ - ቡድን እና መዋቅር - መዋቅር ይፍጠሩ (ውሂብ - ቡድን እና አውትላይን - Outline ይፍጠሩ). እንደ አለመታደል ሆኖ, እንዲህ ዓይነቱ ተግባር በጣም ባልተጠበቀ ሁኔታ ይሰራል እና አንዳንድ ጊዜ ውስብስብ በሆኑ ጠረጴዛዎች ላይ ሙሉ በሙሉ የማይረባ ነው. ግን መሞከር ይችላሉ.

በኤክሴል 2007 እና አዲስ፣ እነዚህ ሁሉ ደስታዎች በትሩ ላይ ናቸው። መረጃ (ቀን) በቡድን   አወቃቀር (ኦውላይን):

ዘዴ 3. ምልክት የተደረገባቸውን ረድፎች/አምዶች በማክሮ መደበቅ

ይህ ዘዴ ምናልባት በጣም ሁለገብ ሊሆን ይችላል. ባዶ ረድፍ እና ባዶ አምድ ወደ ሉህ መጀመሪያ እንጨምር እና ልንደብቃቸው የምንፈልጋቸውን ረድፎች እና አምዶች በማንኛውም አዶ ምልክት እናድርግ።

አሁን ቪዥዋል ቤዚክ አርታዒን እንክፈተው (ALT + F11አዲስ ባዶ ሞጁል ወደ መጽሐፋችን አስገባ (ምናሌ አስገባ - ሞጁል) እና የሁለት ቀላል ማክሮዎችን ጽሑፍ እዚያ ይቅዱ።

ንዑስ ደብቅ() ደብዛዛ ሕዋስ እንደ ክልል መተግበሪያ።ScreenUpdating = ሐሰት 'በActiveSheet ውስጥ ላለ ለእያንዳንዱ ሕዋስ ለማፍጠን ስክሪን ማዘመንን አሰናክል።UsedRange.ረድፎች(1)።ሴሎች 'በመጀመሪያው ረድፍ ካሉት ሕዋሶች ሁሉ ላይ ይለዋወጣል cell.Value = "x "ከዛ ሕዋስ .EntireColumn.Hidden = እውነት" በሴል ውስጥ ከሆነ x - አምድ ቀጣዩን ለእያንዳንዱ ሕዋስ በActive Sheet ውስጥ ደብቅ።UsedRange.Columns(1)።ሴሎች 'በመጀመሪያው አምድ በሁሉም ሴሎች ውስጥ ያልፋሉ cell ከሆነ እሴት = "x"ከዚያ cell.EntireRow.Hidden = እውነት 'በሴል ውስጥ ከሆነ x - ረድፉን ይደብቁ ቀጣይ መተግበሪያ።ScreenUpdating = True End Sub Show() Columns.Hidden = ሐሰት 'ሁሉንም መደበቂያ ረድፎች እና አምዶች ረድፎችን ሰርዝ። Hidden = የውሸት መጨረሻ ንዑስ  

እርስዎ እንደሚገምቱት, ማክሮ ደብቅ ይደብቃል እና ማክሮ አሳይ - ወደ ኋላ የተሰየሙ ረድፎችን እና አምዶችን ያሳያል። ከተፈለገ ማክሮዎች ትኩስ ቁልፎች ሊመደቡ ይችላሉ (Alt + F8 እና አዝራር ግቤቶች), ወይም ከትሩ ለማስጀመር አዝራሮችን በቀጥታ በሉሁ ላይ ይፍጠሩ ገንቢ - አስገባ - አዝራር (ገንቢ - አስገባ - አዝራር).

ዘዴ 4. ረድፎችን / አምዶችን በተሰጠው ቀለም መደበቅ

ከላይ በተጠቀሰው ምሳሌ ውስጥ እኛ በተቃራኒው ድምርን ማለትም ሐምራዊ እና ጥቁር ረድፎችን እና ቢጫ እና አረንጓዴ አምዶችን መደበቅ እንፈልጋለን እንበል. ከዚያ የቀደመውን ማክሮ የ “x” መኖርን ከመፈተሽ ይልቅ የመሙያውን ቀለም በዘፈቀደ ከተመረጡት የናሙና ህዋሶች ጋር ለማዛመድ ቼክ በመጨመር በትንሹ መሻሻል አለበት።

ንዑስ HideByColor() ደብዛዛ ሕዋስ እንደ ክልል አተገባበር።ScreenUpdating = በActive Sheet ውስጥ ለእያንዳንዱ ሕዋስ ውሸት።UsedRange.ረድፎች(2)ሴሎች ከሆነ ሕዋስ.ውስጥ።ቀለም = ክልል("F2")።ውስጥ።ቀለም ከዚያ ሕዋስ።EntireColumn.የተደበቀ። = እውነት ከሆነ cell.Interior.Color = ክልል("K2").Interior.ቀለም ከዚያም cell.EntireColumn.Hidden = እውነት ቀጥሎ ለእያንዳንዱ ሕዋስ ActiveSheet.UsedRange.አምዶች(2) ሕዋሳት ከሆነ cell.Interior.Color = ክልል. ("D6").የውስጥ.ቀለም ከዚያም ሕዋስ.EntireRow.Hidden = እውነት ከሆነ cell.Interior.Color = ክልል("B11").Interior.ቀለም ከዚያም cell.EntireRow.Hidden = እውነተኛ ቀጣይ መተግበሪያ.ScreenUpdating = እውነተኛ መጨረሻ ንዑስ.  

ይሁን እንጂ ስለ አንድ ማስጠንቀቂያ መዘንጋት የለብንም-ይህ ማክሮ የሚሠራው የምንጭ ጠረጴዛው ሴሎች በእጅ ቀለም ከተሞሉ ብቻ ነው, እና ሁኔታዊ ቅርጸትን የማይጠቀሙ ከሆነ (ይህ የአገር ውስጥ ውስንነት ነው የቀለም ንብረት ). ስለዚህ፣ ለምሳሌ፣ ሁኔታዊ ፎርማትን በመጠቀም ቁጥሩ ከ10 በታች የሆነባቸውን ሁሉንም ስምምነቶች በሰንጠረዥዎ ውስጥ በራስ ሰር ካደሉ፡

… እና እነሱን በአንድ እንቅስቃሴ መደበቅ ትፈልጋለህ፣ ከዚያ የቀደመው ማክሮ “መጨረስ” አለበት። ኤክሴል 2010-2013 ካለህ ከንብረቱ ይልቅ በመጠቀም መውጣት ትችላለህ ዉስጠ እየታ ንብረት DisplayFormat.Interior, እንዴት እንደተቀናበረ ሳይወሰን የሴሉን ቀለም የሚያወጣው. ሰማያዊ መስመሮችን ለመደበቅ ማክሮው እንደዚህ ሊመስል ይችላል-

ንዑስ HideByConditionalFormattingColor() Dim cell As Range Application.ScreenUpdating = ሐሰት ለእያንዳንዱ ሕዋስ በActiveSheet.UsedRange.Columns(1) .ሕዋስ ከሆነ ሕዋስ.ማሳያFormat.Interior.Color = ክልል("G2").ማሳያFormat.Interior.ቀለም ከዚያም ሕዋስ. .EntireRow.Hidden = True Next Application.ScreenUpdating = True End Sub  

ሴል G2 ለቀለም ንጽጽር እንደ ናሙና ይወሰዳል. እንደ አለመታደል ሆኖ ንብረቱ የማሳያ ቅርጸት በኤክሴል የታየው ከ2010 ስሪት ጀምሮ ብቻ ነው፣ ስለዚህ ኤክሴል 2007 ወይም ከዚያ በላይ ካለህ ሌሎች መንገዶችን መፍጠር አለብህ።

• ማክሮ ምንድን ነው, ማክሮ ኮድ የት እንደሚያስገባ, እንዴት እንደሚጠቀሙባቸው
• በባለብዙ ደረጃ ዝርዝሮች ውስጥ በራስ-ሰር መቧደን