Note: The other languages of the website are Google-translated. Back to English

Come navigare tra i fogli di lavoro utilizzando l'elenco a discesa in Excel?

Supponendo che tu abbia una cartella di lavoro che contiene più fogli di lavoro, ora, devi creare un elenco a discesa o una casella combinata che elenca tutti i nomi dei fogli e quando selezioni un nome di foglio dall'elenco a discesa, salterà immediatamente a quel foglio. In questo articolo, introdurrò come navigare tra i fogli di lavoro utilizzando un elenco a discesa in Excel.

Navigare tra i fogli di lavoro utilizzando l'elenco a discesa in Excel


Navigare tra i fogli di lavoro utilizzando l'elenco a discesa in Excel

Per passare a ciascun foglio selezionato utilizzando un elenco a discesa, eseguire i seguenti passaggi:

1. Clic Costruttori > inserire > Casella combinata (controllo ActiveX), vedi screenshot:

2. Quindi trascina il mouse per disegnare una casella combinata, quindi fai clic con il pulsante destro del mouse, seleziona Visualizza codice dal menu contestuale, vedi screenshot:

3. In aperto Microsoft Visual Basic, Applications Edition finestra, copia e incolla il seguente codice per sostituire il codice originale, vedi screenshot:

Codice VBA: naviga tra i fogli di lavoro utilizzando l'elenco a discesa

Private Sub ComboBox1_Change()
'Updateby Extendoffice
    If ComboBox1.ListIndex > -1 Then Sheets(ComboBox1.Text).Select
End Sub
Private Sub ComboBox1_DropButtonClick()
    Dim xSheet As Worksheet
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    If ComboBox1.ListCount <> ThisWorkbook.Sheets.Count Then
        ComboBox1.Clear
        For Each xSheet In ThisWorkbook.Sheets
            ComboBox1.AddItem xSheet.Name
        Next xSheet
    End If
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub
Private Sub ComboBox1_GotFocus()
    If ComboBox1.ListCount <> 0 Then ComboBox1.DropDown
End Sub

4. Quindi salvare e chiudere questa finestra del codice, quindi fare clic su Modalità di progettazione per disattivare la modalità di progettazione, ora, quando selezioni un nome di foglio dalla casella combinata, andrà a quel foglio contemporaneamente, vedi screenshot:


Navigare tra i fogli di lavoro utilizzando collegamenti ipertestuali o pulsanti:

Con una lunga Kutools for Excel's Crea un elenco di nomi di fogli utility, puoi elencare rapidamente tutti i nomi dei fogli di lavoro in un nuovo foglio con collegamenti ipertestuali o pulsanti macro, quindi puoi navigare tra di essi secondo le tue necessità.

Kutools for Excel: con più di 300 utili componenti aggiuntivi di Excel, liberi di provare senza limitazioni in 30 giorni. Scarica e prova gratuita ora!


I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

  • Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
  • Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
  • Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
  • Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
  • Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
  • Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
  • Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
  • Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
  • Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.
scheda kte 201905

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
fondo officetab
Commenti (12)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Come posso rendere attivo il foglio nascosto e nascondere la home page?
Questo commento è stato fatto dal moderatore sul sito
Come posso aggiungere solo fogli specifici? e non tutto il foglio nella cartella di lavoro
Questo commento è stato fatto dal moderatore sul sito
Hai avuto qualche codice per trovare gioia per mostrare solo determinati fogli nella casella a discesa?
Questo commento è stato fatto dal moderatore sul sito
Come si cambia questo per mostrare/selezionare solo i fogli di lavoro visibili?
Questo commento è stato fatto dal moderatore sul sito
Ciao,
Per ignorare i fogli nascosti dall'elenco a discesa e mantenere solo i fogli di lavoro visibili, il seguente codice VBA potrebbe aiutarti:

Privato Sub ComboBox1_Change()
'Aggiorna entro Extendoffice
Se ComboBox1.ListIndex > -1 quindi Fogli(ComboBox1.Text).Seleziona
End Sub
Sub ComboBox1_DropButtonClick()
Dim xSheet come foglio di lavoro
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
Se ComboBox1.ListCount <> ThisWorkbook.Sheets.Count allora
ComboBox1.Cancella
Per ogni xSheet in ThisWorkbook.Sheets
Se xSheet.Visible allora
ComboBox1.AddItem xFoglio.Nome
End If
Prossimo foglio x
End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Privato Sub ComboBox1_GotFocus()
Se ComboBox1.ListCount <> 0 Quindi ComboBox1.DropDown
End Sub

Per favore, provalo, spero che possa aiutarti!
Questo commento è stato fatto dal moderatore sul sito
Ha funzionato! Grazie! Sai se questo codice causerà problemi se i fogli vengono rinominati o aggiornerà automaticamente l'elenco?
Questo commento è stato fatto dal moderatore sul sito
Ciao,
Il codice sopra funziona bene quando si rinomina il nome del foglio e gli elementi nell'elenco a discesa verranno aggiornati automaticamente.
Puoi provarlo.
Questo commento è stato fatto dal moderatore sul sito
grazie per il tuo codice Funziona per cambiare foglio in base all'elenco a discesa.
Ma ho diverse domande.
1. dopo aver elaborato il relativo foglio e voler tornare al menu principale (con l'elenco a discesa del foglio), come potrei fare senza usare il mouse?
2. quando apro il file, vorrei il menu principale (con elenco a discesa) come predefinito. Quindi potrei partire da questo menu
Grazie
rosa
Questo commento è stato fatto dal moderatore sul sito
Ciao a tutti,
Grazie mille per il codice che crea una casella combinata dinamica per navigare tra i fogli. Purtroppo ho ricevuto un errore. Dopo aver esplorato alcuni fogli, il file si chiude automaticamente. Non mostra nemmeno alcun messaggio di errore. Non riuscivo a capire il motivo. Apprezzo l'aiuto
Grazie
Questo commento è stato fatto dal moderatore sul sito
stesso errore anche tu, hai risolto?
Questo commento è stato fatto dal moderatore sul sito
ciao, è possibile combinare varie opzioni da diversi menu a discesa e aprire fogli di conseguenza.

es: se è selezionata l'Opzione1 dal menu a discesa1 e l'Opzione2 dal menu a discesa2 è selezionata, si aprirà solo il Foglio2
Questo commento è stato fatto dal moderatore sul sito
L'elenco a discesa non aprirà i fogli nascosti, è in grado di aprire i fogli nascosti?
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL