Come si fa a popolare una ComboBox di un UserForm con tutti i nomi dei fogli in Excel?

Questo articolo spiega come popolare una ComboBox di un UserForm con i nomi di tutti i fogli del foglio di lavoro corrente in Excel.

Popola una ComboBox di UserForm con tutti i nomi dei fogli tramite codice VBA

Popola una ComboBox di UserForm con tutti i nomi dei fogli tramite codice VBA

Il seguente codice VBA ti permette di inserire automaticamente tutti i nomi dei fogli del foglio di lavoro corrente in una ComboBox del tuo UserForm. Ecco come procedere.

1. Premi contemporaneamente i tasti Alt+F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Nella finestra di Microsoft Visual Basic for Applications, inserisci un UserForm facendo clic su Inserisci > UserForm, come mostrato nell’immagine seguente.

3. Disegna quindi una casella combinata e inseriscila nel UserForm. Vedi immagine:

4. Fai clic con il pulsante destro del mouse sulla casella combinata inserita e seleziona Visualizza codice dal menu contestuale. Vedi immagine:

5. Nella finestra di Microsoft Visual Basic for Applications che si apre, copia e incolla il seguente codice VBA per sostituire quello originale nella finestra del codice.

Codice VBA: Popola una ComboBox di UserForm con tutti i nomi dei fogli di Foglio di lavoro corrente

Private Sub UserForm_Initialize()
    Dim I As Long
    Me.ComboBox1.Clear
    For I = 1 To Sheets.Count
        Me.ComboBox1.AddItem Sheets(I).Name
    Next
    Me.ComboBox1.Value = ActiveSheet.Name
End Sub

Nota: Nel codice, ComboBox1 è il nome della casella combinata inserita. Adattalo al tuo caso specifico.

6. Premi il tasto F5 per eseguire il codice. Nel UserForm che si apre, vedrai tutti i nomi dei fogli del foglio di lavoro corrente visualizzati nella casella combinata, come nell’immagine seguente:

Articoli correlati:

• Come si fa a copiare il valore di una casella combinata nella cella attiva in Excel?
• Come visualizzare il formato data nell’output della casella combinata in Excel?
• Come si apre un foglio di lavoro specifico in base al valore selezionato in una casella combinata in Excel?
• Come si fa a impedire o disabilitare la digitazione in una casella combinata in Excel?
• Come usare il tasto Tab per uscire da una casella combinata e selezionare una cella specifica in Excel?

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...

Maggiori dettagli su Kutools per Excel...Scarica Gratuitamente...

---

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!

Maggiori dettagli su Office Tab...Scarica Gratuitamente...

---

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

Maggiori dettagli su Kutools for Office...Scarica Gratuitamente...