באַהאַלטן / ווייַזן ומנייטיק ראָוז און שפאלטן

פאָרמולאַטיאָן פון די פּראָבלעם

רעכן מיר האָבן אַזאַ אַ טיש וואָס מיר האָבן צו "טאַנצן" מיט יעדער טאָג:

To whom the table seems small – mentally multiply it twenty times by area, adding a couple more blocks and two dozen large cities. 

די אַרבעט איז צו טעמפּערעראַלי באַזייַטיקן ראָוז און שפאלטן פון דעם עקראַן וואָס זענען דערווייַל ומנייטיק פֿאַר אַרבעט, ד"ה, 

• באַהאַלטן דעטאַילס דורך חודש, געלאזן בלויז קוואַרטערס
• באַהאַלטן טאָוטאַלז דורך חדשים און קוואַרטערס, געלאזן בלויז די גאַנץ פֿאַר אַ האַלב יאָר
• באַהאַלטן שטעט וואָס זענען ומנייטיק אין דער מאָמענט (איך אַרבעט אין מאָסקווע - וואָס זאָל איך זען פעטערבורג?), אאז"ו ו.

אין פאַקטיש לעבן, עס זענען אַ ים פון ביישפילן פון אַזאַ טישן.

אופֿן 1: כיידינג ראָוז און שפאלטן

דער אופֿן, פראַנגקלי, איז פּרימיטיוו און נישט זייער באַקוועם, אָבער צוויי ווערטער קענען זיין געזאָגט וועגן אים. קיין פריער אויסגעקליבן ראָוז אָדער שפאלטן אויף אַ בויגן קענען זיין פאַרבאָרגן דורך רעכט-קליקינג אויף די זייַל אָדער רודערן כעדער און סעלעקטירן דעם באַפֿעל פון די קאָנטעקסט מעניו באַהאַלטן (באַהאַלטן):

פֿאַר פאַרקערט ווייַז, סעלעקטירן שכייניש ראָוז / שפאלטן און, דורך רעכט-קליקינג, סעלעקטירן פון די מעניו ריספּעקטיוולי, אַרויסווייַזן (אויסבאהאלטן).

די פּראָבלעם איז אַז איר האָבן צו האַנדלען מיט יעדער זייַל און רודערן ינדיווידזשואַלי, וואָס איז ומבאַקוועם.

אופֿן 2. גרופּינג

אויב איר אויסקלייַבן קייפל ראָוז אָדער שפאלטן און דעמאָלט אויסקלייַבן פון די מעניו דאַטאַ - גרופע און סטרוקטור - גרופע (דאַטאַ - גרופע און אַוטליין - גרופע), דעמאָלט זיי וועלן זיין ענקלאָוזד אין אַ קוואַדראַט קלאַמער (גרופּט). דערצו, גרופּעס קענען זיין נעסטעד איינער אין אנדערן (אַרויף צו 8 נעסטינג לעוועלס זענען ערלויבט):

א מער באַקוועם און פאַסטער וועג איז צו נוצן אַ קלאַוויאַטור דורכוועג צו גרופּע פאַר-סעלעקטעד ראָוז אָדער שפאלטן. אַלט + שיפט + רעכט פייַל, און פֿאַר אַנגרופּינג אַלט + שיפט + לינקס פייַל, ריספּעקטיוולי.

דעם אופֿן פון כיידינג ומנייטיק דאַטן איז פיל מער באַקוועם - איר קענען אָדער גיט אויף די קנעפּל מיט די "+"אָדער"-", אָדער אויף די קנעפּלעך מיט אַ נומעריקאַל גרופּינג מדרגה אין דער אויבערשטער לינקס ווינקל פון די בלאַט - דעמאָלט אַלע גרופּעס פון דער געוואלט מדרגה וועט זיין קאַלאַפּסט אָדער יקספּאַנדיד אין אַמאָל.

אויך, אויב דיין טיש כּולל קיצער ראָוז אָדער שפאלטן מיט די פונקציע פון ​​סאַמינג ארומיקע סעלז, וואָס איז, אַ געלעגנהייַט (ניט 100% אמת) אַז עקססעל ער וועט מאַכן אַלע די נייטיק גרופּעס אין די טיש מיט איין באַוועגונג - דורך די מעניו דאַטאַ - גרופע און סטרוקטור - שאַפֿן סטרוקטור (דאַטן - גרופע און אַוטליין - שאַפֿן אַוטליין). צום באַדויערן, אַזאַ אַ פֿונקציע אַרבעט זייער אַנפּרידיקטאַבלי און מאל טוט גאַנץ ומזין אויף קאָמפּלעקס טישן. אָבער איר קענען פּרובירן.

אין עקססעל 2007 און נייַער, אַלע די דזשויס זענען אויף די קוויטל דאַטע (דאַטע) אין גרופּע   ביניען (אויסלייג):

אופֿן 3. כיידינג אנגעצייכנט ראָוז / שפאלטן מיט אַ מאַקראָו

דעם אופֿן איז טאָמער די מערסט ווערסאַטאַל. לאָמיר לייגן אַ ליידיק רודערן און אַ ליידיק זייַל צו די אָנהייב פון אונדזער בלאַט און צייכן מיט קיין ייקאַן די ראָוז און שפאלטן וואָס מיר ווילן צו באַהאַלטן:

איצט לאָזן אונדז עפענען די וויסואַל באַסיק עדיטאָר (ALT + F11), אַרייַנלייגן אַ נייַ ליידיק מאָדולע אין אונדזער בוך (מעניו אַרייַנלייגן - מאָדולע) און נאָכמאַכן די טעקסט פון צוויי פּשוט מאַקראָס דאָרט:

Sub Hide() Dim cell As Range Application.ScreenUpdating = פאַלש 'דיסאַבלע פאַרשטעלן אַפּדייטינג צו פאַרגיכערן פֿאַר יעדער צעל אין ActiveSheet.UsedRange.Rows(1).Cells 'יטעראַטע איבער אַלע סעלז אין דער ערשטער רודערן אויב cell.Value = "x "און צעל .EntireColumn.Hidden = אמת 'אויב אין צעל רענטגענ - באַהאַלטן זייַל ווייַטער פֿאַר יעדער צעל אין ActiveSheet.UsedRange.Columns(1).Cells 'גיין דורך אַלע סעלז פון דער ערשטער זייַל אויב cell.Value = "X" דערנאָך cell.EntireRow.Hidden = אמת 'אויב אין צעל רענטגענ - באַהאַלטן די רודערן ווייַטער Application.ScreenUpdating = אמת סוף סוב ווייַזן () Columns.Hidden = פאַלש 'באָטל מאַכן אַלע כיידינג ראָוז און שפאלטן Rows.Hidden = פאַלש סוף סוב ווייַזן  

ווי איר קען טרעפן, די מאַקראָו באַהאַלטן כיידז און די מאַקראָו ווייַזן - דיספּלייז צוריק לייבאַלד ראָוז און שפאלטן. אויב געוואלט, מאַקראָס קענען זיין אַסיינד האָטקייס (אַלט + פקסנומקס און קנעפּל פּאַראַמעטערס), אָדער שאַפֿן קנעפּלעך גלייַך אויף די בויגן צו קאַטער זיי פֿון די קוויטל דעוועלאָפּער - אַרייַנלייגן - קנעפּל (דעוועלאָפּער - אַרייַנלייגן - קנעפּל).

אופֿן 4. כיידינג ראָוז / שפאלטן מיט אַ געגעבן קאָליר

