Come popolare la casella combinata con i dati dell'intervallo denominato in Excel?
È possibile specificare una casella combinata (controllo ActiveX) con i dati di un determinato intervallo aggiungendo l'intervallo alle proprietà ListFillRange della casella combinata. Ma sai come popolare una casella combinata con i dati di un intervallo denominato in Excel? Ad esempio, hai nominato un intervallo di celle nel tuo foglio di lavoro e ora devi specificare questo nome di intervallo in una casella combinata. Quando si seleziona il nome dell'intervallo in una casella combinata, tutti i valori delle celle in questo intervallo denominato verranno popolati automaticamente in un'altra casella combinata. Questo articolo introdurrà un metodo VBA per risolvere questo problema.
Popolare la casella combinata con i dati di un intervallo denominato con codice VBA
Popolare la casella combinata con i dati di un intervallo denominato con codice VBA
Si prega di fare quanto segue per popolare la casella combinata con i dati di un intervallo denominato in Excel.
1. Seleziona tutte le intestazioni (in questo caso, seleziono A1: E1) nel tuo foglio di lavoro, quindi digita un nome nel Nome casella come mostrato nell'immagine sottostante.
2. Selezionare i dati di ogni colonna tranne la sua intestazione, quindi denominare la colonna separatamente nel file Nome casella. Vedi screenshot:
In questo caso, ho chiamato l'intervallo A2: A8, B2: B8, C2: C8, D2: D8 ed E2: E8 come Data, Negozio, Articoli, Vendite e Giorno della settimana separatamente.
3. Quindi inserire una casella combinata facendo clic su Costruttori > inserire > Casella combinata (controllo ActiveX). Vedi screenshot:
4. Ripetere il passaggio 3 per inserire un'altra casella combinata nel foglio di lavoro.
5. Fare clic con il pulsante destro della scheda di fogli e quindi scegliere Visualizza codice dal menu contestuale. Vedi screenshot:
6. In apertura Microsoft Visual Basic, Applications Edition finestra, copia e incolla sotto il codice VBA nella finestra del codice.
Codice VBA: popolare la casella combinata con i dati di un intervallo denominato
Private Sub ComboBox1_Change()
'Updated by Extendoffice 2018/1/30
Dim xRg As Range
Set xRg = Range(Me.ComboBox1.Text)
Me.ComboBox2.List = Application.WorksheetFunction.Transpose(xRg)
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim xRg As Range
Set xRg = Range("Headers")
Me.ComboBox1.List = Application.WorksheetFunction.Transpose(xRg)
End Sub
Note:: Nel codice, ComboBox1 è il nome della casella combinata in cui verranno elencati tutti i nomi di intervallo all'interno e ComboBox2 è il nome della casella combinata in cui verranno popolati i dati dell'intervallo denominato specificato. "Intestazioni" è il nome dell'intervallo che hai creato nel passaggio 1.
7. Disattivare la modalità di progettazione facendo clic su Costruttori > Modalità di progettazione.
8. Fare clic su qualsiasi cella del foglio di lavoro per attivare il codice. Fare clic sul pulsante freccia nella prima casella combinata, è possibile vedere tutti gli intervalli denominati sono elencati all'interno. Vedi screenshot:
Quando si seleziona un intervallo denominato nella prima casella combinata, i dati della cella corrispondente verranno popolati nella seconda casella combinata come mostrato nell'immagine sottostante:
Crea facilmente un elenco a discesa con caselle di controllo in Excel:
I Elenco a discesa con caselle di controllo utilità di Kutools for Excel può aiutarti a creare facilmente un elenco a discesa con caselle di controllo in un intervallo specificato, foglio di lavoro corrente, cartella di lavoro corrente o tutte le cartelle di lavoro aperte in base alle tue esigenze.
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 impedire o disabilitare la digitazione in una casella combinata in Excel?
- Come popolare una casella combinata con i dati specificati sulla cartella di lavoro aperta?
- Come popolare automaticamente altre celle quando si selezionano i valori nell'elenco a discesa di 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!