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

Crea caselle di riepilogo a cascata dinamiche con codice VBA

Sorprendente! Utilizzo di schede efficienti in Excel come Chrome, Firefox e Safari!

Risparmia il 50% del tuo tempo e riduci migliaia di clic del mouse ogni giorno!

---

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:

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.

Leggi di più... Download gratuito... Acquista... 

---

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!

Leggi di più... Download gratuito... Acquista...