Come aprire un foglio di lavoro selezionando il suo nome in una casella combinata in Excel?
Supponiamo che tu abbia una Casella Combinata nella tua cartella di lavoro Excel contenente un elenco di tutti i nomi dei fogli. Vuoi aprire un foglio di lavoro specifico selezionandone il nome dalla Casella Combinata. Questa guida dimostra come realizzare ciò utilizzando il codice VBA, con i passaggi per popolare la Casella Combinata con i nomi dei fogli e abilitare la funzionalità desiderata.
Apri un foglio di lavoro selezionando il suo nome in una casella combinata con il codice VBA
Apri un foglio di lavoro selezionando il suo nome in una casella combinata con il codice VBA
Il seguente codice VBA può aiutarti ad andare a un foglio di lavoro specifico in base alla selezione della Casella Combinata in Excel. Procedi come segue.
Nota: Se la Casella Combinata non contiene alcun nome di foglio nel tuo foglio di lavoro, segui il suggerimento qui sotto per aggiungere rapidamente tutti i nomi dei fogli a quella Casella Combinata. Se esiste già una Casella Combinata contenente tutti i nomi dei fogli, procedi direttamente al passo 1.
Suggerimento: Inserisci un Pulsante di Comando 1 nel tuo foglio di lavoro, fai clic destro su di esso e seleziona Visualizza Codice dal menu contestuale. Quindi copia e incolla il seguente codice VBA nella finestra del Codice, e premi i tasti Alt + Q per chiudere la finestra Microsoft Visual Basic for Application. Clicca sul Pulsante di Comando inserito, quindi tutti i nomi dei fogli della cartella di lavoro corrente verranno aggiunti automaticamente nella ComboBox1.
Codice VBA: Aggiungi 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 esiste già una Casella Combinata contenente tutti i nomi dei fogli, procedi come segue.
1. Attiva la Modalità Progettazione sotto la scheda Sviluppatore.
2. Fai clic destro sulla casella combinata con i nomi dei fogli, quindi fai clic su Visualizza Codice dal menu contestuale.
3. Si aprirà la finestra Microsoft Visual Basic for Applications, sostituisci il codice VBA originale nella finestra del Codice con il seguente codice VBA.
Codice VBA: Apri un foglio di lavoro specifico in base al valore selezionato della 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 che contiene i nomi dei fogli.
4. Premi i tasti Alt + Q per chiudere la finestra Microsoft Visual Basic for Applications, e disattiva la Modalità Progettazione sotto la scheda Sviluppatore.
Ora, selezionando qualsiasi nome di foglio di lavoro nella Casella Combinata si aprirà automaticamente il foglio di lavoro corrispondente.
Elenca facilmente tutti i nomi dei fogli della cartella di lavoro corrente in Excel:
Utilizzare l'indice dei fogli nella tua cartella di lavoro ti aiuta a gestire facilmente i tuoi fogli di lavoro. Con l'utilità Crea tabella di collegamento di Kutools per Excel, puoi facilmente creare un indice dei fogli contenente tutti i nomi dei fogli nella cartella di lavoro corrente. Successivamente, puoi passare rapidamente a un determinato foglio di lavoro semplicemente facendo clic sul nome del foglio nell'Indice del foglio di lavoro. Vedi la schermata sottostante:
Kutools per Excel - Potenzia Excel con oltre 300 strumenti essenziali. Goditi funzionalità AI gratuite per sempre! Ottienilo ora
Articoli correlati:
- Come copiare il valore della Casella Combinata nella cella attiva in Excel?
- Come visualizzare il formato data nell'output della casella combinata in Excel?
- Come nascondere o mostrare un Pulsante di Comando in base al valore di una cella specificata in Excel?
- Come impedire o disabilitare la digitazione in una casella combinata in Excel?
- Come uscire da una casella combinata per selezionare una cella specifica in Excel?
I migliori strumenti per la produttività in Office
Migliora le tue competenze su Excel con Kutools per Excel e sperimenta un nuovo livello di efficienza. Kutools per Excel offre oltre300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta l’interfaccia a schede su Office, rendendo il tuo lavoro molto più semplice
- Abilita la modifica a schede e la lettura in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, invece che in nuove finestre.
- Aumenta la tua produttività del50% e ti fa risparmiare centinaia di clic ogni giorno!