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

Hur skapar man en rullgardinslista med flera val eller värden i Excel?

Som standard kan du bara välja ett objekt i en rullgardinsmeny för datavalidering i Excel. Hur kan du göra flera val i rullgardinsmenyn som nedan gif visas? Metoderna i den här artikeln kan hjälpa dig att lösa problemet.


Skapa rullgardinsmeny med flera val med VBA-kod

Det här avsnittet innehåller två VBA-koder som hjälper dig att göra flera val i rullgardinslistor i ett kalkylblad. De två VBA-koderna kan uppnå:

VBA-kod 1: Tillåt flera val i en rullgardinslista utan dubbletter
VBA-kod 2: Tillåt flera val i en rullgardinslista utan dubbletter (ta bort befintliga objekt genom att välja det igen)

Du kan använda en av följande VBA-koder för att göra flera val i en rullgardinslista i ett kalkylblad i Excel. Vänligen gör enligt följande.

1. Öppna kalkylbladet som innehåller rullgardinslistorna för datavalidering från vilka du vill göra flera val. Högerklicka på arkfliken och välj Visa kod från snabbmenyn.

2. I Microsoft Visual Basic för applikationer kopiera nedanstående VBA-kod till kodfönstret. Se skärmdump:

VBA-kod 1: Tillåt flera val i en rullgardinslista utan dubbletter

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. tryck på andra + Q för att stänga Microsoft Visual Basic för applikationer fönster.

Nu kan du välja flera objekt från rullgardinsmenyn i det aktuella kalkylbladet.

Anta att du har valt ett objekt av misstag och behöver ta bort det utan att rensa hela cellen och börja om. Följande VBA-kod 2 kan göra dig en tjänst.

VBA-kod 2: Tillåt flera val i en rullgardinslista utan dubbletter (ta bort befintliga objekt genom att välja 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

Anmärkningar:

1). Dubblettvärden tillåts inte i rullgardinsmenyn.
2). VBA-koden 2 ovan tillhandahölls av vår entusiastiska användare Ken Gardner den 2022/07/11.
3). Spara arbetsboken som en Excel Macro-Enabled Workbook för att koden ska fungera i framtiden.
4). Efter att ha lagt till VBA-koden 2 kan du ta bort ett befintligt objekt genom att välja det igen i rullgardinsmenyn. Se gif:en nedan:


Skapa enkelt rullgardinsmenyn med flera val med ett fantastiskt verktyg

Här rekommenderar vi starkt Multi-select rullgardinslista egenskap av Kutools för Excel till dig. Med den här funktionen kan du enkelt välja flera objekt från listrutan i ett angivet intervall, aktuellt kalkylblad, aktuell arbetsbok eller alla öppnade arbetsböcker som du behöver.

Innan du ansöker Kutools för ExcelBer ladda ner och installera det först.

1. klick Kutools > Listrutan > Multi-select rullgardinslista > Inställningar. Se skärmdump:

2. I Flervalsinställningar för rullgardinsmenyn dialogrutan, konfigurera så här.

  • 2.1) Ange tillämpningsområdet i Ansök till sektion. I det här fallet väljer jag Aktuellt kalkylblad från Specificerat omfattning rullgardinsmeny
  • 2.2) I Textriktning avsnitt, välj en textriktning baserat på dina behov;
  • 2.3) I Separator rutan, ange en avgränsare som du kommer att använda för att separera flera värden;
  • 2.4) Kontrollera Lägg inte till dubbletter ruta i Tillbehör avsnitt om du inte vill göra dubbletter i rullgardinsmenyerna;
  • 2.5) Klicka på OK knapp. Se skärmdump:

3. Klicka på Kutools > Listrutan > Multi-select rullgardinslista för att aktivera funktionen.

Nu kan du välja flera objekt från listrutan i det aktuella kalkylbladet eller vilket omfång du har angett i steg 2.

  Om du vill ha en gratis provperiod (30-dag) för detta verktyg, klicka för att ladda ner den, och gå sedan till för att tillämpa operationen enligt ovanstående steg.


Relaterade artiklar:

Autoslutför när du skriver i Excel-rullgardinsmenyn
Om du har en rullgardinsmeny för datavalidering med stora värden måste du bläddra nedåt i listan bara för att hitta rätt eller skriva hela ordet direkt i listrutan. Om det finns en metod för att automatiskt slutföra när du skriver den första bokstaven i rullgardinsmenyn blir allt enklare. Denna handledning ger metoden för att lösa problemet.

Skapa rullgardinslista från en annan arbetsbok i Excel
Det är ganska enkelt att skapa en rullgardinslista för datavalidering bland kalkylblad i en arbetsbok. Men om listdata du behöver för datavalideringen hittar du i en annan arbetsbok, vad skulle du göra? I den här guiden lär du dig hur du skapar en drop-down-lista från en annan arbetsbok i Excel i detalj.

