Considera una situazione in cui devi nascondere e mostrare più fogli contemporaneamente. Se qualcuno si nasconde e scopre 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 in un determinato momento.

Di seguito è un’istantanea del foglio1 in cui ci saranno due elenchi dinamici, ad esempio Nascondi schede e Scopri schede

img1

  • L’idea è quando clicchiamo 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 di VB. Fare clic sulla scheda Sviluppatore * Dal gruppo Codice selezionare Visual Basic

img2

  • Fare clic su Inserisci quindi su Modulo

img3

Questo creerà un nuovo modulo.

Immettere il codice seguente nel modulo Sub HideTabs () Dim TabNo As DoubleDim LastTab As Double LastTab = Range (“Hide_TabsDNR”). Count On Error Resume Next For TabNo = 2 To LastTab Sheets (Range (“Hide_TabsDNR”) (TabNo)) .Visible = False Next TabNo On Error GoTo 0 Sheets (1) .Select End Sub

===

Sub UnHideTabs ()

Dim TabNo As Double

Dim LastTab As Double

LastTab = Range (“Hide_TabsDNR”). Count

In caso di errore Riprendi Avanti

For TabNo = 2 To LastTab

Fogli (Range (“UnHide_TabsDNR”) (TabNo)). Visible = True

Next TabNo

In caso di errore GoTo 0

Fogli (1). Seleziona

End Sub

img4

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

img5

  • 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.