Wie Arbeitsblatt Tabs mit VBA ausblenden

Mitglieder-Login

InformationenSpreadsheets

Wie Excel ACCRINT Funktion Verwende… Excel ACCRINT Funktion berechnet aufgelaufenen Zinsen auf eine Investition, die eine periodische Zin
Wie behebe ich Fehler Lotus 123 ? Lotus 123 ist ein Tabellenkalkulationsprogramm, das den ursprünglichen IBM PC als Business-Class-
. Wie man eine E-Mail xlsx File Att… xlsx ist die Standard- Datei -Erweiterung für Microsoft Excel 2007. Dieser Dateityp ist ein Upgrade
Wie mehrere Arbeitsmappen Link Die Art der Tabellen ist es, Informationen in einer Reihe von Spalten und Zeilen zu speichern. Oft w

Software

HOME

* Computer Wissen >> Software >> Spreadsheets >> .

Wie Arbeitsblatt Tabs mit VBA ausblenden

In Microsoft Excel können Sie mit Visual Basic für Applikationen mit Arbeitsblättern zu arbeiten. Sie können erstellen, duplizieren , verschieben, löschen , sperren und verstecken Arbeitsblätter mit ein paar Zeilen Code. Oft , würden Sie wollen , um bestimmte Blätter in Ihrer Arbeitsmappe , insbesondere solche, die nicht formatiert Rohdaten und Berechnungen enthalten verstecken. Um ein Arbeitsblatt manuell und ohne den Einsatz von Makros zu verstecken , können Sie mit der rechten Maustaste auf die entsprechende Registerkarte , und wählen Sie "Hide" aus dem Menü. Ein einfaches Umschalten Makro kann Ihnen helfen, diese Aufgabe zu automatisieren , vor allem wenn man mit vielen Arbeitsblättern zu tun haben. Anleitung
1

Starten Sie Microsoft Excel. Drücken Sie "Strg + O ", wählen Sie die Arbeitsmappe, die die Blätter, die Sie verstecken sich gerne und dann auf eine enthält "Öffnen".
2

Presse " ALT + F8 ", um die "Makros " öffnen Fenster . Geben Sie " HideSheets " in die " Makro "-Feld und klicken Sie dann auf " Erstellen". Dies öffnet den VBA-Editor .
3

Geben Sie den folgenden Code in den VBA-Editor .

Sub HideSheets ()

wSheets = Array (" SHEET1 "," Tabelle2 "," Tabelle3 " )

wsstat = Worksheets ( wSheets (0)) . Visible

Wenn wsstat = xlSheetVisible Dann

wsstat = xlSheetHidden

Else

wsstat = xlSheetVisible

End If

Für n = 0 To UBound ( wSheets )

Worksheets ( wSheets ( n)). Visible = wsstat

Next n

End Sub
4

Ersetzen " SHEET1 ", " Tabelle2 " und " Tabelle3 " mit den Namen der Blätter , die Sie zu löschen. Sie können ein anderes Blatt zu der Liste hinzufügen, indem Sie seinen Namen angehängt in Anführungszeichen und mit einem vorangestellten Komma.