Ausblenden/Anzeigen unnötiger Zeilen und Spalten

Formulierung des Problems

Angenommen, wir haben einen solchen Tisch, mit dem wir jeden Tag „tanzen“ müssen:

 

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

Die Aufgabe besteht darin, Zeilen und Spalten, die derzeit für die Arbeit nicht benötigt werden, vorübergehend vom Bildschirm zu entfernen, dh 

  • verstecken Sie die Details nach Monat und lassen Sie nur Quartale übrig
  • Blenden Sie Summen nach Monaten und Quartalen aus und lassen Sie nur die Summe für ein halbes Jahr
  • Städte verstecken, die im Moment unnötig sind (ich arbeite in Moskau – warum sollte ich mir St. Petersburg ansehen?), etc.

Im wirklichen Leben gibt es ein Meer von Beispielen für solche Tabellen.

Methode 1: Ausblenden von Zeilen und Spalten

Die Methode ist ehrlich gesagt primitiv und nicht sehr praktisch, aber zwei Worte können darüber gesagt werden. Alle zuvor ausgewählten Zeilen oder Spalten auf einem Blatt können ausgeblendet werden, indem Sie mit der rechten Maustaste auf die Spalten- oder Zeilenüberschrift klicken und den Befehl aus dem Kontextmenü auswählen Verbergen (Ausblenden):

 

Für umgekehrte Darstellung benachbarte Zeilen/Spalten auswählen und per Rechtsklick jeweils aus dem Menü auswählen, Display (Einblenden).

Das Problem ist, dass Sie jede Spalte und Zeile einzeln behandeln müssen, was umständlich ist.

Methode 2. Gruppierung

Wenn Sie mehrere Zeilen oder Spalten auswählen und dann aus dem Menü auswählen Daten – Gruppe und Struktur – Gruppe (Daten – Gruppe und Gliederung – Gruppe), dann werden sie in eckige Klammern eingeschlossen (gruppiert). Außerdem können Gruppen ineinander verschachtelt werden (bis zu 8 Verschachtelungsebenen sind erlaubt):

Ein bequemerer und schnellerer Weg ist die Verwendung einer Tastenkombination zum Gruppieren vorausgewählter Zeilen oder Spalten. Alt+Umschalt+Rechtspfeil, und zum Aufheben der Gruppierung Alt+Umschalt+Linkspfeil, Bzw.

Diese Methode zum Ausblenden unnötiger Daten ist viel bequemer – Sie können entweder auf die Schaltfläche mit dem „+" oder "-“, oder auf die Schaltflächen mit einer numerischen Gruppierungsebene in der oberen linken Ecke des Blattes – dann werden alle Gruppen der gewünschten Ebene auf einmal ein- oder ausgeklappt.

Ebenfalls, wenn Ihre Tabelle Zusammenfassungszeilen oder -spalten mit der Funktion enthält, benachbarte Zellen zu summieren, das heißt, eine Chance (nicht 100% wahr), dass Excel Er erstellt alle erforderlichen Gruppen in der Tabelle mit einem Handgriff – durch das Menü Daten – Gruppe und Struktur – Struktur schaffen (Daten – Gruppe und Gliederung – Gliederung erstellen). Leider arbeitet eine solche Funktion sehr unvorhersehbar und macht bei komplexen Tabellen manchmal völligen Unsinn. Aber du kannst es versuchen.

In Excel 2007 und neuer sind all diese Freuden auf der Registerkarte Datum (Datum) in einer Gruppe   Struktur (Umriss):

Methode 3. Markierte Zeilen/Spalten mit einem Makro ausblenden

Diese Methode ist vielleicht die vielseitigste. Fügen wir am Anfang unseres Blattes eine leere Zeile und eine leere Spalte hinzu und markieren Sie mit einem beliebigen Symbol die Zeilen und Spalten, die wir ausblenden möchten:

Öffnen wir nun den Visual Basic Editor (ALT + F11), fügen Sie ein neues leeres Modul in unser Buch ein (menu Einfügen – Modul) und kopiere dort den Text zweier einfacher Makros:

Sub Hide() Dim cell As Range Application.ScreenUpdating = False 'Bildschirmaktualisierung deaktivieren, um die Geschwindigkeit zu erhöhen For Each cell In ActiveSheet.UsedRange.Rows(1).Cells 'Über alle Zellen in der ersten Zeile iterieren If cell.Value = "x " Then cell .EntireColumn.Hidden = True 'wenn in Zelle x - Spalte verstecken Next For Each cell In ActiveSheet.UsedRange.Columns(1).Cells 'durch alle Zellen der ersten Spalte gehen If cell.Value = "x" Then cell.EntireRow.Hidden = True 'wenn in Zelle x - die nächste Zeile ausblenden Application.ScreenUpdating = True End Sub Sub Show() Columns.Hidden = False 'Alles Verstecken von Zeilen und Spalten aufheben Rows.Hidden = False End Sub  

Wie Sie sich vorstellen können, das Makro Verbergen versteckt und das Makro Anzeigen – Zeigt rückseitig beschriftete Zeilen und Spalten an. Auf Wunsch können Makros Hotkeys zugewiesen werden (Alt + F8 und Knopf Parameter), oder erstellen Sie Schaltflächen direkt auf dem Blatt, um sie von der Registerkarte aus zu starten Entwickler – Einfügen – Schaltfläche (Entwickler – Einfügen – Schaltfläche).

Methode 4. Ausblenden von Zeilen/Spalten mit einer bestimmten Farbe

Nehmen wir an, im obigen Beispiel möchten wir im Gegenteil die Summen ausblenden, dh lila und schwarze Zeilen und gelbe und grüne Spalten. Dann muss unser vorheriges Makro leicht modifiziert werden, indem anstelle der Prüfung auf das Vorhandensein von „x“ eine Prüfung hinzugefügt wird, ob die Füllfarbe mit zufällig ausgewählten Beispielzellen übereinstimmt:

Sub HideByColor() Dim cell As Range Application.ScreenUpdating = False For Each cell In ActiveSheet.UsedRange.Rows(2).Cells If cell.Interior.Color = Range("F2").Interior.Color Then cell.EntireColumn.Hidden = True Wenn cell.Interior.Color = Range("K2").Interior.Color Then cell.EntireColumn.Hidden = True Weiter für jede Zelle in ActiveSheet.UsedRange.Columns(2).Cells Wenn cell.Interior.Color = Range ("D6").Interior.Color Then cell.EntireRow.Hidden = True If cell.Interior.Color = Range("B11").Interior.Color Then cell.EntireRow.Hidden = True Next Application.ScreenUpdating = True End Sub  

Wir dürfen jedoch einen Vorbehalt nicht vergessen: Dieses Makro funktioniert nur, wenn die Zellen der Quelltabelle manuell mit Farbe gefüllt wurden und keine bedingte Formatierung verwendet wird (dies ist eine Einschränkung der Eigenschaft Interior.Color). Wenn Sie beispielsweise automatisch alle Deals in Ihrer Tabelle markiert haben, bei denen die Zahl kleiner als 10 ist, indem Sie die bedingte Formatierung verwenden:

Ausblenden/Anzeigen unnötiger Zeilen und Spalten

… und Sie möchten sie in einem Zug ausblenden, dann muss das vorherige Makro „fertig“ gemacht werden. Wenn Sie Excel 2010-2013 haben, können Sie mit statt der Eigenschaft aussteigen Interieur Resorts DisplayFormat.Interior, die die Farbe der Zelle ausgibt, unabhängig davon, wie sie festgelegt wurde. Das Makro zum Ausblenden der blauen Linien könnte dann so aussehen:

Sub HideByConditionalFormattingColor() Dim cell As Range Application.ScreenUpdating = False For Each cell In ActiveSheet.UsedRange.Columns(1).Cells If cell.DisplayFormat.Interior.Color = Range("G2").DisplayFormat.Interior.Color Then cell .EntireRow.Hidden = True Nächste Anwendung.ScreenUpdating = True End Sub  

Zelle G2 wird als Probe für den Farbvergleich genommen. Leider das Anwesen Anzeigeformat erschien in Excel erst ab Version 2010, also wenn Sie Excel 2007 oder älter haben, müssen Sie sich andere Wege einfallen lassen.

  • Was ist ein Makro, wo fügt man Makrocode ein, wie benutzt man sie
  • Automatische Gruppierung in mehrstufigen Listen

 

Hinterlassen Sie uns einen Kommentar