Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Nascondere tutti i fogli tranne 2

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Nascondere tutti i fogli tranne 2

Postdi blunotte13 » 10/03/11 19:48

Ciao tutti, per scoprire o nascondere un foglio uso

Codice: Seleziona tutto
Sheets("foglio1").Visible = True
         Sheets("foglio1").Visible = False


ma se io voglio dire alla macro di nascondere o scoprire tutti i fogli tranne due fogli che servono sempre visibili, cosa devo scrivere? Se volessi invece dire che il foglio che si chiama come la cella C9 deve essere nascosto/scoperto?

Grazie a tutti in anticipo
Alla prossima, ciao ciao !!


Excel 2007
blunotte13
Utente Senior
 
Post: 116
Iscritto il: 13/01/10 19:35

Sponsor
 

Re: Nascondere tutti i fogli tranne 2

Postdi Anthony47 » 11/03/11 14:26

Ad esempio
Codice: Seleziona tutto
For I = 1 To ActiveWorkbook.Worksheets.Count
If Sheets(I).name = "Foglio1" Or Sheets(I).Name = "Foglio3" Then
Sheets(I).Visible = true
Else: Sheets(I).visible = False
End If
Next I

Questo ad esempio nasconde tutto meno Foglio1 e Foglio3

Per visualizzare tutto fai un loop analogo ma con una sola istruzione: Sheets(I).Visible = true

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Nascondere tutti i fogli tranne 2

Postdi blunotte13 » 11/03/11 14:41

Ok grazie mille !
Alla prossima, ciao ciao !!


Excel 2007
blunotte13
Utente Senior
 
Post: 116
Iscritto il: 13/01/10 19:35


Torna a Applicazioni Office Windows


Topic correlati a "Nascondere tutti i fogli tranne 2":


Chi c’è in linea

Visitano il forum: Nessuno e 16 ospiti