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

Hvordan oprettes rullelisten med flere valg eller værdier i Excel?

Som standard kan du kun vælge ét element i en rulleliste for datavalidering i Excel. Hvordan kan du foretage flere valg i rullelisten som vist nedenfor gif? Metoderne i denne artikel kan hjælpe dig med at løse problemet.


Opret rulleliste med flere valg med VBA-kode

Dette afsnit indeholder to VBA-koder, der hjælper dig med at foretage flere valg i rullelister i et regneark. De to VBA-koder kan opnå:

VBA-kode 1: Tillad flere valg i en rulleliste uden dubletter
VBA-kode 2: Tillad flere valg i en rulleliste uden dubletter (slet eksisterende elementer ved at vælge det igen)

Du kan anvende en af ​​følgende VBA-koder til at foretage flere valg på en rulleliste i et regneark i Excel. Gør venligst som følger.

1. Åbn regnearket, der indeholder rullelisten for datavalidering, hvorfra du vil foretage flere valg. Højreklik på arkfanen og vælg Vis kode fra kontekstmenuen.

2. i Microsoft Visual Basic til applikationer vindue, kopier nedenstående VBA-kode til kodevinduet. Se skærmbillede:

VBA-kode 1: Tillad flere valg i en rulleliste uden dubletter

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. Tryk på andre + Q taster for at lukke Microsoft Visual Basic til applikationer vindue.

Nu kan du vælge flere elementer fra rullelisten i det aktuelle regneark.

Antag, at du har valgt et element ved et uheld og skal fjerne det uden at rydde hele cellen og starte forfra. Følgende VBA-kode 2 kan gøre dig en tjeneste.

VBA-kode 2: Tillad flere valg i en rulleliste uden dubletter (slet eksisterende elementer ved at vælge det igen)

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

Noter:

1). Duplikerede værdier tillader ikke i rullelisten.
2). VBA-koden 2 ovenfor blev leveret af vores entusiastiske bruger Ken Gardner den 2022/07/11.
3). Gem venligst projektmappen som en Excel-makroaktiveret projektmappe for at holde koden i fremtiden.
4). Når du har tilføjet VBA-koden 2, kan du fjerne et eksisterende element ved at vælge det igen i rullelisten. Se gif'en nedenfor:


Opret let rullelisten med flere valg med et fantastisk værktøj

Her kan vi varmt anbefale Multivælg rulleliste træk ved Kutools til Excel for dig. Med denne funktion kan du nemt vælge flere emner fra rullelisten i et bestemt område, det aktuelle regneark, den aktuelle projektmappe eller alle åbnede projektmapper, som du har brug for.

Før påføring Kutools til Excel, Bedes download og installer det først.

1. klik Kutools > Rulleliste > Multivælg rulleliste > Indstillinger. Se skærmbillede:

2. i Flere valg af rullelisteindstillinger dialogboksen, skal du konfigurere som følger.

  • 2.1) Angiv anvendelsesområdet i Anvend på afsnit. I dette tilfælde vælger jeg Nuværende regneark fra Specificeret anvendelsesområde rulleliste
  • 2.2) I Tekstretning sektion, vælg en tekstretning baseret på dine behov;
  • 2.3) I Separator feltet, indtast en afgrænser, som du vil bruge til at adskille de flere værdier;
  • 2.4) Kontroller Tilføj ikke dubletter boks i Indstillinger sektion, hvis du ikke vil lave duplikater i rullelisterceller;
  • 2.5) Klik på OK knap. Se skærmbillede:

3. Klik venligst Kutools > Rulleliste > Multivælg rulleliste for at aktivere funktionen.

Nu kan du vælge flere elementer fra rullelisten i det aktuelle regneark eller ethvert omfang, du har angivet i trin 2.

  Hvis du vil have en gratis prøveperiode (30-dag) for dette værktøj, klik for at downloade det, og gå derefter til at anvende handlingen i henhold til ovenstående trin.


Relaterede artikler:

Autofuldfør, når du skriver i rullelisten i Excel
Hvis du har en datavalideringsrulleliste med store værdier, skal du rulle ned på listen bare for at finde den rigtige eller skrive hele ordet direkte i listeboksen. Hvis der er en metode til at tillade automatisk udfyldning, når du skriver det første bogstav i rullelisten, bliver alt lettere. Denne vejledning giver metoden til at løse problemet.

