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

Ինչպե՞ս ստեղծել բացվող ցուցակ Excel- ում բազմաթիվ վանդակում:

Excel- ի շատ օգտվողներ հակված են բացման ցուցակ ստեղծել բազմաթիվ վանդակում, որպեսզի ամեն անգամ ցուցակից ընտրեն բազմաթիվ իրեր: Իրականում, Դուք չեք կարող ստեղծել տվյալների վավերացումով բազմաթիվ ցուցանակներով ցուցակ: Այս ձեռնարկում մենք ցույց կտանք ձեզ Excel- ում բազմաթիվ վանդակումներով բացվող ցուցակ ստեղծելու երկու եղանակ:

Օգտագործեք Boxուցակ տուփը ՝ բացման ցուցակ ստեղծելու համար ՝ բազմաթիվ վանդակներով
Պատասխան. Ստեղծեք ցուցակի տուփ աղբյուրի տվյալներով
B: Անվանեք այն բջիջը, որը դուք կտեղադրեք ընտրված իրերը
C: Տեղադրեք մի ձև, որը կօգնի դուրս բերել ընտրված իրերը
Anարմանալի գործիքով հեշտությամբ ստեղծեք բացվող ցուցակ տուփերով
Բացվող ցուցակի այլ ձեռնարկներ ...


Օգտագործեք Boxուցակ տուփը ՝ բացման ցուցակ ստեղծելու համար ՝ բազմաթիվ վանդակներով

Ինչպես ցույց է տրված սքրինշոթից ներքևում, ընթացիկ աշխատաթերթում A2: A11 տիրույթի բոլոր անունները կլինեն ցուցակի վանդակի աղբյուրի տվյալները: C4 բջիջի կտտոցով կտտացնելը կարող է դուրս բերել ընտրված իրերը, և ցուցակի վանդակում գտնվող բոլոր ընտրված տարրերը կցուցադրվեն E4 բջիջում: Դրան հասնելու համար խնդրում ենք վարվել հետևյալ կերպ.

A. Ստեղծեք ցուցակի տուփ աղբյուրի տվյալներով

1: սեղմեք Երեվակիչ > Տեղադրել > Ցուցակի տուփ (ակտիվ X կառավարման), Տեսեք,

2. Ներկայիս աշխատանքային թերթում նկարեք ցուցակի վանդակը, աջով կտտացրեք այն և ընտրեք Հատկություններ աջ կտտացնելու ցանկից:

3. Մեջ Հատկություններ երկխոսության տուփ, դուք պետք է կազմաձևեք հետևյալը.

  • 3.1 ListFillRange տուփ, մուտքագրեք աղբյուրի տիրույթը, որը կցուցադրեք ցուցակում (այստեղ ես մուտքագրում եմ տիրույթ A2: A11);
  • 3.2 ListStyle տուփ, ընտրեք 1 - fmList StyleOption;
  • 3.3 MultiSelect տուփ, ընտրեք 1 - fmMultiSelectMulti;
  • 3.4 Հատկություններ երկխոսության տուփ: Տեսեք,

B: Անվանեք այն բջիջը, որը դուք կտեղադրեք ընտրված իրերը

Եթե ​​Ձեզ անհրաժեշտ է բոլոր ընտրված տարրերը դուրս բերել նշված բջիջ, ինչպիսին է E4- ը, խնդրում ենք անել հետևյալը:

1. Ընտրեք E4 բջիջը, մուտքագրեք ListBoxOutput- ը մեջ Անունը Box եւ սեղմեք այն Մտնել բանալի.

Գ. Տեղադրեք ձև, որն օգնում է ընտրված իրերը դուրս բերելուն

1: սեղմեք Տեղադրել > Ձեւավորում > Ուղղանկյուն: Տեսեք,

2. Ձեր աշխատաթերթում նկարեք ուղղանկյուն (այստեղ ես նկարում եմ C4 բջիջի ուղղանկյունը): Դրանից հետո աջ կտտացրեք ուղղանկյունին և ընտրեք Նշանակեք մակրո աջ կտտացնելու ցանկից:

3. Մեջ Նշանակեք մակրո երկխոսության տուփ, կտտացրեք նոր կոճակը:

4. Բացման մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, խնդրում ենք փոխարինել բնօրինակ կոդը ՝ Մոդուլներ ստորև նշված VBA կոդով պատուհան:

VBA կոդ. Ստեղծեք ցուցակ բազմաթիվ վանդակների հետ

Sub Rectangle1_Click()
'Updated by Extendoffice 20200730
Dim xSelShp As Shape, xSelLst As Variant, I, J As Integer
Dim xV As String
Set xSelShp = ActiveSheet.Shapes(Application.Caller)
Set xLstBox = ActiveSheet.ListBox1
If xLstBox.Visible = False Then
    xLstBox.Visible = True
    xSelShp.TextFrame2.TextRange.Characters.Text = "Pickup Options"
    xStr = ""
    xStr = Range("ListBoxOutput").Value
    
    If xStr <> "" Then
         xArr = Split(xStr, ";")
    For I = xLstBox.ListCount - 1 To 0 Step -1
        xV = xLstBox.List(I)
        For J = 0 To UBound(xArr)
            If xArr(J) = xV Then
              xLstBox.Selected(I) = True
              Exit For
            End If
        Next
    Next I
    End If
Else
    xLstBox.Visible = False
    xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options"
    For I = xLstBox.ListCount - 1 To 0 Step -1
        If xLstBox.Selected(I) = True Then
        xSelLst = xLstBox.List(I) & ";" & xSelLst
        End If
    Next I
    If xSelLst <> "" Then
        Range("ListBoxOutput") = Mid(xSelLst, 1, Len(xSelLst) - 1)
    Else
        Range("ListBoxOutput") = ""
    End If
End If
End Sub

Նշում: Կոդում, Ուղղանկյուն 1 ձևի անունն է. ListBox1- ը ցուցակի վանդակի անունն է. Ընտրել Ընտրք և Վերցնելու ընտրանքներ ձևի ցուցադրվող տեքստերն են. եւ ListBoxOutput- ը ելքային վանդակի միջակայքի անունն է: Դրանք կարող եք փոխել ՝ ելնելով ձեր կարիքներից:

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

6. Սեղմեք ուղղանկյան կոճակի վրա, ցուցակի վանդակը ծալվում կամ ընդլայնվում է: Երբ ցուցակի վանդակը ընդլայնվում է, ստուգեք ցուցակի վանդակում գտնվող կետերը և այնուհետև կրկին կտտացրեք ուղղանկյունին ՝ բոլոր ընտրված իրերը E4 բջիջ դուրս բերելու համար: Տե՛ս ստորև ցուցադրումը.

7. Եվ այնուհետև պահպանեք աշխատանքային գրքույկը որպես Excel MacroEnable աշխատանքային գիրք ապագայում կոդը կրկին օգտագործելու համար:


Createարմանալի գործիքով ստեղծեք բացվող ցուցակ տուփերով

Վերոնշյալ մեթոդը չափազանց բազմաստիճան է `հեշտությամբ կարգավորելու համար: Այստեղ բարձր խորհուրդ են տալիս Բացվող ցուցակ ՝ տուփերով օգտակարությունը Kutools համար Excel օգնելու ձեզ հեշտությամբ ստեղծել բացվող ցուցակ նշված տիրույթում, ընթացիկ աշխատաթերթում, ընթացիկ աշխատանքային գրքում կամ բոլոր բացված աշխատանքային գրքույկներում ՝ ձեր կարիքների հիման վրա: Տե՛ս ստորև ներկայացված ցուցադրումը.
Ներբեռնեք և փորձեք հիմա: (30- օր անվճար երթուղի)

Բացի վերը նշված ցուցադրումից, մենք նաև տրամադրում ենք քայլ առ քայլ ուղեցույց `ցույց տալու, թե ինչպես կիրառել այս հատկությունը` այս խնդրին հասնելու համար: Խնդրում եմ, արեք հետևյալ կերպ.

1. Բացեք տվյալների վավերացման բացվող ցուցակը սահմանած աշխատանքային թերթը, կտտացրեք Կուտոլս > Բացվող ցուցակ > Բացվող ցուցակ ՝ տուփերով > Պարամետրեր. Տեսեք,

2. Մեջ Բացվող ցուցակը `Ստուգման տուփի պարամետրերով երկխոսության տուփ, խնդրում ենք կազմաձևել հետևյալը.

  • 2.1) Ի Դիմել բաժինը, նշեք կիրառման շրջանակը, որտեղ դուք կստեղծեք վանդակներ `բացվող ցուցակում գտնվող իրերի համար: Կարող եք նշել ա որոշակի տիրույթ, ընթացիկ աշխատանքային թերթ, ընթացիկ աշխատանքային գրքույկ or բոլոր բացված աշխատանքային գրքերը հիման վրա ձեր կարիքները.
  • 2.2) Ի ռեժիմ բաժնում ընտրեք ոճ, որը ցանկանում եք դուրս բերել ընտրված տարրերը.
  • Այստեղ վերցնում է Փոփոխել տարբերակը որպես օրինակ, եթե սա ընտրեք, բջիջի արժեքը կփոխվի ՝ ելնելով ընտրված տարրերից:
  • 2.3) Ի Բաժանիչ տուփ, մուտքագրեք սահմանազատիչ, որը կօգտագործեք բազմաթիվ իրերը բաժանելու համար.
  • 2.4) Ի Տեքստի ուղղությունը բաժնում, ընտրեք տեքստի ուղղությունը `ելնելով ձեր կարիքներից;
  • 2.5) Կտտացրեք այն OK կոճակը:

