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

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?

doc vælg flere emner fra rullelisten 1 doc pil til højre doc vælg flere emner fra rullelisten 2

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.
doc vælg flere emner fra rullelisten 3

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.
doc kutools multi-valg rulleliste 1

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.
doc kutools multi-valg rulleliste 2

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!
doc avancerede mejetærsker
 
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.
kte-fane 201905

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!
officetab bund
Sorter kommentarer efter
Kommentarer (26)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Efter tilføjelse virker dataene fra dropdown, slet ikke.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg fandt det samme problem. Jeg tror, ​​jeg fandt en måde at overvinde det på. I bunden af ​​koden vil du se koden "xStrNew = xStrOld". Få det i stedet til at sige xStrNew = " "

Det virker for mig.
Denne kommentar blev minimeret af moderatoren på webstedet
Har du stadig denne kode? Jeg forsøger at gøre, hvad du sagde, men teksten dubleres stadig.
Tak
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg er ked af det, men det gør jeg ikke. Jeg har dog lige kigget på koden ovenfor, og det ser ud til, at forfatteren har redigeret koden med mit forslag.

post dit problem i hovedtråden til denne artikel.
Denne kommentar blev minimeret af moderatoren på webstedet
i den første kode tilføjes følgende linje mellem linje 6 og 7 (10-11 i den anden kode): Hvis Target.Value = "" Afslut Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg brugte denne "Vælg flere elementer fra rullelisten til en celle uden gentagelse"
dette er hvad der skete
1. Flere valg sker uden problemer.
2. Problemet er, når jeg prøver at redigere og fjerne en indstilling. Der er ingen måde for mig at fjerne en mulighed. det bliver ved med at formere sig.
Denne kommentar blev minimeret af moderatoren på webstedet
Hvordan ville du anvende denne funktionalitet, men gøre det, så der ikke er overflødige værdier? Enhver hjælp ville blive værdsat!
Denne kommentar blev minimeret af moderatoren på webstedet
Hvis jeg opretter et ark med rulleliste ved hjælp af afkrydsningsfelter, er der en måde at dele denne projektmappe med denne afkrydsningsfeltfunktion?
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg opdager også, at efter at have valgt flere elementer ved hjælp af den opdaterede VBA-kode, kan jeg stadig ikke rydde cellen, den bliver bare ved med at multiplicere.
Er der nogen der har en løsning på dette endnu?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Rusty, koden jeg har opdateret for at gøre den mere stabil. Men fordi cellen er i datavalidering, blank er ude af datavalidering, kan koden ikke løse dette problem.
Denne kommentar blev minimeret af moderatoren på webstedet
koden virker, men overfører på tværs af alle celler og multiplicerer i cellerne og vil ikke tillade sletning, kan du hjælpe?
Denne kommentar blev minimeret af moderatoren på webstedet
Quendo quero deletar alguma opção eller todas dá erro. Como posso resolver?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej! Como puedo usar este codigo para todo un workheet y no solo para una pestana?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, Vero, Kutools for Excel's Multi-Select-rullelistefunktion understøtter valg af flere elementer fra rullelisten i hele regnearket eller på tværs af projektmappen. Angiv blot det specificerede omfang i dialogboksen Multi-select-rullelisteindstillinger.
Denne kommentar blev minimeret af moderatoren på webstedet
Hvordan kan jeg gøre det for den første formel, du har givet :) På forhånd tak!
Denne kommentar blev minimeret af moderatoren på webstedet
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!
hvordan man gør ?
tak på forhånd
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, undskyld det. Vi vil opgradere vores funktion næste version for at undgå dette problem. Tak for din tilbagemelding.
Denne kommentar blev minimeret af moderatoren på webstedet
BCP tak
Mais à quand la nouvelle version ?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, den nye version er under planlægning, da næste version vil opgradere flere funktioner, kan det tage noget tid.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, vi har opdateret denne version for dig, men dette er en betaversion, download den fra denne: https://download.extendoffice.com/downloads/Kutools-for-Excel/beta/26.10/KutoolsforExcelSetup.Inno.exe
Hvis der er problemer, er du velkommen til at få din feedback.
Denne kommentar blev minimeret af moderatoren på webstedet
Tak,
Je vais la télécharger og essayer.
God dag
Denne kommentar blev minimeret af moderatoren på webstedet
koden virker, men vil ikke lade mig slette kan nogen venligst sende den nye kode.
Denne kommentar blev minimeret af moderatoren på webstedet
¿Cómo puedo hacer para que el orden en que se coloque el texto, sea tan cuál como yo quiera?

Eksempel:
Min tekst til listen er:
TRAMITAR ESTE ASUNTO
KOORDINÆR
ANALISER OG ANBEFALING

dit udvalg:
TRAMITAR ESTE ASUNTO
ANALISER OG ANBEFALING

Det ser ud til mig
ANALISER OG ANBEFALINGER, TRAMITAR ESTE ASUNTO

o havet, los de abajo me aparecen primero, men quiero que sea en el orden en que voy seleccionando...
TRAMITAR ESTE ASUNTO, ANALISER OG ANBEFALING.....
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Gorgelys, Kutools' multi-select rulleliste kan hjælpe dig. De elementer, du valgte, vil være i den rækkefølge, du ønsker.
Denne kommentar blev minimeret af moderatoren på webstedet
Kan du bruge det til at fungere som et planilha bloqueada?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, Makroer, prøv nedenstående kode, den understøtter at vælge flere elementer i rullelisten i beskyttet ark.
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

Og også Kutools til Excel 26.1 og nyere versioner understøtter dette job i beskyttet ark.
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL