Wie dynamisch ein- oder ausblenden Mehrere Tabs VBA in Excel
Stellen Sie sich eine Situation vor, in der Sie mehrere Blätter gleichzeitig ein- und ausblenden müssen. Wenn sich jemand manuell versteckt und einblendet, nimmt dies viel Zeit in Anspruch.
In diesem Artikel erfahren Sie, wie Sie mithilfe von VBA-Code mehrere Registerkarten dynamisch ein- oder ausblenden.
F): Ich möchte ein Makro, das mehrere Registerkarten gleichzeitig ein- oder ausblendet.
Es folgt eine Momentaufnahme von Blatt 1, in der zwei dynamische Listen vorhanden sind, d. H. Registerkarten ausblenden und Registerkarten einblenden
-
Die Idee ist, wenn wir auf die Schaltfläche Ausblenden oder Einblenden klicken, sollten die aufgelisteten Blätter ausgeblendet oder ausgeblendet werden. Wir müssen die folgenden Schritte ausführen:
Um das Ergebnis zu erhalten, müssen wir den VB-Editor starten. Klicken Sie auf die Registerkarte Entwickler. * Wählen Sie in der Gruppe Code Visual Basic
aus * Klicken Sie auf Einfügen und dann auf Modul
Dadurch wird ein neues Modul erstellt.
Geben Sie den folgenden Code in das Modul Sub ein. HideTabs () Dim TabNo As DoubleDim LastTab As Double LastTab = Bereich („Hide_TabsDNR“). .Visible = False Next TabNo On Error GoTo 0 Sheets (1) .Wählen Sie End Sub
===
Sub UnHideTabs ()
Dim TabNo As Double
Last LastTab As Double
LastTab = Range („Hide_TabsDNR“). Count
Bei Fehler Fortsetzen Weiter
Für TabNo = 2 To LastTab
Sheets (Range („UnHide_TabsDNR“) (TabNo)). Visible = True
Weiter TabNo
Bei Fehler GoTo 0
Blätter (1) .Wählen Sie
End Sub
-
Wir sind alle bereit, das Makro auszuführen. Wenn wir auf die Schaltfläche Ausblenden klicken, werden alle aufgelisteten Blätter ausgeblendet (siehe Schnappschuss
) * Wenn wir auf die Schaltfläche Einblenden klicken, werden alle in Spalte D genannten ausgeblendeten Blätter ausgeblendet.
Auf diese Weise können wir mehrere Registerkarten gleichzeitig dynamisch ein- oder ausblenden.