3. Վերջին քայլը, կտտացրեք Կուտոլս > Բացվող ցուցակ > Բացվող ցուցակ ՝ տուփերով > Միացնել տրոհման տուփերի անկման ցուցակը ակտիվացնել այս հատկությունը:

Այսուհետ, երբ կտտացնում եք նշված տիրույթում բացվող ցուցակով բջիջները, կհայտնվի ցուցակի վանդակը, ընտրեք իրերը ՝ նշելով վանդակները ՝ բջիջ դուրս գալու համար, ինչպես ցույց է տրված ստորև ցուցադրված ցուցադրումը (Վերցրեք փոփոխության ռեժիմը որպես օրինակ )

Այս հատկության մասին ավելի մանրամասն տեղեկություններ ստանալու համար, խնդրում ենք այցելել այստեղ.

  Եթե ​​ցանկանում եք ունենալ անվճար փորձաշրջան (30-օր) այս կոմունալ, խնդրում ենք կտտացնել այն ներբեռնելու համար, և այնուհետև անցեք գործողությունը կիրառելու վերը նշված քայլերին համապատասխան:


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

Excel- ի բացման ցուցակը մուտքագրելիս ավտոմատ լրացնել
Եթե ​​ունեք տվյալների վավերացման մեծ ցանկ ունեցող ցուցիչ, ապա հարկավոր է ոլորել ցուցակում `պատշաճը գտնելու համար, կամ ամբողջ բառն ուղղակիորեն մուտքագրել ցուցակի վանդակում: Եթե ​​կա բացման ցուցակում առաջին տառը մուտքագրելիս ավտոմատ կերպով լրացնելու թույլտվության մեթոդ, ամեն ինչ կդառնա ավելի հեշտ: Այս ձեռնարկը տրամադրում է խնդիրը լուծելու մեթոդը:

Excel- ում ստեղծեք մեկ այլ աշխատանքային գրքից բացվող ցուցակ
Տվյալների վավերացման բացվող ցուցակը աշխատանքային գրքում ստեղծելը բավականին հեշտ է: Բայց եթե տվյալների վավերացման համար անհրաժեշտ ցուցակի տվյալները տեղակայվեն մեկ այլ աշխատանքային գրքում, ի՞նչ կանեիք: Այս ձեռնարկում դուք կսովորեք, թե ինչպես մանրամասնորեն ստեղծել Excel- ի մեկ այլ աշխատանքային գրքից թողարկված ցանկի ցուցակ:

Excel- ում ստեղծեք որոնելի բացվող ցուցակ
Բազմաթիվ արժեքներով բացվող ցուցակի համար պատշաճ գտնելը հեշտ գործ չէ: Նախկինում մենք ներմուծել ենք բացվող ցուցակը ավտոմատ կերպով լրացնելու մեթոդ, երբ առաջին տառը մուտքագրեք բացվող վանդակում: Ինքնալրացման գործառույթից բացի, դուք կարող եք նաև բաց թողնել ցանկը որոնելի դարձնել `բացվող ցուցակում պատշաճ արժեքներ գտնելու գործում աշխատանքային արդյունավետությունը բարձրացնելու համար: Բացվող ցուցակը որոնելի դարձնելու համար փորձեք այս ձեռնարկի մեթոդը:

