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

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

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

Այս բաժինը տրամադրում է երկու VBA կոդ, որոնք կօգնեն ձեզ մի քանի ընտրություն կատարել բացվող ցուցակներում աշխատաթերթում: Երկու VBA կոդերը կարող են հասնել.

Դուք կարող եք կիրառել հետևյալ VBA կոդերից մեկը՝ Excel-ի աշխատաթերթում բացվող ցուցակում մի քանի ընտրություն կատարելու համար: Խնդրում ենք անել հետևյալը.

1. Բացեք աշխատաթերթը պարունակում է տվյալների վավերացման բացվող ցուցակներ, որոնցից ցանկանում եք կատարել բազմաթիվ ընտրություն: Աջ սեղմեք թերթիկի ներդիրին և ընտրեք Դիտել կոդը համատեքստի ընտրացանկից:

2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք ստորև նշված VBA կոդը ծածկագրի պատուհանում: Տեսեք,

VBA կոդ 1. Թույլատրել մի քանի ընտրություն բացվող ցուցակում առանց կրկնօրինակների

Private Sub Worksheet_Change(ByVal Target As Range)
    'Updated by Extendoffice 2019/11/13
    Dim xRng As Range
    Dim xValue1 As String
    Dim xValue2 As String
    If Target.Count > 1 Then Exit Sub
    On Error Resume Next
    Set xRng = Cells.SpecialCells(xlCellTypeAllValidation)
    If xRng Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Not Application.Intersect(Target, xRng) Is Nothing Then
        xValue2 = Target.Value
        Application.Undo
        xValue1 = Target.Value
        Target.Value = xValue2
        If xValue1 <> "" Then
            If xValue2 <> "" Then
                If xValue1 = xValue2 Or _
                   InStr(1, xValue1, ", " & xValue2) Or _
                   InStr(1, xValue1, xValue2 & ",") Then
                    Target.Value = xValue1
                Else
                    Target.Value = xValue1 & ", " & xValue2
                End If
            End If
        End If
    End If
    Application.EnableEvents = True
End Sub

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

Այժմ դուք կարող եք ընտրել մի քանի տարրեր ընթացիկ աշխատաթերթի բացվող ցանկից:

Ենթադրենք, որ դուք պատահաբար եք ընտրել որևէ տարր և պետք է այն հեռացնեք առանց ամբողջ բջիջը մաքրելու և նորից սկսելու: Հետևյալ VBA կոդը 2-ը կարող է ձեզ լավություն անել:

VBA կոդ 2. Թույլատրել մի քանի ընտրություն բացվող ցուցակում առանց կրկնօրինակների (ջնջել առկա տարրերը՝ կրկին ընտրելով այն)

Private Sub Worksheet_Change(ByVal Target As Range)
    'Updated by Extendoffice 2023/01/11
    'Updated by Ken Gardner 2022/07/11
    Dim xRng As Range
    Dim xValue1 As String
    Dim xValue2 As String
    Dim semiColonCnt As Integer
    Dim xType As Integer
    If Target.Count > 1 Then Exit Sub
    On Error Resume Next
    
    xType = 0
    xType = Target.Validation.Type
    If xType = 3 Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        xValue2 = Target.Value
        Application.Undo
        xValue1 = Target.Value
        Target.Value = xValue2
        If xValue1 <> "" Then
            If xValue2 <> "" Then
                If xValue1 = xValue2 Or xValue1 = xValue2 & ";" Or xValue1 = xValue2 & "; " Then ' leave the value if only one in list
                    xValue1 = Replace(xValue1, "; ", "")
                    xValue1 = Replace(xValue1, ";", "")
                    Target.Value = xValue1
                ElseIf InStr(1, xValue1, "; " & xValue2) Then
                    xValue1 = Replace(xValue1, xValue2, "") ' removes existing value from the list on repeat selection
                    Target.Value = xValue1
                ElseIf InStr(1, xValue1, xValue2 & ";") Then
                    xValue1 = Replace(xValue1, xValue2, "")
                    Target.Value = xValue1
                Else
                    Target.Value = xValue1 & "; " & xValue2
                End If
                Target.Value = Replace(Target.Value, ";;", ";")
                Target.Value = Replace(Target.Value, "; ;", ";")
                If Target.Value <> "" Then
                    If Right(Target.Value, 2) = "; " Then
                        Target.Value = Left(Target.Value, Len(Target.Value) - 2)
                    End If
                End If
                If InStr(1, Target.Value, "; ") = 1 Then ' check for ; as first character and remove it
                    Target.Value = Replace(Target.Value, "; ", "", 1, 1)
                End If
                If InStr(1, Target.Value, ";") = 1 Then
                    Target.Value = Replace(Target.Value, ";", "", 1, 1)
                End If
                semiColonCnt = 0
                For i = 1 To Len(Target.Value)
                    If InStr(i, Target.Value, ";") Then
                        semiColonCnt = semiColonCnt + 1
                    End If
                Next i
                If semiColonCnt = 1 Then ' remove ; if last character
                    Target.Value = Replace(Target.Value, "; ", "")
                    Target.Value = Replace(Target.Value, ";", "")
                End If
            End If
        End If
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub

Notes:

Anարմանալի գործիքով հեշտությամբ ստեղծեք բացվող ցուցակ ՝ բազմաթիվ ընտրություններով

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

1: սեղմեք Կուտոլս > Բացվող ցուցակ > Բազմակի ընտրության Բացվող ցուցակ > Պարամետրեր. Տեսեք,

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

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

3. Խնդրում ենք կտտացնել Կուտոլս > Բացվող ցուցակ > Բազմակի ընտրության Բացվող ցուցակ գործառույթն ապահովելու համար:

Այժմ դուք կարող եք բացման ցուցակից մի քանի տարր ընտրել ընթացիկ աշխատանքային թերթում կամ 2-րդ քայլին ձեր կողմից նշված ցանկացած տիրույթում:

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

---

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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

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

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ... 

---

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

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

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...