Opret rullelisten fra en anden projektmappe i Excel
Det er ret nemt at oprette en rulleliste med datavalidering blandt regneark i en projektmappe. Men hvis de listedata, du har brug for til datavalidering, findes i en anden projektmappe, hvad ville du gøre? I denne vejledning lærer du, hvordan du opretter en drop fown-liste fra en anden projektmappe i Excel i detaljer.

Opret en søgbar rulleliste i Excel
For en rulleliste med mange værdier er det ikke let at finde en ordentlig. Tidligere har vi introduceret en metode til automatisk udfyldelse af rullelisten, når du indtaster det første bogstav i rullemenuen. Udover funktionen autofuldførelse kan du også gøre rullelisten søgbar for at forbedre arbejdseffektiviteten ved at finde korrekte værdier i rullelisten. For at gøre rullelisten søgbar, prøv metoden i denne vejledning.

Udfyld automatisk andre celler, når du vælger værdier i rullelisten i Excel
Lad os sige, at du har oprettet en rulleliste baseret på værdierne i celleområde B8: B14. Når du vælger en hvilken som helst værdi i rullelisten, ønsker du, at de tilsvarende værdier i celleområde C8: C14 automatisk udfyldes i en valgt celle. Til løsning af problemet vil metoderne i denne vejledning gøre dig en tjeneste.

Mere vejledning til rullelisten ...


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 (67)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, tak for løsningen og koden. Men det næste trin er, hvordan man sikrer sig, at brugeren ikke vælger "duplikere" værdier fra rullelisten. F.eks. hvis der er 4 elementer på listen - appelsin, æble, banan, fersken, og hvis brugeren allerede har valgt "orange", så bør excel ikke tillade brugeren at vælge "orange" ELLER den mulighed skal fjernes fra resten af listen. Kan du venligst udgive koden for at opnå denne funktion. Tak. Yezdi
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Yezdi, tak for din kommentar. Koden blev opdateret, og ingen duplikerede værdier tillader i rullelisten nu. Tak. Solskin
Denne kommentar blev minimeret af moderatoren på webstedet
Det er fantastisk, at dette tillader flere valg, men ligesom @Yezdi kommenterede, finder jeg ud af, at det vil tilføje en eller flere dubletter, selvom jeg ikke vælger dem. Så på nuværende tidspunkt er dette en 80% løsning... en tweak væk fra perfekt. Jeg er ikke en VB-koder, eller jeg vil tilbyde løsningen.
Denne kommentar blev minimeret af moderatoren på webstedet
Du kan ændre koden i følgende linjer for at forhindre dubletter: If xValue2 "" Then Target.Value = xValue1 & ", " & xValue2 End If To: If xValue2 "" Then If CheckIfAlreadyAdded(xValue1, xValue2) = False Then Target .Value = xValue1 & ", " & xValue2 Else Target.Value = xValue1 End If End If Og tilføj derefter følgende funktion: Privat funktion CheckIfAlreadyAdded(ByVal sText As String, sNewValue As String) As Boolean CheckIfAlreadyAdded = False String WrdArray() = Split(sText, ",") For i = LBound(WrdArray) Til UBound(WrdArray) Hvis Trim(WrdArray(i)) = Trim(sNewValue) Så CheckIfAlreadyAdded = True Næste i End-funktion -- Der er sandsynligvis bedre måder at kode det på, men det virker for nu.
Denne kommentar blev minimeret af moderatoren på webstedet
Indså lige, at jeg ikke forlod løkken i den nye funktion, hvis betingelsen er blevet indstillet, så vi ikke behøver at kontrollere andre poster.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej. Tak for koden og tilføjelsen for at begrænse dubletter. Endnu en anmodning - hvilken tilføjelse/ændring skal der foretages for at tillade flere valg i kun en eller to specifikke kolonner? Denne kode genføjer tekstlinjer til det, der skal være 'almindelige' celler, hvis jeg går for at rette en tastefejl eller foretager en ændring eller tilføjelse til teksten i cellen, i modsætning til bare at opføre mig 'normalt' og acceptere ændringen (uden at tilføje hele teksten igen). For eksempel er kolonne A en 'almindelig' kolonne. Jeg skriver en sætning "Hvad er de tre ting, du ønsker dig mest?" Kolonne B er en 'liste'-kolonne, hvor jeg kun ønsker at kunne vælge en enkelt værdi (i dette tilfælde, lad os sige et barns navn). Kolonne C er en anden 'liste'-kolonne, hvor brugeren skal kunne vælge flere elementer (hvilket denne kode tillader mig at gøre perfekt). Mens jeg går, indser jeg, at jeg har lavet en tastefejl i kolonne A og vil rette den. Som denne kode står, hvis jeg går ind (dobbeltklik, F2) og laver rettelsen til ordet "emner", ender jeg med dette resultat i min celle:"Hvad er de tre itmes, du ønsker mest? Hvad er de tre ting, du ønsker dig mest?" på forhånd tak for al hjælp (fra en bruger, der VIRKELIG kan lide VBA, men stadig er på de allertidligste stadier af læring!)
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg var i stand til at få koden til at virke, men da jeg så gemte dokumentet (med makroer aktiveret), lukkede det og returnerede, virkede koden ikke længere (selvom den stadig var derinde). Jeg kan ikke finde ud af, hvad jeg har gjort forkert. Nogle ideer?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Cynthia, Hvis den oprindelige forfatter ikke svarer, vil jeg give dig et svar, men jeg er først foran en computer den 29. december igen. Jeg er heller ingen VBA-programmør. Hvad du kan gøre i mellemtiden er Google-søgning, hvordan du identificerer kolonnenummeret og kun lader koden køre, hvis data er redigeret i den eller de specifikke kolonner. Jeg har gjort det, men koden er på min arbejds-pc og kan ikke huske den i øjeblikket, prøv måske at sætte en debug.print på target.column eller noget i den retning for at se, om det giver dig kolonnenummeret, der redigeres . Undskyld Jennifer, jeg er ikke sikker på det problem du har :(
Denne kommentar blev minimeret af moderatoren på webstedet
@Cynthia, hvis det stadig er nødvendigt, bør du være i stand til at gøre noget som dette for kun at sikre, at koden kører på specifikke kolonner, i mit tilfælde, kolonne 34 og 35: Hvis (Target.Column 34 And Target.Column 35) Then Exit Sub 'Sæt denne kode i begyndelsen efter dine dunkle udsagn
Denne kommentar blev minimeret af moderatoren på webstedet
[quote]@Cynthia, hvis det stadig er nødvendigt, bør du være i stand til at gøre noget som dette for kun at sikre, at koden kører på specifikke kolonner, i mit tilfælde, kolonne 34 og 35: If (Target.Column 34 And Target.Column 35) Afslut derefter Sub 'Sæt denne kode i begyndelsen efter dine dim-udsagnAf Mervyn[/quote] Hej @Mervyn, Mistet helt overblikket over tråden, men mange tak for dine svar. Jeg har prøvet at anvende If (Target.Column 34 And Target.Column 35) og derefter Exit Sub (min version lyder If (Target.Column4 And Target.Column5) og derefter Exit Sub, som du har angivet, men jeg får en "Run-time" fejl '438': Objekt understøtter ikke denne egenskab eller metode"" fejl på denne nye linje. Her er de første par linjer i min kode: Private Sub Worksheet_Change(ByVal Target As Range) Dim xRng As Range Dim xValue1 As String Dim xValue2 As String If (Target.Column4 And Target.Column5) Then Exit Sub If Target.Count > 1 Then Exit Sub Ved fejl Genoptag Næste Mit regneark har kun 6 kolonner: Spørgsmål | Svar | Kategori | Underkategori | Tags | Fotolink Jeg har kun brug for flere værdi drop-downs i underkategori og tags (kolonne 4 og 5). Jeg vil blive ved med at lede efter information, som du foreslog den 12/23, og vil se på linket Charity.
Denne kommentar blev minimeret af moderatoren på webstedet
Hvis Target.Column <> 34 Afslut Sub

'Sæt denne kode i begyndelsen efter dine dunkle udsagn
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, jeg bruger i øjeblikket denne formel, og alle kolonner med datavalidering har muligheden for flere valg nu, men jeg vil kun begrænse den multiple udvælgelse til én kolonne. Kan nogen redigere denne formel for mig, så den multiple markering kun kan anvendes på kolonne 4? Tak :) Private Sub Worksheet_Change(ByVal Target As Range) 'Opdateret: 2016/4/12 Dim xRng As Range Dim xValue1 As String Dim xValue2 As String If Target.Count > 1 Then Exit Sub Ved 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 If "xValue Target.Value" " Then If xValue2 "" Then If xValue1 = xValue2 Eller _ InStr(1, xValue2, ", " & xValue1) Eller _ InStr(1, xValue2, xValue1 & ",") Then Target.Value = xValue1 Else Target.Value = xValue2 & ", " & xValue1 End If End If End If End If Application.EnableEvents = True End Sub Enhver hjælp vil blive værdsat!
Denne kommentar blev minimeret af moderatoren på webstedet
Dette fungerer godt, men jeg kan ikke fjerne et element, når det først er valgt. Nogen forslag, hvis jeg ved et uheld klikker på noget og skal fjerne det uden (forhåbentlig) at rydde hele cellen og starte forfra? Også for dem, der søger at definere en kolonne eller kolonner, har Contextures en fantastisk tilføjelse til koden, der er angivet her, som giver dig mulighed for at gøre det. http://www.contextures.com/excel-data-validation-multiple.html#column
Denne kommentar blev minimeret af moderatoren på webstedet
[quote]Dette fungerer godt, men jeg kan ikke fjerne et element, når det først er valgt. Nogen forslag, hvis jeg ved et uheld klikker på noget og skal fjerne det uden (forhåbentlig) at rydde hele cellen og starte forfra? Også for dem, der søger at definere en kolonne eller kolonner, har Contextures en fantastisk tilføjelse til koden, der er angivet her, som giver dig mulighed for at gøre det. http://www.contextures.com/excel-data-validation-multiple.html#columnVed velgørenhed[/quote] Koden fungerer fint. Jeg kan dog tilsyneladende ikke fravælge et element. Når jeg vil fjerne et element fra udvalget, bliver det bare ikke fjernet. Er der andre, der også oplever dette problem?[/quote] Hej alle, Eventuelle løsninger fundet på dette problem..del venligst..
Denne kommentar blev minimeret af moderatoren på webstedet
Hej med koden fungerer fint. Jeg kan dog tilsyneladende ikke fravælge et element. Når jeg vil fjerne et element fra udvalget, bliver det bare ikke fjernet. Er der andre der også oplever dette problem?
Denne kommentar blev minimeret af moderatoren på webstedet
Var der et svar på dette spørgsmål. Det er det samme problem som jeg har. Der ser ikke ud til at være en måde at fjerne et element, der er blevet valgt.
Denne kommentar blev minimeret af moderatoren på webstedet
slet indholdet i cellen, og vælg derefter igen
Denne kommentar blev minimeret af moderatoren på webstedet
Hej alle, jeg har denne kode på et excel-ark, og den renser indholdet fra rullelisten, når cellen er valgt - jeg ved, hvilken del af koden, der gør det (den del, der siger 'fillRng.ClearContents') og jeg har forsøgt at bruge noget af ovenstående til at rette det uden held... Jeg er ny til VBA-programmering osv. Kan nogen tilbyde hjælp til, hvordan man ændrer det, så det, når cellen er valgt, ikke ryddes, og indtastninger vil ikke blive duplikeres venligst?? Option Eksplicit Dim fillRng As Range Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Qualifiers As MSForms.ListBox Dim LBobj As OLEObject Dim i As Long Set LBobj = Me.OLEObjects("ListBox1") Set Qualifiers = LBobj.Object If Target. > 3 Og Target.Column = 3 Indstil derefter fillRng = Target With LBobj .Left = fillRng.Left .Top = fillRng.Top .Width = fillRng.Width .Height = 155 .Visible = True End With Else LBobj.Visible = False If Not fillRng Is Nothing Then fillRng.ClearContents With Qualifiers If .ListCount 0 Then For i = 0 To .ListCount - 1 If fillRng.Value = "" Then If .Selected(i) Then fillRng.Value = .List(i) Else If .Selected(i) Then fillRng.Value = _ fillRng.Value & ", " & .List(i) End If Next End If For i = 0 To .ListCount - 1 .Selected(i) = False Next End With Set fillRng = Intet End If End If End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Hej alle, jeg kunne lave min drop-down liste perfekt, men mit spørgsmål er: når jeg vælger alle de nedlagte elementer, går det en efter en vandret gennem cellen, for eksempel: gul, grøn, sort, rød. Men hvordan kan jeg få det til at se ud på en lodret måde?, mere som for eksempel: Orange blanck gul Rød For i vandret bliver cellen temmelig lang, når man vælger mange genstande. Kan du venligst fortælle mig, om der er nogen måde at gøre dette på? Tak, Desiree
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg formåede at bruge denne kode og med succes oprette flere valg rullemenuer. Det virkede, da jeg lukkede og åbnede igen på forskellige dage. Men nu er det ikke alle de celler, jeg oprindeligt valgte, der tillader flere valg. Kun dem, der er gjort tidligere, på trods af at du har brugt koden til hele regnearket. Kan du hjælpe?
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har det samme problem.
Denne kommentar blev minimeret af moderatoren på webstedet
cellerne er højst sandsynligt låst, højreklik på dem alle, gå til formater celler, beskyttelse, og fjern markeringen af ​​låst celle
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg oprettede en rulleliste, hvor flere tekstvalg kunne vælges, såsom "ernæring", "vægt" og "arbejde" for hver opkalds grund til at ringe ind. Jeg har en oversigtsside, hvor jeg vil se, hvor mange af hver årsag blev angivet i en bestemt måned. Hvilken formel ville jeg bruge til at fortælle Excel om at trække ud og opgøre hver af disse separat i en given måned? I øjeblikket, som jeg har det sat op, stemmer det kun korrekt, hvis jeg har én årsag i cellen for hver opkalder.
Denne kommentar blev minimeret af moderatoren på webstedet
Good Day,
Jeg kan desværre ikke hjælpe dig med at løse dette problem. Lad mig vide, hvis du finder svaret.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg forsøger at oprette 4 kolonner med drop down lister, hvor jeg kan vælge flere værdier. Hvordan ændrer jeg "rullelisten med flere valg" VBA-koden, så når jeg klikker på en værdi, der allerede er indtastet, fjerner den den fra cellen? Tak på forhånd.
Denne kommentar blev minimeret af moderatoren på webstedet
Kære Randy,
Hvad mener du med "når jeg klikker på en værdi, der allerede er indtastet, fjerner den den fra cellen?"
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har det samme spørgsmål. Min rulleliste husker ikke de valgte værdier. Hvis nogen klikker på en celle, der allerede er udfyldt (ikke af dem, men en anden), ryddes de valgte værdier, og cellen er tom igen.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg bruger koden nedenfor til at tillade multi-select på flere regneark, men når jeg går til et andet regneark i projektmappen, forsvinder multi-select. Når jeg gemmer filen og kommer tilbage, vil den virke for én fane med koden, men igen, når jeg klikker på en anden fane med koden, virker den ikke længere. Har du nogen idé om, hvordan man løser det, så hvis jeg klikker på et regneark med VBA-koden, vil det altid tillade multi-select?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, jeg er totalt VBA Laie. Ich versuche den Code så zu modifizieren, dass
a) die Mehrfachauswahl nicht in allen, sondern nur ein zwei Spalten aktiv ist
b) ich Items auch wieder rausnehmen kann, zB in dem ich in der Listenauswahl das Item noch einmal anklicke (Beispiel: ich habe über die Mehrfachauswahl ausgewählt: A, D, X, Y... nun fällt mir auf, dass D nicht dazu Beim aktuelle Code müsste ich Eingaben entfernen und neu auswählen).
Tak på forhånd!
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg kan ikke fortsætte med oprettelsen af ​​flere valg på rullelisten. Jeg har lyttet til tutorial og læst materiale, men kan stadig ikke oprette. Venligst kan nogen hjælpe mig?
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg ved, at dette kan være totalt tilfældigt, men jeg bruger en variant af VBA uden problemer. Undtagen på én side, hvis du vælger de første tre muligheder, vil det ikke lade dig vælge den fjerde. Det vil lade dig vælge den 5., 6. og så videre, bare ikke den 4. mulighed. tanker?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej robert
Jeg har testet koden, men har ikke fundet problemet, som du nævnte. Kan du fortælle mig, hvilken Excel-version du bruger? Tak for din kommentar.
Der er endnu ingen kommentarer her
Load More
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