Excel- ի բացվող ցուցակում արժեքներ ընտրելիս ավտոմատ կերպով լրացրեք այլ բջիջներ
Ասենք, որ դուք ստեղծել եք բացվող ցուցակ `հիմնվելով B8: B14 բջիջների տիրույթի արժեքների վրա: Բացվող ցուցակում ցանկացած արժեք ընտրելիս ցանկանում եք, որ համապատասխան արժեքները C8: C14 բջիջների տիրույթում ավտոմատ կերպով լրացվեն ընտրված խցում: Խնդրի լուծման համար, այս ձեռնարկի մեթոդները կօգնեն ձեզ:

Բացվող ցուցակի այլ ձեռնարկներ ...


Գրասենյակի արտադրողականության լավագույն գործիքները

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (70)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա ֆանտաստիկ է: Բայց ավելի լավ կլինի, եթե բազմակի ընտրությունը տեղադրվի այնտեղ, որտեղ կուրսորն ակտիվ է: Պարտադիր չէ, թե ինչ է սահմանում կոդը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա հենց այն է, ինչ ես փնտրում էի, կարո՞ղ է կոդը փոփոխվել, որպեսզի ընտրված տվյալները ցուցադրվեն սյունակի ներքևում գտնվող առանձին բջիջներում: այնպես որ փոխարեն՝ երկուշաբթի, երեքշաբթի, չորեքշաբթի, ցուցադրել որպես: Երկուշաբթի երեքշաբթի չորեքշաբթի
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա հենց այն է, ինչ ես փնտրում էի, կա՞ կոդի փոփոխություն, որը ցուցակի տուփից հաջորդ ընտրությունը կդնի հաջորդ տողում: օրինակ՝ մեկ երկու երեք փոխարեն՝ մեկ, երկու, երեք
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
կարող եք բացատրել, թե ինչպես եք ավելացրել ListBoxOutput-ը E4 բջիջում
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ինչպես կարող եմ պատճենել այս ցուցակի տուփը բազմաբջջի համար: Պարզապես պատճենեք և տեղադրեք, չի աշխատում: Կարո՞ղ եք բացատրել, օրինակ, յուրաքանչյուր բջիջում (E5, E6, E7, E8,...) ինչպես կարող եմ տեղադրել այս ընտրության տուփը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
կարո՞ղ եք բացատրել, թե ինչպես կարող եմ հեշտությամբ պատճենել այս ցուցակի տուփը 100 տողերի համար: (Առանձին ցանկի տուփեր 100 տողերից յուրաքանչյուրի համար)
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Արդյունքն ավարտվելուց և կոճակը նորից սեղմելուց հետո ցուցակի վանդակում նախկին ընտրված տարրերը չեն կարող փոխվել: Ինչպե՞ս լուծել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն! Դա հիանալի է և աշխատում է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես սա նորեկ եմ, բայց կարո՞ղ է որևէ մեկը ինձ ասել, թե ինչպես ստեղծել մի քանի ընտրանի ListBox, որը կբացվի, օրինակ, երբ ես ընտրեմ անուն: Ես ուզում եմ, որ ցուցակի տուփը տեղավորվի սինգլի մեջ:
ՕՐԻՆԱԿ. Ես ունեմ անունների ցանկ կոնտակտային տվյալներով և այլն: Ես ուզում եմ ստեղծել կրկնօրինակ ցուցակի տուփ իմ ցուցակի յուրաքանչյուր անվան համար: Ես կցանկանայի, որ այն ավտոմատ բացվի, երբ ես անուն ընտրեմ, և նորից հայտնվի բջիջի մեջ, երբ ես գնամ տեղեկատվության մեկ այլ տող: Խնդրում եմ, խորհուրդ տուր. Նախապես շնորհակալություն.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Ռենդի,
Ներողություն, չի կարող լուծել այս խնդիրը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այն հիանալի աշխատում է հրահանգների համաձայն, սակայն, եթե ես պաշտպանեմ թերթիկը, այն տալիս է և սխալվում է: Սրա համար որևէ լուծում կա՞:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Աշխատեք կատարյալ հրահանգների համաձայն: Բայց, ինչպես կարող եմ օգտագործել սա Պաշտպանված թերթիկի վրա: Ներկայումս, եթե ես սա օգտագործեմ թերթիկը պաշտպանելուց հետո, այն ինձ տալիս է սխալ «Գործարկման ժամանակի սխալ '-2147024809 (80070057)'. Նշված արժեքը տիրույթից դուրս է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Ամիտ Սուդ,
Նախքան աշխատաթերթը պաշտպանելը, խնդրում ենք ձևաչափել Ելքային բջիջը որպես ապակողպված, այնուհետև կիրառեք ստորև ներկայացված VBA կոդը: Շնորհակալություն մեկնաբանության համար։

Sub Rectangle2_Click()
Dim xSelShp որպես ձև, xSelLst որպես տարբերակ, ես որպես ամբողջ թիվ
Ս.թ. սխալի Ռեզյումե Next
Սահմանել xSelShp = ActiveSheet.Shapes (Application.Caller)
Սահմանել xLstBox = ActiveSheet.ListBox1
Եթե ​​xLstBox.Visible = False then
xLstBox.Visible = Ճշմարիտ
xSelShp.TextFrame2.TextRange.Characters.Text = «Վերցնելու ընտրանքներ»
Ուրիշ
xLstBox.Visible = False
xSelShp.TextFrame2.TextRange.Characters.Text = «Ընտրեք ընտրանքները»
I = xLstBox.ListCount-ի համար՝ 1-ից 0 Քայլ -1
Եթե ​​xLstBox.Selected(I) = True then
xSelLst = xLstBox.List(I) & ";" & xSelLst
Վերջ: Եթե
Հաջորդը ես
Եթե ​​xSelLst <> "" Ապա
Շրջանակ («ListBoxOutput») = Միջին (xSelLst, 1, Len (xSelLst) - 1)
Ուրիշ
Range ("ListBoxOutput") = ""
Վերջ: Եթե
Վերջ: Եթե
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
«Ես ստեղծել եմ ֆայլ՝ օգտագործելով ActiveX ցուցակի վանդակը, ինչպես բացատրվում է ձեզ, այնտեղ ես մուտքագրել եմ որոշ տվյալներ և ավելացրել եմ նաև որոշ հատկություններ։ Ես ստուգել եմ որոշ տվյալներ՝ օգտագործելով ցուցակի վանդակը և պահպանել և դուրս եմ եկել ֆայլից։ Ֆայլը նորից բացելով, այն չի ցուցադրում ստուգված տվյալներ: կարո՞ղ են որևէ մեկը ինձ առաջարկել՝ պահպանել այդ թարմացումները»:
Ինչ-որ մեկը կարող է օգնել ինձ, խնդրում եմ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ օր,
Խնդրում ենք տեղադրել ստորև նշված VBA կոդը ThisWorkbook ծածկագրի պատուհանում:
Կոդում Sheet6-ը աշխատաթերթի լռելյայն անունն է, որը պարունակում է Ցուցակարկղը, որը ցանկանում եք պահպանել ընտրանքները, ինչպես ցույց է տրված ստորև ներկայացված սքրինշոթը: Իսկ ListBox1-ը ցուցակի տուփի անունն է: Խնդրում ենք փոխել դրանք ըստ անհրաժեշտության:

Մասնավոր ենթագիրք_BeforeSave (ByVal SaveAsUI որպես բուլյան, չեղարկել որպես բուլյան)
Զանգահարեք SaveSelections
Վերջ Sub

Մասնավոր ենթագիրք_Բաց()
Զանգահարեք RestoreSelections
Վերջ Sub

Մասնավոր ենթակետեր SaveSelections()

Dim arr() As Variant, i As Long, j As Long

Sheet6.OLEObjects("ListBox1") հետ
Եթե ​​.ListIndex > 0 Ապա
i = 0-ի համար դեպի .ListCount - 1
Եթե ​​.Ընտրված է(i) Ապա
j = j + 1
ReDim Պահպանել arr(1-ից j)
arr(j) = i
Վերջ: Եթե
հաջորդ
Names.Add Name:="Selections", RefersTo:=arr, Visible:=False
Վերջ: Եթե
Վերջ

Վերջ Sub

Մասնավոր ենթավերականգնման ընտրանքներ ()

Dim arr Որպես տարբերակ, ես որպես ամբողջ թիվ

arr = [Ընտրություններ]

Sheet6.OLEObjects("ListBox1") հետ
For i = 1 To UBound (arr)
.Selected(arr(i)) = Ճիշտ է
հաջորդ
Վերջ

Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շնորհակալություն պատասխանի համար, պարոն, բայց այն չի աշխատում իմ ֆայլի դեպքում, կարո՞ղ եք ուղարկել ձեր փոստի ID-ն, որպեսզի ես կարողանամ փոստով ուղարկել իմ ֆայլը ձեզ:
Փոխանցել |
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի Մանջուշա Իսաք,
Խնդրում ենք ուղարկել ձեր ֆայլը zxm@addin99.com էլ. Հուսով եմ, որ կարող եմ օգնել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բացի այդ, դուք պետք է պահեք աշխատանքային գրքույկը որպես Excel-ի մակրո-միացված աշխատանքային գրքույկ և ակտիվացնեք կոդը ամեն անգամ, երբ փոխեք ցուցակի վանդակի ընտրանքները:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ուզում եմ ավտոմատ կերպով թարմացնել անունները տարբեր սյունակներում: հնարավո՞ր է, եթե հնարավոր է, խնդրում եմ տարածել ինձ կոդը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Զարմանալի է, որ այն աշխատում է, բայց այն բանից հետո, երբ ես փակում եմ excel-ը և նորից բացում այն, վանդակի ստուգումը վերացել է, այնպես որ, եթե սեղմեմ կոճակը, բոլոր ցանկը կվերանա դրա համար ցանկացած լուծում:
խնդրում եմ ինչ-որ մեկը օգնի ինձ
Նախապես շատ շնորհակալ եմ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սիրելի Հրեշտակ,
Մենք հրապարակել ենք «Ինչպե՞ս պահպանել կամ պահպանել ActiveX ցուցակի տուփերի ընտրանքները Excel-ում» հոդվածը։ որը ներկայացնում է աշխատանքային գրքույկը փակելուց և նորից բացելուց հետո ցուցակի տուփերի ընտրանքները պահպանելու մեթոդ:
Լրացուցիչ տեղեկություններ ստանալու համար կարող եք հետևել այս հղմանը. https://www.extendoffice.com/documents/excel/5051-excel-listbox-save-selection.html
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
զարմանալի է, որ այն աշխատում է, բայց ես մի խնդիր ունեմ այն ​​բանից հետո, երբ ես պահեցի ֆայլը և նորից բացեցի այն, վանդակի ցուցակից բոլոր ստուգումները վերացել են
կարո՞ղ եք օգնել ինձ այս հարցում: Շատ շնորհակալ եմ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
նաև, այն փոխում է ցուցակի տուփի չափը և ձևը միշտ պահպանելուց հետո և նորից բացել ֆայլը, եթե որևէ մեկը լուծում ունի այս խնդրի համար, խնդրում եմ օգնեք ինձ:

thank you so much
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հարգելի նշան,
Մենք հրապարակել ենք «Ինչպե՞ս պահպանել կամ պահպանել ActiveX ցուցակի տուփերի ընտրանքները Excel-ում» հոդվածը։ որը ներկայացնում է աշխատանքային գրքույկը փակելուց և նորից բացելուց հետո ցուցակի տուփերի ընտրանքները պահպանելու մեթոդ:
Լրացուցիչ տեղեկություններ ստանալու համար կարող եք հետևել այս հղմանը. https://www.extendoffice.com/documents/excel/5051-excel-listbox-save-selection.html
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,

Ինձ հետաքրքրում է, թե կա՞ միջոց՝ ուղղորդելու ընտրանքները մեկից ավելի բջիջներ (ոչ միայն E4), կամ ընտրությունը դարձնել բացվող ստուգաթերթ, որպեսզի կարողանամ ընտրել մի քանի տարբերակներ ստուգաթերթից, բայց դա անել բազմիցս և անկախ այլ ընտրանքներ, որոնք ես արել եմ: Օրինակ, ինչպես կարող եմ օգտագործել պիկապ ընտրանքների միևնույն ցուցակը` նույն պիկապ ցուցակից E5, E6, E7 և այլն այլ ընտրանի մուտքագրելու համար:

Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն LizKats,
Խնդրում ենք փորձել ստորև բերված կոդը: Հուսով եմ, որ կարող եմ օգնել: Շնորհակալություն.

Sub Rectangle2_Click()

«Թարմացվել է Extendoffice 20200529

Dim xSelShp որպես ձև, xSelLst որպես տարբերակ, i որպես ամբողջ թիվ

Սահմանել xSelShp = ActiveSheet.Shapes (Application.Caller)

Սահմանել xLstBox = ActiveSheet.ListBox1

Dim xRg որպես տիրույթ

Dim xCount, xFNum, xR, xC Որպես ամբողջ թիվ

Dim xStr Որպես տող

Եթե ​​xLstBox.Visible = False then

xLstBox.Visible = Ճշմարիտ

xSelShp.TextFrame2.TextRange.Characters.Text = «Վերցնելու ընտրանքներ»

Ուրիշ

xLstBox.Visible = False

xSelShp.TextFrame2.TextRange.Characters.Text = «Ընտրեք ընտրանքները»

Սահմանել xRg = Range («ListBoxOutput»)

xCount = xLstBox.ListCount - 1

xStr = ""

For i = xLstBox.ListCount - 1 To 0 Քայլ -1

Եթե ​​xLstBox.Selected(i) = True Այնուհետեւ

xStr = xLstBox.List(i) & ";" & xStr

Վերջ: Եթե

Հաջորդ i



Եթե ​​xRg.Value = "" Ապա

xRg.Value = xStr

Ուրիշ

Սահմանել xRg = xRg: Օֆսեթ (1, 0)

Do while xRg.Value <> ""

Սահմանել xRg = xRg: Օֆսեթ (1, 0)

Հանգույց

xRg.Value = xStr

Վերջ: Եթե

Վերջ: Եթե

Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,

Շատ շնորհակալ եմ այս հրաշալի հոդվածի համար: Սա այն փոփոխված կոդը էր, որը ես փնտրում էի մեկնաբանություններում: Այնուամենայնիվ, ես տեսնում եմ, որ համակցված xStr տողը ավելացնում է «;» ստորակետ: ինչ-որ կերպ մինչև վերջ: Ես չեմ կարողանում վրիպազերծել, թե ինչպես չընդգրկել ստորակետը տողի վերջում:

Բացի այդ, կա՞ տարբերակ xRg-ի համար հատուկ բջիջների միջակայքերը նշելու համար: Ես նկատի ունեմ Set xRg = Range («ListBoxOutput») և ցանկանում եմ փոխել ListBoxOutput-ը H5:H10 և H15:20 նման մի բանի: Դա ինչ-որ կերպ հնարավոր կլինի՞:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այն լավ է աշխատում, շատ շնորհակալություն ձեր օգնության համար: Ես այստեղ մի խնդիր ունեմ, որ ամբողջ ելքը գալիս է նույն E4 բջիջում, ինչպես կարող ենք ելք ստանալ տարբեր բջիջներում, օրինակ՝ C4-ի ելք E4-ում, C5-ի համար E5-ում, C6-ում E6-ում և այլն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Լավ օր,
Ձեր նշած խնդիրը դեռ հնարավոր չէ լուծել։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Добрый день! Прошу помочь.
Как сделать так чтобы каждое значение выходило на новой клетке? чтобы по выходило по вертикали?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
ՕԳՆՈՒԹՅՈՒՆ!!! ինչպես է արդյունքը տարբեր տիրույթներում (ուղղահայաց):
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Sub Rectangle2_Click()
«Թարմացվել է Extendoffice 20190924
Dim xSelShp որպես ձև, xSelLst որպես տարբերակ, ես որպես ամբողջ թիվ
Dim xRg որպես տիրույթ
Սահմանել xSelShp = ActiveSheet.Shapes (Application.Caller)
Սահմանել xLstBox = ActiveSheet.ListBox1
Եթե ​​xLstBox.Visible = False then
xLstBox.Visible = Ճշմարիտ
xSelShp.TextFrame2.TextRange.Characters.Text = «Վերցնելու ընտրանքներ»
Ուրիշ
xLstBox.Visible = False
xSelShp.TextFrame2.TextRange.Characters.Text = «Ընտրեք ընտրանքները»
Սահմանել xRg = Range («ListBoxOutput»)
I = 0-ի համար դեպի xLstBox.ListCount - 1
Եթե ​​xLstBox.Selected(I) = True then
xSelLst = xLstBox.List(I)
xRg.Value = Mid(xSelLst, 1, Len(xSelLst))
Սահմանել xRg = xRg: Օֆսեթ (1, 0)
Վերջ: Եթե
Հաջորդը ես
Վերջ: Եթե
Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Como puedo replicar éste ejercicio en las filas inferiores?
Ինչպե՞ս կարող եմ կրկնել այս վարժությունը ստորև բերված տողերում:
Առայժմ ոչ մի մեկնաբանություն չկա
Բեռնել More
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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