KutoolsforOffice — Un'unica soluzione, cinque potenti strumenti.Ottenere di più con meno sforzo.

Come aprire un foglio di lavoro selezionandone il nome da una casella combinata in Excel?

AutoreSiluvia Data di modifica

Immagina di avere una casella combinata nella tua cartella di lavoro Excel che contiene l’elenco di tutti i nomi dei fogli. Vorresti aprire un foglio specifico semplicemente selezionandone il nome dalla casella combinata. Questa guida ti mostra come implementare questa funzionalità con il codice VBA, illustrando passo dopo passo come popolare la casella combinata con i nomi dei fogli e attivare il foglio desiderato al momento della selezione.

Uno screenshot di una casella combinata in Excel contenente i nomi dei fogli

Aprire un foglio di lavoro selezionandone il nome da una casella combinata con codice VBA


Aprire un foglio di lavoro selezionandone il nome da una casella combinata con codice VBA

Il seguente codice VBA consente di passare a un foglio di lavoro specifico in base alla selezione effettuata nella casella combinata di Excel. Proceda come indicato di seguito.

Nota: Se la casella combinata nel tuo foglio di lavoro non contiene alcun nome di foglio, segui il suggerimento qui sotto per aggiungere rapidamente tutti i nomi dei fogli a quella casella. Se invece è già presente una casella combinata con tutti i nomi dei fogli, passa direttamente al passaggio 1.

Suggerimento: inserisca un pulsante di comando 1 nel foglio di lavoro, faccia clic con il tasto destro del mouse e selezioni Visualizza codice dal menu contestuale. Copi quindi il seguente codice VBA nella finestra Codice e prema i tasti Alt + Q per chiudere la finestra di Microsoft Visual Basic for Applications. Clicchi sul pulsante di comando inserito: tutti i nomi dei fogli del foglio di lavoro corrente verranno aggiunti automaticamente in ComboBox1.

Codice VBA: Aggiungere facilmente tutti i nomi dei fogli in una casella combinata

Private Sub CommandButton1_Click()
    Me.ComboBox1.Clear
    Dim strWs As String
    Dim i As Integer
    
    For i = 1 To ThisWorkbook.Sheets.Count
        Me.ComboBox1.AddItem Sheets(i).Name
    Next
End Sub

Se è già presente una casella combinata con tutti i nomi dei fogli, proceda nel modo seguente.

1. Attiva la Modalità progettazione nella scheda Sviluppo.

2. Fai clic con il tasto destro del mouse sulla casella combinata contenente i nomi dei fogli, quindi seleziona Visualizza codice dal menu contestuale.

Uno screenshot del menu clic destro per accedere al codice della casella combinata in Excel

3. Si aprirà quindi la finestra di Microsoft Visual Basic for Applications; sostituisci il codice VBA originale nella finestra Codice con il seguente codice VBA.

Codice VBA: Aprire un foglio di lavoro specifico in base al valore selezionato nella casella combinata

Private Sub ComboBox1_Change()
    Dim actWsh As String
    actWsh = ComboBox1.Text
    Worksheets(actWsh).Select
End Sub

Nota: nel codice, ComboBox1 è il nome della casella combinata contenente i nomi dei fogli.

4. Premere i tasti Alt+Q per chiudere la finestra di Microsoft Visual Basic for Applications, quindi disattivare la Modalità progettazione nella scheda Sviluppo.

Ora, selezionando un nome di foglio di lavoro nella casella combinata, il foglio corrispondente si aprirà automaticamente.


Elenca facilmente tutti i nomi dei fogli di Foglio di lavoro corrente in Excel:

Un indice dei fogli nella cartella di lavoro ti permette di gestire i tuoi fogli in modo semplice e intuitivo. Grazie allo strumento Crea tabella di collegamento di Kutools per Excel, puoi creare facilmente un indice che raccoglie tutti i nomi dei fogli presenti nella cartella di lavoro corrente. In seguito, ti basterà un solo clic sul nome nel foglio Indice per passare istantaneamente al foglio desiderato. Guarda lo screenshot seguente:

Uno screenshot che mostra un indice dei fogli creato con Kutools for Excel

Kutools per Excel– Potenzia Excel con oltre 300 strumenti essenziali, rendendo il tuo lavoro più veloce e semplice, e sfrutta le funzionalità basate sull’IA per un’elaborazione dati più intelligente e una maggiore produttività.Scaricalo ora


Articoli correlati:

Migliori Strumenti per la Produttività in Office

🤖KUTOOLS AI Assistente: Rivoluziona Analisi dei dati in base a:Esecuzione Intelligente   |  Genera Codice|  Crea formule personalizzate  |  Analizza Dati e Genera Grafici|  Richiama Funzioni avanzate
Funzionalità Popolari:Trova, Evidenzia o Contrassegna Duplicati   |  Elimina righe vuote   |  Combinare Colonne o Celle senza Perdere Dati   |   Arrotondamento senza usare la formula...
Super RICERCA.VERT:VLookup con Criteri Multipli  |  VLookup con Valori Multipli  |   VLookup tra Fogli Multipli   |   Corrispondenza approssimativa....
Elenco a discesa avanzato:Crea Rapidamente un Elenco a Discesa   |  Elenco a Discesa Dipendente   |  Elenco a Discesa con Selezione Multipla....
Gestione Colonne:Aggiungi un Numero Specifico di Colonne|Sposta Colonne|Attiva/Disattiva lo Stato di Visibilità delle Colonne Nascoste|Confronta Intervalli e Colonne...
Funzionalità in Evidenza:Attenzione della griglia   |  Visualizzazione Design   |Barra delle formule avanzata   | Gestione Cartelle di Lavoro e Fogli   |  Biblioteca di risorse(Testo Automatico)|  Selettore di Date   |  Unisci fogli di lavoro  |  Crittografa/Decrittografa celle   | Invia Email da Lista   |  Super Filtri   |   Filtro speciale(Filtra celle con testo in grassetto/corsivo/barrato...) ...
Principali Set di Strumenti 15:12 Strumentiper il Testo(Aggiungi testo,Elimina Caratteri Specifici, ...)|   50+Tipidi Grafico(Diagramma di Gantt, ...)|   40+ Formule Pratiche(Calcola l'età in base alla data di nascita, ...)|   19 Strumentidi Inserimento(Inserisci Codice QR,Inserisci Immagine dal Percorso, ...)|   12 Strumentidi Conversione(Converti in parole,Conversione del tasso di cambio, ...)|   7 StrumentiUnisci e Dividi(Unione avanzata righe,Dividi celle, ...)|... e molto altro
Usa Kutools nella tua lingua preferita – supporta inglese, spagnolo, tedesco, francese, cinese e 40+ altre!

Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...


Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice

  • 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 all’interno della stessa finestra, invece che in finestre separate.
  • Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!

Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.

Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.

ExcelWordOutlookTabsPowerPoint
  • Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
  • Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
  • Funziona meglio insieme— produttività ottimizzata tra le app di Office
  • Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
  • Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi