Note: The other languages of the website are Google-translated. Back to English

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

Scheda Office Abilita la modifica a schede e la navigazione in Office e semplifica notevolmente il lavoro ...
Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%
  • 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:


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 kte 201905

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!
fondo officetab
Commenti (1)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Hi

A cosa si riferisce "Io" nel codice e come cambierà il codice se ho una casella di riepilogo MultiSelect?

Saluti
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL