Come spostarsi tra i fogli di lavoro in Excel utilizzando un elenco a discesa?
Supponiamo che tu abbia una cartella di lavoro contenente più fogli. Ora devi creare un elenco a discesa o una casella combinata che mostri tutti i nomi dei fogli e che, alla selezione di un nome dall’elenco, ti porti immediatamente a quel foglio. In questo articolo ti mostrerò come spostarti tra i fogli di lavoro utilizzando un elenco a discesa in Excel.
Spostarsi tra i fogli di lavoro utilizzando un elenco a discesa in Excel
Spostarsi tra i fogli di lavoro utilizzando un elenco a discesa in Excel
Per passare al foglio selezionato tramite un elenco a discesa, segui questi passaggi:
1. Fai clic su Sviluppo > Inserisci > Casella combinata (controllo ActiveX), vedi screenshot:
2. Trascina quindi il mouse per disegnare una casella combinata, fai clic con il pulsante destro del mouse su di essa e seleziona Visualizza codice dal menu contestuale. Vedi screenshot:
3. Nella finestra di Microsoft Visual Basic, Applications Edition aperta, copia e incolla il seguente codice sostituendo quello originale. Vedi screenshot:
Codice VBA: Spostarsi tra i fogli di lavoro utilizzando un 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 salva e chiudi questa finestra del codice, quindi fai clic su Modalità progettazione per disattivare la modalità progettazione. Ora, selezionando un nome di foglio dalla casella combinata, passerai immediatamente a quel foglio. Vedi screenshot:
Spostati tra i fogli di lavoro utilizzando collegamenti ipertestuali o pulsanti: Grazie all’utility Kutools per Excel di Crea tabella di collegamento, puoi elencare rapidamente tutti i nomi dei fogli di lavoro in un nuovo foglio con collegamenti ipertestuali o pulsanti macro, per spostarti tra di essi in base alle tue esigenze.
Kutools per Excel: con oltre 300 utili componenti aggiuntivi per Excel, da provare gratuitamente senza limitazioni per 30 giorni.Scarica subito la versione di prova gratuita! |
Migliori Strumenti per la Produttività in Office
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.
- 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