Skapa en sökbar rullgardinslista i Excel
För en rullgardinsmeny med många värden är det inte lätt att hitta en riktig. Tidigare har vi introducerat en metod för automatisk komplettering av rullgardinsmenyn när du anger den första bokstaven i rullgardinsmenyn. Förutom funktionen för autoslutförande kan du också göra listrutan sökbar för att förbättra arbetseffektiviteten för att hitta rätt värden i listrutan. För att göra rullgardinsmenyn sökbar, prova metoden i den här självstudien.

Fyll i andra celler automatiskt när du väljer värden i Excel-listrutan
Låt oss säga att du har skapat en rullgardinslista baserat på värdena i cellområdet B8: B14. När du väljer något värde i listrutan vill du att motsvarande värden i cellintervall C8: C14 fylls automatiskt i en vald cell. För att lösa problemet kommer metoderna i denna handledning att göra dig en tjänst.

Mer handledning för rullgardinsmenyn ...


De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

  • återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
kte-flik 201905

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
officetab botten
Sortera kommentarer efter
Kommentarer (67)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, tack för lösningen och koden. Men nästa steg är hur man ser till att användaren inte väljer "dubbletter"-värden från rullgardinsmenyn. T.ex. om det finns 4 objekt i listan - apelsin, äpple, banan, persika och om användaren redan har valt "orange", så ska excel inte tillåta användaren att välja "orange" ELLER det alternativet ska tas bort från resten av listan. Kan du publicera koden för att utföra denna funktion. Tack. Yezdi
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Yezdi, tack för din kommentar. Koden uppdaterades och inga dubbletter av värden tillåter i rullgardinsmenyn nu. Tack. Solsken
Denna kommentar minimerades av moderatoren på webbplatsen
Det är bra att detta tillåter flera val, men som @Yezdi kommenterade, jag tycker att det kommer att lägga till en eller flera dubbletter även om jag inte väljer dem. Så för närvarande är det här en 80 % lösning... en justering från perfekt. Jag är inte en VB-kodare annars skulle jag erbjuda lösningen.
Denna kommentar minimerades av moderatoren på webbplatsen
Du kan ändra koden på följande rader för att förhindra dubbletter: 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 Och lägg sedan till följande funktion: Privat funktion CheckIfAlreadyAdded(ByVal sText As String, sNewValue As String) As Boolean CheckIfAlreadyAdded = False String WrdArray() = Split(sText, ",") För i = LBound(WrdArray) Till UBound(WrdArray) Om Trim(WrdArray(i)) = Trim(sNewValue) Då CheckIfAlreadyAdded = True Nästa i End-funktion -- Det finns förmodligen bättre sätt att koda det men det fungerar för nu.
Denna kommentar minimerades av moderatoren på webbplatsen
Insåg precis att jag inte lämnade loopen i den nya funktionen om villkoret har ställts in så att vi inte behöver kontrollera andra poster.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej. Tack för koden och tillägget för att begränsa dubbletter. En ytterligare begäran - vilken tillägg/ändring skulle behöva göras för att tillåta flera val i endast en eller två specifika kolumner? Den här koden lägger till textrader igen i det som ska vara "vanliga" celler om jag går för att korrigera ett stavfel, eller gör en ändring eller tillägg till texten i cellen, i motsats till att bara bete mig "normalt" och acceptera ändringen (utan att lägga till hela texten igen). Till exempel är kolumn A en "vanlig" kolumn. Jag skriver en mening "Vilka är de tre objekten du vill ha mest?" Kolumn B är en 'lista' kolumn där jag bara vill kunna välja ett enda värde (i det här fallet, låt oss säga ett barns namn). Kolumn C är en annan "lista"-kolumn där användaren måste kunna välja flera objekt (vilket den här koden låter mig göra perfekt). När jag fortsätter inser jag att jag har gjort ett stavfel i kolumn A och vill rätta till det. Som den här koden ser ut, om jag går in (dubbelklicka, F2) och gör korrigeringen av ordet "artiklar", får jag detta resultat i min cell: "Vilka är de tre objekten du vill ha mest? Vilka är de tre saker du vill ha mest?" tack på förhand för all hjälp (från en användare som VERKLIGEN gillar VBA, men som fortfarande är i de allra tidigaste stadierna av inlärning!)
Denna kommentar minimerades av moderatoren på webbplatsen
Jag kunde få koden att fungera, men när jag sedan sparade dokumentet (med makron aktiverade), stängde det och returnerade, fungerade inte koden längre (fast den fanns kvar där). Jag kan inte komma på vad jag har gjort för fel. Några idéer?
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Cynthia, Om originalförfattaren inte svarar så ska jag ge dig ett svar men jag kommer att vara framför en dator först den 29 december igen. Jag är inte heller någon VBA-programmerare. Vad du kan göra under tiden är att söka på Google hur man identifierar kolumnnumret och bara låter koden köras om data redigeras i den eller de specifika kolumnerna. Jag har gjort det men koden finns på min arbetsdator och kan inte komma ihåg den för tillfället, kanske prova att lägga en debug.print på target.column eller något i den meningen för att se om det ger dig kolumnnumret som redigeras . Förlåt Jennifer, jag är inte säker på problemet du har :(
Denna kommentar minimerades av moderatoren på webbplatsen
@Cynthia, Om det fortfarande krävs, bör du kunna göra något liknande detta för att bara säkerställa att koden körs på specifika kolumner, i mitt fall, kolumn 34 och 35: If (Target.Column 34 And Target.Column 35) Then Exit Sub "Sätt den här koden i början efter dina svaga uttalanden
Denna kommentar minimerades av moderatoren på webbplatsen
[quote]@Cynthia, om det fortfarande krävs, bör du kunna göra något liknande detta för att bara säkerställa att koden körs på specifika kolumner, i mitt fall, kolumn 34 och 35: If (Target.Column 34 And Target.Column 35) Exit Sub 'Sätt den här koden i början efter dina dim-satserAv Mervyn[/quote] Hej @Mervyn, tappade koll på tråden helt, men tack så mycket för dina svar. Jag har provat att använda If (Target.Column 34 And Target.Column 35) Sedan Exit Sub (min version lyder If (Target.Column4 And Target.Column5) Sedan Exit Sub som du angav, men jag får en "Run-time" fel '438': Objekt stöder inte den här egenskapen eller metoden""-felet på den här nya raden. Här är de första raderna i min kod: 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) Sedan Avsluta Sub Om Target.Count > 1 Sedan Avsluta Sub Vid Fel Återuppta Nästa Mitt arbetsblad har bara 6 kolumner: Fråga | Svar | Kategori | Underkategori | Taggar | Fotolänk Jag behöver bara rullgardinsmenyn för flera värden i underkategorier och taggar (kolumn 4 och 5). Jag kommer att fortsätta leta efter information som du föreslog den 12/23 och kommer att titta på länken Välgörenhet som tillhandahålls.
Denna kommentar minimerades av moderatoren på webbplatsen
Om Målkolumn <> 34 Avsluta Sub

"Sätt den här koden i början efter dina svaga uttalanden
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, jag använder för närvarande den här formeln och alla kolumner med datavalidering har flervalsalternativet nu, men jag vill begränsa flervalet till endast en kolumn. Kan någon redigera den här formeln åt mig så att flervalet endast kan tillämpas på kolumn4? Tack :) Private Sub Worksheet_Change(ByVal Target As Range) 'Uppdaterad: 2016/4/12 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 Om = xValue " 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 All hjälp kommer att uppskattas!
Denna kommentar minimerades av moderatoren på webbplatsen
Detta fungerar bra, men jag kan inte ta bort ett objekt när jag väl har valt det. Några förslag ifall jag klickar på något av misstag och behöver ta bort det utan att (förhoppningsvis) rensa hela cellen och börja om? Dessutom, för de som vill definiera en kolumn eller kolumner, har Contextures ett bra tillägg till koden som tillhandahålls här som låter dig göra det. http://www.contextures.com/excel-data-validation-multiple.html#column
Denna kommentar minimerades av moderatoren på webbplatsen
[quote]Detta fungerar bra, men jag kan inte ta bort ett objekt när jag väl har valt det. Några förslag ifall jag klickar på något av misstag och behöver ta bort det utan att (förhoppningsvis) rensa hela cellen och börja om? Dessutom, för de som vill definiera en kolumn eller kolumner, har Contextures ett bra tillägg till koden som tillhandahålls här som låter dig göra det. http://www.contextures.com/excel-data-validation-multiple.html#columnAv välgörenhet[/quote] Koden fungerar bra. Jag verkar dock inte kunna avmarkera ett objekt. När jag vill ta bort ett objekt från urvalet tas det bara inte bort. Är det någon annan som upplever det här problemet också?[/quote] Hej allihopa, Finns några lösningar på det här problemet..dela gärna..
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, Koden fungerar bra. Jag verkar dock inte kunna avmarkera ett objekt. När jag vill ta bort ett objekt från urvalet tas det bara inte bort. Är det någon annan som upplever detta problem också?
Denna kommentar minimerades av moderatoren på webbplatsen
Fanns det ett svar på denna fråga. Det är samma problem som jag har. Det verkar inte finnas något sätt att ta bort ett objekt som har valts.
Denna kommentar minimerades av moderatoren på webbplatsen
radera innehållet i cellen och välj sedan igen
Denna kommentar minimerades av moderatoren på webbplatsen
Hej allihop, jag har den här koden på ett excel-ark och den rensar innehållet från rullgardinsmenyn när cellen är vald - jag vet vilken del av koden som gör det (delen som säger "fillRng.ClearContents") och jag har försökt använda några av ovanstående för att fixa det utan framgång... Jag är ny på VBA-programmering etc. Kan någon erbjuda någon hjälp om hur man ändrar det så att det när cellen väljs inte rensas och poster kommer inte att bli dupliceras tack?? Alternativ Explicit 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 Och Target.Column = 3 Ange sedan 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 Till .ListCount - 1 .Selected(i) = False Next End With Set fillRng = Ingenting End If End If End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
Hej allihop, jag skulle kunna göra min rullgardinslista perfekt, men min fråga är: när jag markerar alla nedlagda objekt går den en efter en horisontellt genom cellen, till exempel: gul, grön, svart, röd. Men hur kan jag få det att se ut på ett vertikalt sätt?, mer som till exempel: Orange blanck gul Röd Eftersom i horisontellt blir cellen ganska lång när man väljer många föremål. Kan du berätta för mig om det finns något sätt att göra detta? Tack, Desiree
Denna kommentar minimerades av moderatoren på webbplatsen
Jag lyckades använda den här koden och skapade rullgardinsrutor för flera val. Det fungerade när jag stängde och öppnade igen på olika dagar. Men nu tillåter inte alla celler som jag ursprungligen valde flera val. Endast de som gjorts tidigare, trots att du använder koden för hela kalkylarket. Kan du hjälpa?
Denna kommentar minimerades av moderatoren på webbplatsen
Jag har samma problem.
Denna kommentar minimerades av moderatoren på webbplatsen
cellerna är troligen låsta, högerklicka på alla, gå till formatera celler, skydd, avmarkera sedan alternativet för låst cell
Denna kommentar minimerades av moderatoren på webbplatsen
Jag skapade en rullgardinslista där flera textval kan väljas som "näring", "vikt" och "arbete" för varje uppringares anledning att ringa in. Jag har en sammanfattningssida där jag vill se hur många av varje anledning angavs i en viss månad. Vilken formel skulle jag använda för att berätta för Excel att dra ut och räkna upp var och en av dessa separat under en given månad? För närvarande, som jag har det inställt, stämmer det bara korrekt om jag har en orsak i cellen för varje uppringare.
Denna kommentar minimerades av moderatoren på webbplatsen
God dag,
Jag kan tyvärr inte hjälpa dig att lösa det här problemet. Vänligen meddela mig om du hittar svaret.
Denna kommentar minimerades av moderatoren på webbplatsen
Jag försöker skapa fyra kolumner med rullgardinslistor där jag kan välja flera värden. Hur ändrar jag "rullgardinsmenyn med flera val" VBA-koden så att när jag klickar på ett värde som redan har angetts tar det bort det från cellen? Tack på förhand.
Denna kommentar minimerades av moderatoren på webbplatsen
Kära Randy,
Vad menar du "när jag klickar på ett värde som redan har angetts tar det bort det från cellen?"
Denna kommentar minimerades av moderatoren på webbplatsen
Jag har samma fråga. Min rullgardinslista kommer inte ihåg valda värden. Om någon klickar på en cell som redan har fyllts i (inte av dem, utan av någon annan) rensas de valda värdena och cellen är tom igen.
Denna kommentar minimerades av moderatoren på webbplatsen
Jag använder koden nedan för att tillåta multi-select på flera kalkylblad men när jag går till ett annat kalkylblad i arbetsboken försvinner multi-select. När jag sparar filen och kommer tillbaka kommer den att fungera för en flik med koden men igen när jag klickar på en annan flik med koden fungerar den inte längre. Någon idé om hur man fixar det så om jag klickar på ett kalkylblad med VBA-koden kommer det alltid att tillåta multi-select?
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, jag är 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 aktuellen Code müsste ich Eingaben entfernen und neu auswählen).
Tack på förhand!
Denna kommentar minimerades av moderatoren på webbplatsen
Jag kan inte fortsätta med att skapa flervalet i rullgardinsmenyn. Jag har lyssnat på tutorial och läst material men kan fortfarande inte skapa. Snälla kan någon hjälpa mig?
Denna kommentar minimerades av moderatoren på webbplatsen
Jag vet att detta kan vara totalt slumpmässigt, men jag använder en variant av VBA utan problem. Förutom på en sida, om du väljer de tre första alternativen, låter den dig inte välja det fjärde. Det låter dig välja det 5:e, 6:e och så vidare, bara inte det 4:e alternativet. tankar?
Denna kommentar minimerades av moderatoren på webbplatsen
Hej robert
Jag har testat koden men har inte hittat problemet som du nämnde. Kan du berätta vilken Excel-version du använder? Tack för din kommentar.
Det finns inga kommentarer här ännu
Ladda fler
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL