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

Excel- ում բացվող ցուցակից ինչպե՞ս ընտրել մի քանի իրեր:

Բացվող ցուցակը հաճախ օգտագործվում է Excel- ի ամենօրյա աշխատանքում: Լռելյայնորեն, միայն մեկ տարր կարող է ընտրվել բացվող ցուցակում: Բայց որոշ ժամանակներում կարող է անհրաժեշտ լինել բացվող ցուցակից մի քանի տարր ընտրել մեկ մեկ բջիջում, ինչպես ցույց է տրված նկարում: Ինչպե՞ս կարող եք այն կարգավորել Excel- ում:

փաստաթուղթն ընտրեք բազմաթիվ տարրեր բացվող ցուցակից 1 doc սլաք աջ փաստաթուղթն ընտրեք բազմաթիվ տարրեր բացվող ցուցակից 2

Ընտրեք մի քանի տարրեր բացվող ցուցակից VBA- ով բջիջ

Ընտրեք բազմաթիվ տարրեր բացվող ցուցակից բջիջով Kutools- ի համար Excel- ի հարմար տարբերակը


Ընտրեք մի քանի տարրեր բացվող ցուցակից VBA- ով բջիջ

Ահա մի քանի VBA- ն կարող է լավություն ցուցաբերել ձեզ այս աշխատանքը լուծելու հարցում:

Բջջի բացվող ցուցակից ընտրեք կրկնօրինակ իրեր

1. Բացվող ցուցակ ստեղծելուց հետո ընտրելու համար աջ կտտացրեք թերթիկի ներդիրին Դիտել կոդը համատեքստի ընտրացանկից:
փաստաթուղթն ընտրեք բազմաթիվ տարրեր բացվող ցուցակից 3

2. Հետո Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք և տեղադրեք կոդը ներքևում դատարկ սցենարում:

VBA. Բջջի բացվող ցուցակից ընտրեք բազմաթիվ իրեր

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim xRgVal As Range
    Dim xStrNew As String
    On Error Resume Next
    Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
    If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
    If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xStrNew = Target.Value
    Application.Undo
    If xStrNew = Target.Value Then
    Else
    xStrNew = xStrNew & " " & Target.Value
    Target.Value = xStrNew
    End If
    Application.EnableEvents = True
End Sub

3. Պահեք կոդը և փակեք պատուհանը ՝ բացվող ցուցակին վերադառնալու համար: Այժմ բացվող ցանկից կարող եք ընտրել բազմաթիվ իրեր:

Նշում.

1. VBA- ի միջոցով այն իրերն առանձնացնում է ըստ տարածության, կարող ես փոխել xStrNew = xStrNew & "" & Նպատակ. Արժեք ուրիշներին `սահմանը փոխելու համար, ինչպես ձեզ հարկավոր է: Օրինակ, xStrNew = xStrNew & "," & Նպատակ. Արժեք կետերը բաժանելու են ստորակետերով:

2. Այս VBA կոդը աշխատում է թերթի բոլոր բացվող ցուցակների համար:

Առանց կրկնության բացվող ցուցակից բջիջ ընտրեք բազմաթիվ իրեր

Եթե ​​պարզապես ուզում եք բացվող ցուցակից բջիջ ընտրել եզակի իրեր, կարող եք կրկնել վերը նշված քայլերը և օգտագործել ներքևի կոդը:

VBA without առանց կրկնության ընտրեք մի քանի տարր բացվող ցուցակից դեպի բջիջ

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim I As Integer
    Dim xRgVal As Range
    Dim xStrNew As String
    Dim xStrOld As String
    Dim xFlag As Boolean
    Dim xArr
    On Error Resume Next
    Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
    If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
    If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xFlag = True
    xStrNew = " " & Target.Value & " "
    Application.Undo
    xStrOld = Target.Value
    If InStr(1, xStrOld, xStrNew) = 0 Then
        xStrNew = xStrNew & xStrOld & " "
    Else
        xStrNew = xStrOld
    End If
    Target.Value = xStrNew
    Application.EnableEvents = True
End Sub

Երկու վերը նշված VBA կոդերը չեն կարող ջնջել բջիջի բովանդակության մասերը, միայն աջակցում են բջիջի բոլոր տարրերը մաքրելու համար:


Ընտրեք բազմաթիվ տարրեր բացվող ցուցակից բջիջով Kutools- ի համար Excel- ի հարմար տարբերակը

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

Բացվող ցուցակը ստեղծելուց հետո ընտրեք բացվող ցուցակի բջիջները և կտտացրեք Կուտոլս > Բացվող ցուցակ > Բազմակի ընտրության Բացվող ցուցակ միացնել այս օգտակար ծրագիրը:
doc kutools multi select բացվող ցուցակ 1

Այնուհետև ընտրված բացվող ցուցակի բջիջները կարող են ընտրվել բջիջների բազմաթիվ տարրեր:

Եթե ​​առաջին անգամ օգտագործում եք այս տարբերակը, նախքան այս օգտակար ծրագիրը կիրառելը, կարող եք նշել այս օգտակար պարամետրերը, ինչպես ձեզ հարկավոր է:

Սեղմել Կուտոլս > Բացվող ցուցակ > կողքի սլաքը Բազմակի ընտրության Բացվող ցուցակ > Կարգավորումներ.
doc kutools multi select բացվող ցուցակ 2

Այնուհետեւ Բազմակի ընտրությամբ Բացվող ցուցակի կարգավորումները երկխոսություն, կարող եք

1) նշեք կիրառման շրջանակը, որքան ձեզ հարկավոր է.

2) նշել կետի տեղանքի ուղղությունը.

3) նշեք տարանջատիչը իրերի միջև.

4) Նշեք, եթե կրկնօրինակներ չեն ավելացնում և չեն վերացնում կրկնօրինակ իրերը:

Սեղմել Ok եւ սեղմեք Կուտոլս > Բացվող ցուցակ > Բազմակի ընտրության Բացվող ցուցակ այն ուժի մեջ մտնելու համար:

ԱկնարկԿիրառել Բազմակի ընտրության Բացվող ցուցակ օգտակարություն, դուք պետք է տեղադրել դա սկզբում: Եթե ​​ցանկանում եք ստեղծել բացվող ցուցակ ՝ բազմաթիվ մակարդակներով, ստորև նշված օգտակար ծրագիրը կարող է օգնել ձեզ:

Excel- ում հեշտությամբ ստեղծեք դինամիկ 2-մակարդակի կամ բազմաստիճան կախված բացվող ցուցակ

Excel- ում 2 մակարդակի կամ բազմակի մակարդակի բացվող ցուցակ ստեղծելու համար բարդ է: Այստեղ Դինամիկ բացվող ցուցակ օգտակարությունը Excel- ի համար նախատեսված գործիքներ կարող է քեզ լավություն անել: Այն, ինչ դուք միայն պետք է անեք, պատվիրել տվյալները, ինչպես ցույց է տրված օրինակում, ապա ընտրել տվյալների տիրույթն ու ելքային միջակայքը, ապա թողնել այն օգտակար ծառայությանը:  Կտտացրեք 30 օր անվճար փորձարկում!
doc առաջադեմ կոմբինատ տողեր
 
Kutools Excel-ի համար. ավելի քան 300 հարմար Excel հավելումներով, անվճար փորձելու առանց սահմանափակման 30 օր.

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

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 ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (26)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ավելացնելուց հետո բացվող, ջնջված տվյալները չեն աշխատում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես գտա նույն հարցը. Կարծում եմ՝ դա հաղթահարելու միջոց եմ գտել։ Կոդի ներքևում կտեսնեք «xStrNew = xStrOld» կոդը: Փոխարենը, ստիպեք այն ասել xStrNew = " "

Այն աշխատում է ինձ համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հնարավորություն կա՞, որ դուք դեռ ունեք այս կոդը: Ես փորձում եմ անել այն, ինչ ասացիր, բայց տեքստը դեռ կրկնվում է:
Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կներես, բայց չեմ անում: Այնուամենայնիվ, ես պարզապես նայեցի վերևի ծածկագիրը և երևում է, որ հեղինակը խմբագրել է կոդը իմ առաջարկով:

տեղադրեք ձեր խնդիրը այս հոդվածի հիմնական թեմայում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
առաջին ծածկագրում ավելացրեք հետևյալ տողը 6-րդ և 7-րդ տողերի միջև (երկրորդ ծածկագրում 10-11). Եթե ​​Target.Value = "" Ապա Ելք Ենթ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես օգտագործել եմ սա «Ընտրեք մի քանի տարրեր բացվող ցուցակից դեպի բջիջ առանց կրկնելու»
ահա թե ինչ եղավ
1. Բազմաթիվ ընտրությունը տեղի է ունենում առանց խնդիրների:
2. Խնդիրն այն է, երբ ես փորձում եմ խմբագրել և հեռացնել որևէ տարբերակ: Ինձ համար տարբերակ չկա հեռացնելու տարբերակ: այն շարունակում է բազմապատկվել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կկիրառեիք այս գործառույթը, բայց այնպես կդարձնեք, որ ավելորդ արժեքներ չլինեն: Ցանկացած օգնություն կգնահատվի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Եթե ​​ես բացվող ցուցակով թերթ ստեղծեմ՝ օգտագործելով վանդակները, կա՞ տարբերակ այս աշխատանքային գրքույկը կիսելու այս վանդակների գործառույթի հետ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես նաև պարզում եմ, որ թարմացված VBA կոդով մի քանի տարրեր ընտրելուց հետո ես դեռ չեմ կարող մաքրել բջիջը, այն պարզապես շարունակում է բազմապատկվել:
Որևէ մեկը դեռ լուծում ունի՞ դրա համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, Rusty, կոդը, որը ես թարմացրել եմ այն ​​ավելի կայուն դարձնելու համար: Բայց քանի որ բջիջը գտնվում է տվյալների վավերացման մեջ, դատարկը տվյալների վավերացումից դուրս է, կոդը չի կարող լուծել այս խնդիրը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
կոդը աշխատում է, բայց տարածվում է բոլոր բջիջներում և բազմանում է բջիջներում և թույլ չի տա ջնջել, կարո՞ղ եք օգնել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Quando quero deletar alguma opção ou todas dá erro. Como posso լուծու՞մ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն! Como puedo usar este codigo para todo un worksheet y no solo para una pestana?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, Vero, Kutools-ի համար Excel-ի Բազմակի ընտրության բացվող ցուցակի առանձնահատկությունն աջակցում է մի քանի տարրերի ընտրությանը բացվող ցուցակից ամբողջ աշխատաթերթում կամ աշխատանքային գրքում, պարզապես նշեք Նշված շրջանակը Բազմակի ընտրության բացվող ցանկի կարգավորումների երկխոսության մեջ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ինչպե՞ս կարող եմ դա անել ձեր տրամադրած առաջին բանաձևի համար :) Նախապես շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
bonjour,
selon le premier exemple tout fonctionne très bien jusqu'à ce que je verrouille la feuille.
quand la feuille est verrouillée, je n'ai plus le choix multiple !
մեկնաբանել արդար?
շնորհակալ եմ նախապես
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, կներեք դրա համար: Այս խնդրից խուսափելու համար մենք կթարմացնենք մեր հնարավորությունը հաջորդ տարբերակը: Շնորհակալություն արձագանքի համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
BCP շնորհակալություն հայտնել ձեզ
Mais à quand la nouvelle տարբերակը?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, նոր տարբերակը պլանավորման փուլում է, քանի որ հաջորդ տարբերակը կթարմացվի մի քանի առանձնահատկություններ, դա կարող է որոշ ժամանակ տևել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, մենք թարմացրել ենք այս տարբերակը ձեզ համար, բայց սա բետա տարբերակ է, խնդրում ենք ներբեռնել այն այստեղից. https://download.extendoffice.com/downloads/Kutools-for-Excel/beta/26.10/KutoolsforExcelSetup.Inno.exe
Եթե ​​խնդիրներ կան, ողջունեք ձեր կարծիքը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
thank you,
Je vais la télécharger et essayer.
Bonne journée
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
կոդը աշխատում է, բայց ինձ թույլ չի տա ջնջել, կարո՞ղ է ինչ-որ մեկը տեղադրել նոր կոդը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
¿Cómo puedo hacer para que el orden en que se coloque el texto, sea tan cuál como yo quiera?

Example:
Mi texto para la lista es:
TRAMITAR ESTE ASUNTO
ԿՈՈՐԴԻՆԱՌ
ANALIZAR Y RECOMENDAR

այս ընտրությունը:
TRAMITAR ESTE ASUNTO
ANALIZAR Y RECOMENDAR

Ինձ թվում է
ANALIZAR Y RECOMENDAR, TRAMITAR ESTE ASUNTO

o ծով, los de abajo me aparecen primero, pero quiero que sea en el orden en que voy seleccionando...
TRAMITAR ESTE ASUNTO, ANALIZAR Y RECOMENDAR.....
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, Gorgely, Kutools-ի բազմակի ընտրության բացվող ցուցակը կարող է օգնել ձեզ: Ձեր ընտրած տարրերը կլինեն ձեր ուզած հերթականությամբ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Como posso utilizar a função com a planilha bloqueada?
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, մակրոներ, փորձեք ստորև նշված կոդը, այն աջակցում է պաշտպանված թերթի բացվող ցուցակից մի քանի տարրեր ընտրելը:
Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim xRgVal As Range
    Dim xStrNew As String
    On Error Resume Next  
    xType = 0
    xType = Target.Validation.Type
    If xType <> 3 Then Exit Sub
    If (Target.Count > 1) Then Exit Sub

    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xStrNew = Target.Value
    Application.Undo
    If xStrNew = Target.Value Then
    Else
    xStrNew = xStrNew & " " & Target.Value
    Target.Value = xStrNew
    End If
    Application.EnableEvents = True
End Sub

Եվ նաև Kutools-ը Excel 26.1-ի և ավելի ուշ տարբերակների համար աջակցում է այս աշխատանքը պաշտպանված թերթիկում:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

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