Wie man Blätter in Excel ausdauen: Zeigen Sie mehrere oder alle versteckten Laken

Dieses Tutorial zeigt Ihnen, wie Sie Arbeitsblätter in Excel 2016, 2013, 2010 und früheren Versionen abgeben können. Erfahren Sie schnelle Methoden mit der rechten Maustaste und VBA-Code, um versteckte Blätter zu enthüllen.

Szenario: Sie öffnen eine Tabelle und verweisen auf ein fehlendes Blatt. Die Registerkarte Blatt ist nicht sichtbar, und das Erstellen eines neuen Blattes mit demselben Namen schlägt fehl. Dies bedeutet, dass das Arbeitsblatt versteckt ist. Dieses Tutorial umfasst Handbuch und VBA-basierte Lösungen.

• Handbuch Blatt ungedeilt
• VBA-basierte ungehende
  • Alle Blätter verbinden
  • Nicht ausgewählte Blätter
  • Ungehende Blätter mit spezifischem Text in Namen
• Ungehäuter mit benutzerdefinierten Ansichten
• Überprüfen Sie nach versteckten Blättern
• Fehlerbehebung unheiliger Probleme

Unheilige Blätter manuell

Ein oder zwei Blätter auszuräumen:

1. Klicken Sie mit der rechten Maustaste auf eine Registerkarte "Blatt" und wählen Sie "Unhide ...".
2. Wählen Sie das versteckte Blatt (n) und klicken Sie auf "OK" (oder doppelklicken Sie auf den Blattnamen).

Alternativ können Sie über das Band auf den Dialog "Unhide" zugreifen:

• Excel 2003 und früher: Format > Blatt > unhid .
• Excel 2016, 2013, 2010, 2007: Home > Zellen > Format > Sichtbarkeit > Hide & Unhide > Unhide Sheet ....

HINWEIS: Excels "unhide" verarbeitet jeweils nur ein Blatt. Verwenden Sie für mehrere Blätter VBA -Makros.

Unheilige Blätter mit VBA

Für zahlreiche versteckte Arbeitsblätter ist die VBA -Automatisierung effizient.

Alle Blätter verbinden

Dieses Makro macht alle versteckten Blätter sichtbar:

 Sub unhide_all_sheets ()
  Dim Wks als Arbeitsblatt
  Für jedes wks in activeworkbook.worksheets
    wks.visible = xlsheetvisible
  Nächstes wks
Ende sub

Alle versteckten Blätter zeigen und sie zählen

Dieses Makro zeigt alle versteckten Blätter an und zeigt ihre Zählung in einem Nachrichtenfeld an:

 Sub unhide_all_sheets_count ()
  Dim Wks als Arbeitsblatt
  Dim Count als Ganzzahl
  count = 0
  Für jedes wks in activeworkbook.worksheets
    Wenn wks.visible  xlsheetvisible dann
      wks.visible = xlsheetvisible
      count = count 1
    Ende wenn
  Nächstes wks
  Wenn zählen> 0 dann
    MSGBox Count & "Arbeitsblätter waren unbeserviert.
  Anders
    MSGBox "Es wurden keine versteckten Arbeitsblätter gefunden."
  Ende wenn
Ende sub

Nicht ausgewählte Blätter

Dieses Makro fordert den Benutzer auf, auszuwählen, welche versteckten Blätter zu ungehemt sind:

 Sub unhide_selected_sheets ()
  Dim Wks als Arbeitsblatt
  Dim Msgresult als vbmsgboxResult
  Für jedes wks in activeworkbook.worksheets
    Wenn wks.visible = xlsheethidden dann
      MSGRESULT = MSGBOX ("Unhide Sheet" & wks.name & "?", Vbyesno, "Unhide Worksheets"))
      Wenn msgresult = vbyes dann
        wks.visible = xlsheetvisible
      Ende wenn
    Ende wenn
  Nächste
Ende sub

Unheilige Blätter mit spezifischem Text

Dieses Makro ist unheiltblättisch mit einem bestimmten Wort in ihrem Namen (ersetzen Sie " Bericht " durch Ihren Text):

 Sub unhide_sheets_contain ()
  Dim Wks als Arbeitsblatt
  Dim Count als Ganzzahl
  count = 0
  Für jedes wks in activeworkbook.worksheets
    If (wks.visible  xlsheetvisible) und (instr (1, wks.name, "report", vbTextCompare)> 0) dann
      wks.visible = xlsheetvisible
      count = count 1
    Ende wenn
  Nächstes wks
  Wenn zählen> 0 dann
    MSGBox Count & "Arbeitsblätter waren unbeserviert.
  Anders
    MSGBox "Es wurden keine versteckten Arbeitsblätter mit dem angegebenen Namen gefunden."
  Ende wenn
Ende sub

Verwenden der Makros

Fügen Sie den Code in ein Modul in den VBA -Editor (ALT F11) ein oder laden Sie die bereitgestellte Arbeitsmappe herunter.

Einfügen von Makros

1. Öffnen Sie die Arbeitsmappe.
2. Drücken Sie Alt F11.
3. Klicken Sie mit der rechten Maustaste auf dieses Workbook , wählen Sie einfügen > Modul .
4. Fügen Sie den Code ein.
5. Drücken Sie F5, um zu laufen.

Herunterladen der Arbeitsmappe

Laden Sie das Beispiel -Arbeitsbuch mit allen Makros herunter. Führen Sie Makros über Alt F8 aus.

Unheilige Blätter mit benutzerdefinierten Aussichten

Erstellen Sie eine benutzerdefinierte Ansicht, um schnell alle Blätter anzuzeigen:

1. Stellen Sie sicher, dass alle Blätter sichtbar sind.
2. Ansicht > Arbeitsbuchansichten > benutzerdefinierte Ansichten .
3. Klicken Sie auf "Hinzufügen ...".
4. Nennen Sie die Ansicht (zB "showAllsheets") und klicken Sie auf "OK".

Überprüfen Sie nach versteckten Blättern

Überprüfen Sie schnell nach versteckten Blättern, indem Sie mit der rechten Maustaste auf eine Registerkarte Blech klicken. Wenn "Hide ..." aktiviert ist, gibt es versteckte Blätter.

Fehlerbehebung

Geschützte Arbeitsmappe

Wenn die Arbeitsbuchstruktur geschützt ist, ist das ungehad nicht möglich. Über die Registerkarte "Überprüfung " unbeschreibend.

Sehr versteckte Arbeitsblätter

Arbeitsblätter über VBAs xlSheetVeryHidden erfordern VBA, um sich zu enthieren.

Keine versteckten Laken

Ein graues "Unhide" bedeutet, dass keine Blätter versteckt sind.

Damit ist der Leitfaden zu unverdürftigen Excel -Arbeitsblättern abgeschlossen. Herunterladenbare Makros sind verfügbar.

Das obige ist der detaillierte Inhalt vonWie man Blätter in Excel ausdauen: Zeigen Sie mehrere oder alle versteckten Laken. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!