Wenn Sie gleichzeitig an mehreren Arbeitsmappen arbeiten und ein Makro benötigen, um alle inaktiven Arbeitsmappen auszublenden, wird Ihnen dieser Artikel auf jeden Fall helfen.
In diesem Artikel konzentrieren wir uns darauf, wie wir mehrere Arbeitsmappen ausblenden können, die Sie derzeit nicht verwenden.
Frage: Ich muss schnell alle Excel-Dateien außer der, die ich gerade verwende, ausblenden, damit ich reibungslos zwischen anderen Anwendungen wechseln kann. Ich möchte VBA-Code für diese einzigartige Anforderung von mir suchen.
Um den Code zum Ausblenden aller inaktiven Arbeitsmappen zu erhalten, müssen wir die folgenden Schritte ausführen, um den VB-Editor zu starten
- Klicken Sie auf die Registerkarte Entwickler
- Wählen Sie aus der Gruppe Code die Option Visual Basic
- Kopieren Sie den folgenden Code in das Arbeitsblattmodul
Sub HideInactiveExcelWorkbooks() Application.ScreenUpdating = False Dim aWin As Window Set aWin = ActiveWindow Dim win As Window For Each Win In Application.Windows win.Visible = False Next win aWin.Visible = True Application.ScreenUpdating = True End Sub
- Der obige Code blendet alle inaktiven Arbeitsmappen sofort aus
Hinweis: Das obige Makro blendet die aktive Arbeitsmappe nicht aus.
Um alle Arbeitsmappen einzublenden, müssen wir die folgenden Schritte ausführen:
- Klicken Sie auf die Registerkarte Ansicht
- Klicken Sie auf Einblenden
- Dadurch werden die Arbeitsmappen einblenden
- Wenn Sie jeden auswählen und auf die Schaltfläche OK klicken, wird die Arbeitsmappe eingeblendet
Abschluss: Wir können Hunderte von Arbeitsmappen, die nicht aktiv sind, mit einem einzigen Klick mit dem obigen Makrocode ausblenden.
Wenn Ihnen unsere Blogs gefallen haben, teilen Sie sie mit Ihren Freunden auf Facebook. Und Sie können uns auch auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern, ergänzen oder erneuern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site