Come creare caselle di riepilogo a cascata dinamiche in Excel?
Potresti sapere come creare un elenco a discesa di convalida a cascata in Excel. Tuttavia, come creare caselle di riepilogo a cascata dinamiche in Excel? Questo articolo introduce un metodo VBA per eliminarlo.
Crea caselle di riepilogo a cascata dinamiche con codice VBA
- Riutilizza qualsiasi cosa: Aggiungi le formule, i grafici e qualsiasi altra cosa più usati o complessi ai tuoi preferiti e riutilizzali rapidamente in futuro.
- Più di 20 funzioni di testo: Estrai numero dalla stringa di testo; Estrai o rimuovi parte di testi; Converti numeri e valute in parole inglesi.
- Unisci strumenti: Più cartelle di lavoro e fogli in uno; Unisci più celle / righe / colonne senza perdere dati; Unisci righe duplicate e somma.
- Strumenti di divisione: Suddivisione dei dati in più fogli in base al valore; Una cartella di lavoro su più file Excel, PDF o CSV; Da una colonna a più colonne.
- Incolla Salto Righe nascoste / filtrate; Count And Sum di Background Color; Invia e-mail personalizzate a più destinatari in blocco.
- Super filtro: Crea schemi di filtri avanzati e applicali a qualsiasi foglio; Riordina per settimana, giorno, frequenza e altro; Filtro in grassetto, formule, commenti ...
- Più di 300 potenti funzionalità; Funziona con Office 2007-2021 e 365; Supporta tutte le lingue; Facile implementazione nella tua azienda o organizzazione.
Crea caselle di riepilogo a cascata dinamiche con codice VBA
Come mostrato nell'immagine sottostante, è necessario creare una casella di riepilogo genitore contenente i valori univoci della colonna Bevanda e visualizzare tutti i valori corrispondenti nella seconda casella di riepilogo in base alla selezione nella casella di riepilogo padre. Il seguente codice VBA ti aiuta a raggiungerlo. Si prega di fare quanto segue.
1. In primo luogo, è necessario estrarre tutti i valori univoci dalla colonna Bevanda. Seleziona una cella vuota, inserisci la formula della matrice =IFERROR(INDEX($A$2:$A$11, MATCH(0,COUNTIF($J$1:J1, $A$2:$A$11), 0)),"") nella Barra della formulae quindi premere il Ctrl + spostamento + Entra chiave. Quindi trascina il file Maniglia di riempimento per ottenere tutti i valori univoci. Vedi screenshot:
Note:: Nella formula, $A$2:$A$11 è l'intervallo da cui estrarrai valori univoci. J1 è la cella sopra dove si trova la tua formula.
Consiglio: Se la formula è troppo difficile da ricordare e gestire, il file Seleziona Celle duplicate e uniche utilità di Kutools for Excel sarà una buona scelta per estrarre rapidamente tutti i valori univoci da una colonna.
Seleziona la colonna che contiene valori univoci da cui estrarre. Quindi abilitare l'utilità facendo clic su Kutools > Seleziona > Seleziona Celle duplicate e uniche. Nel Seleziona Celle duplicate e uniche finestra di dialogo, selezionare il Tutti unici (inclusi i primi duplicati) opzione e fare clic su OK pulsante. Quindi tutti i valori univoci vengono selezionati nella colonna. Copiali e incollali in una nuova posizione. Vedi screenshot:
Kutools for Excel: con più di 200 utili componenti aggiuntivi di Excel, liberi di provare senza limitazioni in 60 giorni. Scarica e prova gratuita ora!
2. Inserire due caselle di riepilogo separatamente facendo clic Costruttori > inserire > Casella di riepilogo (controllo ActiveX). Vedi screenshot:
3. Fare clic con il pulsante destro del mouse sulla casella di riepilogo principale e selezionare Proprietà dal menu contestuale. Nel Proprietà finestra di dialogo, modificare il file (Nome) campo Bere o altro nome di cui hai bisogno, inserisci l'intervallo di celle contiene i valori univoci estratti nel file ListFillRange campo e chiudere la finestra di dialogo.
4. Ripetere il passaggio 3 per modificare la seconda casella di riepilogo (Nome) campo a Item nel Proprietà la finestra di dialogo.
5. Fare clic con il pulsante destro del mouse sulla scheda del foglio e selezionare Visualizza codice dal menu di scelta rapida. Quindi copia sotto il codice VBA nella finestra del codice. Vedi screenshot:
Codice VBA: crea caselle di riepilogo a cascata dinamiche 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 Sub
Note: Nel codice Drink e Item sono i nomi di due caselle di riepilogo, modificali con i tuoi nomi.
6. premi il altro + Q i tasti per chiudere il file Microsoft Visual Basic, Applications Edition finestra.
7. Disattivare la modalità di progettazione facendo clic su Costruttori > Modalità di progettazione.
D'ora in poi, selezionando qualsiasi tipo di bevanda come Caffè nella casella di riepilogo genitore, tutte le voci di caffè verranno visualizzate nella seconda. Selezionare Tè o vino visualizzerà solo gli elementi del tè o del vino nella seconda casella di riepilogo. Vedi screenshot:
Articoli correlati:
- Come cancellare la cella dell'elenco a discesa dipendente dopo aver selezionato modificato in Excel?
- Come creare elenchi a discesa a cascata dipendenti in Excel?
- Come popolare automaticamente altre celle quando si selezionano i valori nell'elenco a discesa di Excel?
- Come creare un calendario con elenco a discesa in Excel?
- HCome salvare o conservare le selezioni delle caselle di riepilogo ActiveX in Excel?
I migliori strumenti per la produttività in ufficio
Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%
- Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
- Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
- Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
- Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
- Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
- Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
- Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
- Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
- Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il 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!
