Ինչպե՞ս ստեղծել դինամիկ կասկադային ցուցակի տուփեր Excel- ում:

Դուք կարող եք իմանալ, թե ինչպես ստեղծել կասկադի վավերացման բացվող ցուցակ Excel- ում: Այնուամենայնիվ, ինչպես ստեղծել Excel- ում դինամիկ կասկադային ցուցակների տուփեր: Այս հոդվածը ներկայացնում է VBA մեթոդ `այն խափանելու համար:

Ստեղծեք դինամիկ կասկադային ցուցակների տուփեր VBA կոդով

Ստեղծեք դինամիկ կասկադային ցուցակների տուփեր VBA կոդով

Ինչպես ցույց է տրված սքրինշոթից ներքևում, դուք պետք է ստեղծեք ծնողների ցուցակի տուփը պարունակում է Խմեք սյունակի եզակի արժեքները և ցուցադրեք բոլոր համապատասխան արժեքները երկրորդ ցուցակի վանդակում `հիմնված ծնողների ցուցակում վանդակում: Հետևյալ VBA կոդը օգնում է ձեզ հասնել դրան: Խնդրում եմ արեք հետևյալ կերպ.

1. Նախ, դուք պետք է քաղեք բոլոր եզակի արժեքները «Խմիչք» սյունակից: Ընտրեք դատարկ բջիջ, մուտքագրեք զանգվածի բանաձեւը =IFERROR(INDEX($A$2:$A$11, MATCH(0,COUNTIF($J$1:J1, $A$2:$A$11), 0)),"") մեջ Ֆորմուլա Բար, ապա սեղմել կոճակը Ctrl + Հերթափոխություն + Մտնել բանալի. Հետո քաշեք Լրացրեք բռնակ ստանալ բոլոր եզակի արժեքները: Տեսեք,

ՆշումԲանաձևում, $A$2:$A$11 այն տիրույթն է, որից դուք յուրահատուկ արժեքներ կհանեք J1- ը վերևում գտնվող բջիջն է, որտեղ գտնվում է ձեր բանաձևը:

ԱկնարկԵթե ​​բանաձևը շատ դժվար է հիշել և կարգավորել, ապա Ընտրեք Կրկնօրինակ և եզակի բջիջներ օգտակարությունը Excel- ի համար նախատեսված գործիքներ լավ ընտրություն կլինի սյունակից բոլոր յուրահատուկ արժեքներն արագ արդյունահանելու համար:

Խնդրում ենք ընտրել սյունակը պարունակում է եզակի արժեքներ, որոնցից դուք արդյունահանելու եք: Դրանից հետո միացրեք կոմունալը ՝ կտտացնելով Կուտոլս > ընտրել > Ընտրեք Կրկնօրինակ և եզակի բջիջներ, Մեջ Ընտրեք Կրկնօրինակ և եզակի բջիջներ երկխոսության տուփ, ընտրեք Բոլորը եզակի են (ներառյալ 1-ին կրկնօրինակները) ընտրեք եւ կտտացրեք OK կոճակ Դրանից հետո սյունակում ընտրվում են բոլոր եզակի արժեքները: Խնդրում ենք պատճենել և տեղադրել դրանք նոր վայրում: Տեսեք,

2. Տեղադրեք ցուցակների երկու տուփ առանձին `կտտացնելով Երեվակիչ > Տեղադրել > Ցուցակի տուփ (ActiveX հսկողություն), Տեսեք,

3. Աջ կտտացրեք ծնողների ցուցակի վանդակում և ընտրեք Հատկություններ համատեքստային ընտրացանկից: Մեջ Հատկություններ երկխոսության տուփ, փոխել (Անուն) դաշտը Խմել կամ այլ անուն, որքան անհրաժեշտ է, մուտքագրեք բջիջների տիրույթը պարունակում է արդյունահանվող եզակի արժեքները դեպի ListFillRange դաշտը և փակել երկխոսությունը:

4. Կրկնեք 3-րդ քայլը `երկրորդ ցուցակի տուփը փոխելու համար (Անուն) դաշտը Նյութի մեջ Հատկություններ երկխոսության վանդակում:

5. Աջ կտտացրեք թերթիկի ներդիրին և ընտրեք Դիտել կոդը աջ կտտացնելու ցանկից: Դրանից հետո պատճենեք ներքևում գտնվող VBA կոդն օրենսգրքի պատուհանում: Տեսեք,

VBA կոդ. Ստեղծեք դինամիկ կասկադային ցուցակի տուփեր 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

Notes: Խմեք և Նյութի ծածկագրում կա երկու ցուցակի տուփի անուններ, փոխեք դրանք ձեր սեփական անուններով:

6. Սեղմեք ալտ + Q ստեղները փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

7. Անջատեք Դիզայնի ռեժիմը ՝ կտտացնելով Երեվակիչ > Դիզայնի ռեժիմ.

Այսուհետ, ծնողների ցուցակի վանդակում ցանկացած տեսակի ըմպելիք ընտրելիս, սուրճի բոլոր ապրանքները կցուցադրվեն երկրորդում: Ընտրեք թեյը կամ գինին միայն թեյի կամ գինու ապրանքները կցուցադրվեն երկրորդ ցուցակի վանդակում: Տեսեք,

Առնչվող հոդվածներ քանակը:

• Ինչպե՞ս մաքրել կախված բացվող ցուցակի բջիջը Excel- ում փոփոխված ընտրելուց հետո:
• Ինչպե՞ս ստեղծել կախովի կասկադային բացվող ցուցակներ Excel- ում:
• Ինչպե՞ս ինքնաբերաբար լրացնել այլ բջիջները Excel- ի բացվող ցուցակում արժեքներ ընտրելիս:
• Ինչպե՞ս ստեղծել բացվող ցուցակի օրացույց Excel- ում:
• HExcel- ում պահպանե՞լ կամ պահպանե՞լ ActiveX ցուցակի տուփերի ընտրանքները: