Hvordan vælges flere elementer fra rullelisten i en celle i Excel?

Rullelisten bruges ofte i det daglige Excel-arbejde. Som standard kan kun et element vælges på en rulleliste. Men i nogle gange er du muligvis nødt til at vælge flere emner fra rullelisten i en enkelt celle som vist nedenstående skærmbillede. Hvordan kan du håndtere det i Excel?

Vælg flere elementer fra rullelisten i en celle med VBA

Vælg flere emner fra rullelisten i en celle med Kutools til Excels praktiske mulighed

Vælg flere elementer fra rullelisten i en celle med VBA

Her er nogle VBA, der kan hjælpe dig med at løse dette job.

Vælg duplikatelementer fra rullelisten i en celle

1. Når du har oprettet en rulleliste, skal du højreklikke på arkfanen for at vælge Vis kode fra kontekstmenuen.

2. Derefter i Microsoft Visual Basic til applikationer vindue, kopier og indsæt nedenstående kode til det tomme script.

VBA: Vælg flere elementer fra rullelisten i en celle

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. Gem koden, og luk vinduet for at gå tilbage til rullelisten. Nu kan du vælge flere emner fra rullelisten.

Bemærk:

1. Med VBA adskiller det elementerne efter plads, du kan ændre xStrNew = xStrNew & "" & Mål. Værdi til andre om at ændre afgrænseren, som du har brug for. For eksempel, xStrNew = xStrNew & "," & Mål. Værdi adskiller elementerne med kommaer.

2. Denne VBA-kode fungerer for alle rullelister i arket.

Vælg flere emner fra rullelisten til en celle uden gentagelse

Hvis du bare vil vælge unikke emner fra rullelisten til en celle, kan du gentage ovenstående trin og bruge nedenstående kode.

VBA ： Vælg flere emner fra rullelisten til en celle uden gentagelse

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

Begge ovenstående VBA-koder understøtter ikke at slette dele af celleindhold, kun understøtter at rydde alle elementer i cellen.

Vælg flere emner fra rullelisten i en celle med Kutools til Excels praktiske mulighed

Hvis du ikke er bekendt med VBA-kode, kan du gratis installation et praktisk værktøj - Kutools til Excel, som indeholder en gruppe hjælpeprogrammer om rullelisten, og der er en mulighed Multivælg rulleliste kan hjælpe dig med nemt at vælge flere emner fra rullelisten i en celle.

Når du har oprettet rullelisten, skal du vælge rullelistercellerne og klikke på Kutools > Rulleliste > Multivælg rulleliste for at aktivere dette værktøj.

Derefter kan de valgte rullelisteceller vælges flere elementer i cellen.

Hvis du bruger denne indstilling første gang, kan du angive indstillingerne for dette hjælpeprogram, som du har brug for, før du anvender dette værktøj.

Klik Kutools > Rulleliste > pilen ved siden af Multivælg rulleliste > Indstillinger.

Så i Flere valg af rullelisteindstillinger dialog, kan du

1) Angiv anvendelsesområdet, som du har brug for;

2) Angiv retningen på varernes placering;

3) Angiv separatoren mellem emner;

4) Angiv, om der ikke skal tilføjes dubletter og fjern dubletter.

Klik Ok og klik Kutools > Rulleliste > Multivælg rulleliste at træde i kraft.

Tip: At anvende Multivælg rulleliste værktøj, skal du installere det først. Hvis du vil oprette en rulleliste med flere niveauer, kan nedenstående hjælpeprogram måske hjælpe dig.

Opret nemt en dynamisk rulleliste på 2-niveau eller flere niveauer i Excel

I Excel er det komplekst at oprette en rulleliste på 2 eller flere niveauer. Her er Dynamisk rulleliste nytte af Kutools til Excel kan gøre dig en tjeneste. Hvad du kun skal gøre er at bestille dataene som vist i eksemplet, derefter vælge dataområdet og outputområdet og derefter overlade det til hjælpeprogrammet.  Klik for 30 dages gratis prøveperiode!

Kutools til Excel: med mere end 300 praktiske Excel-tilføjelser, gratis at prøve uden begrænsning i 30 dage.

---

De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

• Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
• Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
• Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
• Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
• Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
• Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
• Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
• Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
• Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.

Læs mere ... Gratis download... Køb... 

---

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

• Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
• Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
• Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!

Læs mere ... Gratis download... Køb...