זאל ס זאָגן אַז אין די אויבן בייַשפּיל, מיר, פֿאַר די פאַרקערט, ווילן צו באַהאַלטן די טאָוטאַלז, ד"ה לילאַ און שוואַרץ ראָוז און געל און גרין שפאלטן. דערנאָך אונדזער פריערדיקן מאַקראָו וועט זיין אַ ביסל מאַדאַפייד דורך אַדינג, אַנשטאָט פון קאָנטראָלירן פֿאַר די בייַזייַן פון "X", אַ טשעק פֿאַר וואָס ריכטן די פילונג קאָליר מיט ראַנדאַמלי אויסגעקליבן מוסטער סעלז:

Sub HideByColor() דיק צעל ווי ראַנגע אַפּפּליקאַטיאָן.סקריןופּדאַטינג = פאַלש פֿאַר יעדער צעל אין אַקטיוועשעעט.וסעדראַנגע.ראָווס(2).Cells אויב cell.Interior.Color = Range("F2").Interior.Color דעמאָלט cell.EntireColumn.Hidden = אמת אויב cell.Interior.Color = Range("K2").Interior.Color און cell.EntireColumn.Hidden = True Next For each cell In ActiveSheet.UsedRange.Columns(2).Cells If cell.Interior.Color = Range ("ד6"). ינטעריאָר.קאָלאָר דען cell.EntireRow.Hidden = אמת אויב cell.Interior.Color = ראַנגע ("ב11"). ינטעריאָר.קאָלאָר דעמאָלט cell.EntireRow.Hidden = True Next Application.ScreenUpdating = אמת סוף סאַב.  

אָבער, מיר מוזן נישט פאַרגעסן וועגן איין קייוויאַט: דעם מאַקראָו אַרבעט נאָר אויב די סעלז פון די מקור טיש זענען אָנגעפילט מיט קאָליר מאַניואַלי, און נישט ניצן קאַנדישאַנאַל פאָרמאַטטינג (דאָס איז אַ באַגרענעצונג פון די ינטעריאָר.קאָלאָר פאַרמאָג). אַזוי, פֿאַר בייַשפּיל, אויב איר אויטאָמאַטיש כיילייטיד אַלע דילז אין דיין טיש ווו די נומער איז ווייניקער ווי 10 ניצן קאַנדישאַנאַל פאָרמאַטטינג:

... און איר ווילן צו באַהאַלטן זיי אין איין באַוועגונג, די פריערדיקע מאַקראָו וועט זיין "פאַרטיק". אויב איר האָבן עקססעל 2010-2013, איר קענען באַקומען אויס ניצן אַנשטאָט פון די פאַרמאָג ינלענדיש פאַרמאָג DisplayFormat.Interior, וואָס אַוטפּוץ די קאָליר פון די צעל, ראַגאַרדלאַס פון ווי עס איז געווען באַשטימט. דער מאַקראָו צו באַהאַלטן די בלוי שורות קען זיין ווי דאָס:

Sub HideByConditionalFormattingColor() טונקל צעל ווי ראַנגע אַפּפּליקאַטיאָן.סקריןופּדאַטינג = פאַלש פֿאַר יעדער צעל אין אַקטיוועשעעט.וסעדראַנגע.קאָלומן(1).Cells אויב cell.DisplayFormat.Interior.Color = Range("G2").DisplayFormat.Interior.Color דעמאָלט צעל. .EntireRow.Hidden = True Next Application.ScreenUpdating = True End Sub  

צעל ג 2 איז גענומען ווי אַ מוסטער פֿאַר קאָליר פאַרגלייַך. צום באַדויערן די פאַרמאָג DisplayFormat ארויס אין עקססעל בלויז סטאַרטינג פון די 2010 ווערסיע, אַזוי אויב איר האָבן עקססעל 2007 אָדער עלטער, איר וועט האָבן צו קומען אַרויף מיט אנדערע וועגן.

• וואָס איז אַ מאַקראָו, ווו צו אַרייַנלייגן מאַקראָו קאָד, ווי צו נוצן זיי
• אָטאַמאַטיק גרופּינג אין מולטילעוועל רשימות