Come popolare una Casella Combinata con i dati di un Intervallo Denominato in Excel?

È possibile specificare una casella combinata (controllo ActiveX) con i dati di un certo intervallo aggiungendo l'intervallo alle proprietà ListFillRange della casella combinata. Ma sapete come popolare una casella combinata con i dati di un intervallo denominato in Excel? Ad esempio, avete denominato un intervallo di celle nel vostro foglio di lavoro e ora dovete 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 automaticamente popolati in un'altra casella combinata. Questo articolo introdurrà un metodo VBA per risolvere questo problema.

Popolare una casella combinata con i dati di un intervallo denominato con codice VBA

Popolare una casella combinata con i dati di un intervallo denominato con codice VBA

Si prega di seguire le istruzioni riportate di seguito per popolare una casella combinata con i dati di un intervallo denominato in Excel.

1. Selezionate tutte le intestazioni (in questo caso, seleziono A1:E1) nel vostro foglio di lavoro e quindi digitate un nome nella Casella Nome come mostrato nello screenshot sottostante.

2. Selezionate i dati di ogni colonna tranne la relativa intestazione e nominate separatamente la colonna nella Casella Nome. Vedere lo screenshot:

In questo caso, ho nominato gli intervalli A2:A8, B2:B8, C2:C8, D2:D8 ed E2:E8 rispettivamente come Data, Negozio, Articoli, Vendite e Giorno feriale.

3. Quindi inserite una casella combinata facendo clic su Sviluppatore > Inserisci > Casella Combinata (Controllo ActiveX). Vedere lo screenshot:

4. Ripetete il passaggio 3 per inserire un'altra casella combinata nel foglio di lavoro.

5. Fate clic con il tasto destro del mouse sulla scheda del foglio e poi fate clic su Visualizza Codice dal menu contestuale. Vedere lo screenshot:

6. Nella finestra Microsoft Visual Basic for Applications che si apre, copiate e incollate il seguente codice VBA nella finestra del Codice.

Codice VBA: Popolare una 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

Nota: Nel codice, ComboBox1 è il nome della casella combinata in cui elencherete tutti i nomi degli intervalli, e ComboBox2 è il nome della casella combinata in cui verranno popolati i dati dell'intervallo denominato specificato. “Intestazioni” è il nome dell'intervallo che avete creato nel passaggio 1.

7. Disattivate la Modalità Progettazione facendo clic su Sviluppatore > Modalità Progettazione.

8. Fate clic su qualsiasi cella nel foglio di lavoro per attivare il codice. Fate clic sul pulsante freccia nella prima casella combinata, potete vedere che tutti gli intervalli denominati sono elencati all'interno. Vedere lo screenshot:

Quando si seleziona un intervallo denominato nella prima casella combinata, i corrispondenti dati delle celle verranno popolati nella seconda casella combinata come mostrato nello screenshot sottostante:

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 impedire o disabilitare la digitazione in una casella combinata in Excel?
• Come popolare una casella combinata con dati specificati all'apertura della Cartella di Lavoro?
• Come popolare automaticamente altre celle quando si selezionano valori in una lista a discesa di Excel?