Come aprire un foglio di lavoro specifico in base al valore selezionato di una casella combinata in Excel?
Supponendo di avere una casella combinata che contiene tutti i nomi dei fogli della cartella di lavoro corrente come mostrato nell'immagine sottostante. E ora, vuoi aprire un foglio di lavoro specifico quando selezioni il nome del foglio corrispondente in una casella combinata. Come ottenerlo? Il metodo in questo articolo può aiutarti.
Apri un foglio di lavoro specifico in base al valore selezionato di una casella combinata con codice VBA
Il codice VBA sottostante può aiutarti ad andare a un foglio di lavoro specifico in base alla selezione della casella combinata in Excel. Si prega di fare quanto segue.
Note:: Se la casella combinata non contiene alcun nome di foglio nel foglio di lavoro, segui il suggerimento seguente per aggiungere rapidamente tutti i nomi dei fogli a quella casella combinata. E se è già presente una casella combinata contenente tutti i nomi dei fogli, passare al file step 1 direttamente.
Consiglio: Inserire un pulsante di comando 1 nel foglio di lavoro, fare clic con il pulsante destro del mouse e selezionare Visualizza codice dal menu di scelta rapida. Quindi copia e incolla il codice VBA sottostante nel file Code finestra e premere il pulsante altro + Q i tasti per chiudere il file Microsoft Visual Basic per l'applicazione finestra. Fare clic sul pulsante di comando inserito, quindi tutti i nomi dei fogli della cartella di lavoro corrente verranno aggiunti automaticamente al 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 SubSe è già presente una casella combinata contenente tutti i nomi dei fogli, eseguire le operazioni seguenti.
1. Accendi il Modalità di progettazione sotto il Costruttori scheda.
2. Fare clic con il pulsante destro del mouse sulla casella combinata con i nomi dei fogli, quindi fare clic su Visualizza codice dal menu di scelta rapida.
3. Quindi il file Microsoft Visual Basic, Applications Edition si apre la finestra, sostituire il codice VBA originale nella finestra del codice con il codice VBA sottostante.
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 SubNote:: nel codice, ComboBox1 è il nome della casella combinata che contiene i nomi dei fogli.
4. premi il altro + Q i tasti per chiudere il file Microsoft Visual Basic, Applications Edition finestra e disattivare il Modalità di progettazione sotto il Costruttori scheda.
Ora, quando si seleziona qualsiasi nome di foglio di lavoro nella casella combinata, il foglio di lavoro corrispondente verrà aperto automaticamente.
Elenca facilmente tutti i nomi dei fogli della cartella di lavoro corrente in Excel:
L'utilizzo dell'indice del foglio nella cartella di lavoro ti aiuta a gestire facilmente i tuoi fogli di lavoro. Con il Crea un elenco di nomi di fogli utilità di Kutools for Excel, puoi creare facilmente un indice del foglio contenente tutti i nomi dei fogli nella cartella di lavoro corrente. Dopodiché, puoi passare rapidamente a un determinato foglio di lavoro semplicemente facendo clic sul nome del foglio nel foglio di lavoro Indice. Vedi lo screenshot qui sotto:
Scaricalo e provalo ora! (Percorso gratuito di 30 giorni)
Articoli correlati:
- Come copiare il valore della casella combinata nella cella attiva in Excel?
- Come visualizzare il formato della data nell'output della casella combinata in Excel?
- Come nascondere o mostrare un pulsante di comando in base al valore di cella specificato in Excel?
- Come impedire o disabilitare la digitazione in una casella combinata in Excel?
- Come uscire dalla casella combinata per selezionare una cella specifica in Excel?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo 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!
