Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako ustvariti dinamične kaskadne sezname polj v Excelu?

Morda boste vedeli, kako ustvariti kaskadni seznam padajočega preverjanja v programu Excel. Vendar, kako ustvariti dinamične kaskadne sezname polj v Excelu? V tem članku je predstavljena metoda VBA, da bi jo spustili.

Ustvarite dinamične kaskadne sezname s kodo VBA


Ustvarite dinamične kaskadne sezname s kodo VBA


Kot je prikazano spodaj prikazano sličico, morate ustvariti polje z nadrejenim seznamom, ki vsebuje edinstvene vrednosti stolpca »Drink« in prikaže vse ustrezne vrednosti v drugem seznamu, ki temelji na izboru v nadrejenem seznamu. Naslednja VBA koda vam pomaga doseči. Prosimo, naredite na naslednji način.

1. Najprej morate v stolpcu »Piti« izvleči vse enolične vrednosti. Izberite prazno celico, vnesite formulo matrike =IFERROR(INDEX($A$2:$A$11, MATCH(0,COUNTIF($J$1:J1, $A$2:$A$11), 0)),"") v Formula Bar, nato pa pritisnite Ctrl + Shift + Vnesite ključ. Potem povlecite Polnjenje ročaja da bi dobili vse edinstvene vrednosti. Prikaz slike:

Opombe: V formuli, $A$2:$A$11 je razpon, iz katerega boste pridobili edinstvene vrednosti. J1 je celica, nad katero se nahaja vaša formula.

Nasvet: Če formula je preveč težko zapomniti in ravnati, je Izberite podvojene in enolične celice uporabnost Kutools za Excel bo dobra izbira za hitro pridobitev vseh edinstvenih vrednosti iz stolpca.

Izberite stolpec vsebuje edinstvene vrednosti, ki jih boste izpisali. Potem omogočite pripomoček s klikom Kutools > Izberite > Izberite podvojene in enolične celice. v Izberite podvojene in enolične celice pogovorno okno, izberite Vse edinstvene (vključno s podvoji 1st) in kliknite na OK gumb. Nato se v stolpcu izberejo vse enolične vrednosti. Kopirajte in prilepite jih na novo mesto. Prikaz slike:

Kutools za Excel: z več kot 200 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60. Prenesite in brezplačno preizkusite zdaj!

2. Vstavite dve seznamski seznam posebej, tako da kliknete Razvojni > Vstavi > Seznam oken (nadzor ActiveX). Prikaz slike:

3. Z desno miškino tipko kliknite polje starševskega seznama in izberite Nepremičnine iz kontekstnega menija. V Ljubljani Nepremičnine pogovorno okno, spremenite (Ime) polje v drink ali drugo ime, kot ga potrebujete, vnesite obseg celic, ki vsebuje izločene edinstvene vrednosti v Seznam polnila Območje polje in zaprite pogovorno okno.

4. Ponovite korak 3, da spremenite drugo okence za seznam (Ime) polje v postavko v Nepremičnine pogovorno okno.

5. Desno kliknite jeziček stanja in izberite Ogled kode v meniju z desnim klikom. Potem kopirajte pod kodo VBA v okno Code. Prikaz slike:

VBA koda: ustvarite dinamične kaskadne sezname polj v Excelu

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

Opombe: V kodi Drink in Item sta imena dveh seznamov, jih spremenite v svoja imena.

6. Pritisnite druga + Q tipke za zapiranje Microsoft Visual Basic za aplikacije okno.

7. Izklopite način oblikovanja tako, da kliknete Razvojni > Način oblikovanja.

Od zdaj naprej, ko izberete katero koli vrsto pijače, kot je kava v matičnem seznamu, se bodo v drugi prikazale vse kave. Izberite Čaj ali Vino bo v drugem seznamu prikazal samo čaj ali vino. Prikaz slike:


Sorodni članki:


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.