Come creare caselle di riepilogo dinamiche a cascata in Excel?
Conoscete già come creare un elenco a discesa con convalida a cascata in Excel. Ma come si realizzano caselle di riepilogo dinamiche a cascata? Questo articolo presenta un metodo basato su VBA per ottenere proprio questo risultato.
Creare caselle di riepilogo dinamiche a cascata con codice VBA
Creare caselle di riepilogo dinamiche a cascata con codice VBA
Come illustrato nello screenshot seguente, è necessario creare una casella di riepilogo principale con i valori univoci della colonna «Drink» e visualizzare tutti i valori corrispondenti nella seconda casella in base alla selezione effettuata nella prima. Il codice VBA riportato di seguito consente di ottenere questo risultato. Procedere come indicato.
1. Innanzitutto, estrai tutti i valori univoci dalla colonna «Drink». Seleziona una cella vuota, inserisci la formula di matrice =IFERROR(INDEX($A$2:$A$11, MATCH(0,COUNTIF($J$1:J1, $A$2:$A$11), 0)),«») nella Barra delle formule, quindi premi contemporaneamente i tasti Ctrl + Shift + Invio. Trascina infine il quadratino di riempimento per ottenere tutti i valori univoci. Guarda lo screenshot:
Nota: Nella formula, $A$2:$A$11 è l’intervallo da cui vengono estratti i valori univoci. J1 è la cella posizionata sopra quella in cui si trova la formula.
Suggerimento: Se la formula risulta difficile da ricordare e gestire, lo strumento Seleziona celle duplicate/uniche di Kutools per Excel rappresenta un’ottima soluzione per estrarre rapidamente tutti i valori univoci da una colonna.
Seleziona la colonna contenente i valori univoci da estrarre, quindi attiva lo strumento facendo clic su Kutools > Seleziona > Seleziona celle duplicate/uniche. Nella finestra di dialogo Seleziona celle duplicate/uniche, seleziona l’opzione Valori unici (Includi il primo duplicato) e fai clic sul pulsante OK. Verranno così selezionati tutti i valori univoci presenti nella colonna: copiali e incollali in una nuova posizione. Vedere lo screenshot:
Kutools per Excel: con oltre 200 pratici componenti aggiuntivi per Excel, da provare gratuitamente senza limitazioni per 60 giorni.Scarica e prova gratis ora!
2. Inserisci due caselle di riepilogo separatamente facendo clic su Sviluppo > Inserisci > Casella di riepilogo (controllo ActiveX). Vedi lo screenshot:
3. Fare clic con il tasto destro sulla casella di riepilogo principale e selezionare Proprietà dal menu contestuale. Nella finestra di dialogo Proprietà, modificare il campo (Nome) in Drink o un altro nome a propria scelta, inserire nell’apposito campo IntervalloRiempimentoElenco l’intervallo di celle contenente i valori univoci estratti e chiudere la finestra.
4. Ripetere il passaggio 3 per modificare il campo (Nome) della seconda casella di riepilogo, impostandolo su «Item» nella finestra di dialogo Proprietà.
5. Fare clic con il tasto destro sulla scheda del foglio e selezionare Visualizza codice dal menu contestuale. Quindi, copiare il seguente codice VBA nella finestra del codice. Vedere lo screenshot:
Codice VBA: Creare caselle di riepilogo dinamiche a cascata in Excel
Dim xPreStr As String
Private Sub Drink_Click()
'Update by Extendoffice 2018/06/04
Dim I, xRows As Long
Dim xRg As Range
Dim xRegStr As String
Application.ScreenUpdating = False
xRegStr = Me.Drink.Text
Set xRg = Range("A2:A11")
xRows = xRg.Rows.Count
If xRegStr <> xPreStr Then
Me.Item.Clear
'Me.OtherListBoxName.Clear
Set xRg = xRg(1)
For I = 1 To xRows
If xRg.Offset(I - 1).Value = xRegStr Then
Me.Item.AddItem xRg.Offset(I - 1, 1).Value
'Me.OtherListBoxName.AddItem xRg.Offset(I - 1, 2).Value
End If
Next
xPreStr = xRegStr
End If
Application.ScreenUpdating = True
End SubNota: Nel codice, «Drink» e «Item» sono i nomi delle due caselle di riepilogo; aggiornali in base ai nomi che hai assegnato.
6. Premere i tasti Alt+Q per chiudere la finestra di Microsoft Visual Basic, Applications Edition.
7. Disattiva la modalità Progettazione facendo clic su Sviluppo > Modalità progettazione.
D’ora in poi, selezionando una bevanda—ad esempio «Coffee»—nella casella principale, tutti gli articoli correlati al caffè verranno visualizzati nella seconda casella. Scegliendo «Tea» o «Wine», invece, compariranno esclusivamente gli articoli corrispondenti nella seconda casella di riepilogo. Si veda lo screenshot:
Articoli correlati:
- Come si fa a cancellare automaticamente la cella di un elenco a discesa dipendente dopo aver modificato la selezione nella cella principale in Excel?
- Come creare elenchi a discesa dipendenti e a cascata in Excel?
- Come compilare automaticamente altre celle quando si seleziona un valore da un elenco a discesa in Excel?
- Come si crea un calendario a discesa in Excel?
- C ome salvare o mantenere le selezioni delle caselle di riepilogo ActiveX in Excel?
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