Come nascondere o mostrare dinamicamente più schede utilizzando VBA in Excel

Anonim

Considera una situazione in cui devi nascondere e mostrare più fogli alla volta. Se qualcuno si nasconde e mostra manualmente, ci vorrà molto tempo.

In questo articolo imparerai come nascondere o mostrare dinamicamente più schede utilizzando il codice VBA.

D): Voglio una macro che nasconda o mostri più schede contemporaneamente.

Di seguito è riportata un'istantanea del foglio1 in cui saranno presenti due elenchi dinamici, ovvero Nascondi schede e Scopri schede

  • L'idea è che quando facciamo clic sul pulsante Nascondi o Scopri, i fogli elencati dovrebbero essere nascosti o mostrati

Dobbiamo seguire i passaggi seguenti:

  • Per ottenere il risultato dobbiamo avviare l'editor VB
  • Fare clic sulla scheda Sviluppatore
  • Dal gruppo Codice seleziona Visual Basic

  • Fare clic su Inserisci quindi Modulo

Questo creerà un nuovo modulo.

Inserisci il seguente codice nel Modulo

Sub HideTabs()Dim TabNo As DoubleDim LastTab As Double

LastTab = Range("Hide_TabsDNR").Count

In caso di errore Riprendi Avanti

Per TabNo = 2 To LastTab

Fogli(Range("Hide_TabsDNR")(TabNo)).Visible = False

Scheda successivaNo

In caso di errore Vai a 0

Fogli(1).Seleziona

Fine sottotitolo

Sub UnHideTabs()

Dim TabNo As Double

Dim LastTab As Double

LastTab = Range("Hide_TabsDNR").Count

In caso di errore Riprendi Avanti

Per TabNo = 2 To LastTab

Fogli(Range("UnHide_TabsDNR")(TabNo)).Visible = True

Scheda successivaNo

In caso di errore Vai a 0

Fogli(1).Seleziona

Fine sottotitolo

  • Siamo tutti pronti per eseguire la macro, se facciamo clic sul pulsante Nascondi, tutti i fogli elencati verranno nascosti, fare riferimento all'istantanea di seguito

  • Allo stesso modo, se facciamo clic sul pulsante Scopri, tutti i fogli nascosti menzionati nella colonna D verranno visualizzati.

In questo modo possiamo nascondere o mostrare dinamicamente più schede contemporaneamente.