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

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

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

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

Office Tab- ը միացրեք Tabbed խմբագրումը և զննարկումը Office- ում, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք ...
Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով
  • Վերաօգտագործել ցանկացած բան. Ավելացրեք առավել օգտագործված կամ բարդ բանաձևերը, գծապատկերները և ցանկացած այլ բան ձեր նախընտրածներին և հետագայում արագորեն օգտագործեք դրանք:
  • Ավելի քան 20 տեքստի առանձնահատկություններ. Հանեք համարը տեքստային տողից; Հանել կամ հեռացնել տեքստերի մի մասը; Թվերն ու արժույթները վերածեք անգլերեն բառերի:
  • Միաձուլել գործիքներըԲազմաթիվ աշխատանքային գրքեր և թերթեր մեկում; Միավորել բազմաթիվ բջիջներ / տողեր / սյուններ ՝ առանց տվյալների կորստի: Միաձուլեք կրկնօրինակ տողերն ու գումարը:
  • Պառակտման գործիքներՏվյալները պառակտել բազմակի թերթերի ՝ հիմնված արժեքի վրա. Մեկ աշխատանքային գրքույկ ՝ բազմակի Excel, PDF կամ CSV ֆայլեր; Մեկ սյունակ մի քանի սյունակներից:
  • Կպցնել բաց թողնելը Թաքնված / Filտված շարքեր; Հաշվելը և գումարը ըստ Ֆոնի գույնի; Personalանգվածային տարբերակով ստացողներին ուղարկեք անհատականացված էլ.
  • Սուպեր ֆիլտր Ստեղծեք զտման առաջադեմ սխեմաներ և կիրառեք ցանկացած թերթի վրա; Տեսակ ըստ շաբաթվա, օրվա, հաճախականության և ավելին; ֆիլտր համարձակ, բանաձևերով, մեկնաբանությամբ ...
  • Ավելի քան 300 հզոր հատկություններ; Աշխատում է Office 2007-2021 և 365-ի հետ; Աջակցում է բոլոր լեզուներին; Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում:

Ստեղծեք դինամիկ կասկադային ցուցակների տուփեր 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 կոճակ Դրանից հետո սյունակում ընտրվում են բոլոր եզակի արժեքները: Խնդրում ենք պատճենել և տեղադրել դրանք նոր վայրում: Տեսեք,

Excel- ի համար նախատեսված գործիքներ. Excel- ի ավելի քան 200 հարմարավետ հավելումներով, 60 օրվա ընթացքում անվճար փորձեք առանց սահմանափակումների: Ներբեռնեք և անվճար փորձեք հիմա:

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-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (1)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hi

Ինչի՞ն է վերաբերում «Ես»-ը կոդում և ինչպե՞ս կփոխվի կոդը, եթե ես ունեմ MultiSelect ցուցակի տուփ:

Regards
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից