Hoppa till huvudinnehåll

Hur fyller man i kombinationsrutan med unika värden enbart i Excel?

När du skapar en kombinationsruta med en lista med data som innehåller några dubblettvärden utesluts inte dubblettvärdena automatiskt i kombinationsrutan. I det här fallet, hur kan du bara visa unika objekt i din kombinationsruta? Kan vara denna handledning kan göra dig en tjänst.

Fyll kombinationsrutan med unika värden endast med hjälp av VBA-kod


pil blå höger bubbla Fyll kombinationsrutan med unika värden endast med hjälp av VBA-kod

Följande VBA-kod kan hjälpa dig att lägga till de unika värdena när du skapar en kombinationsruta, gör så här:

1. Infoga först en kombinationsruta, klicka Utvecklare > Insert > Kombinationsbox (ActiveX Control)och dra sedan musen för att rita en kombinationsruta, se skärmdump:

doc kombinationsruta unika värden 1

2. Högerklicka sedan på kombinationsrutan och välj Visa kod från snabbmenyn, se skärmdump:

doc kombinationsruta unika värden 2

3. Och den Microsoft Visual Basic för applikationer fönstret visas, var god kopiera och klistra in följande kod för att ersätta den ursprungliga koden.

VBA-kod: kombinationsruta med unika värden:

Public Sub Populate_combobox_with_Unique_values()
'Updateby Extendoffice
    Dim vStr, eStr
    Dim dObj As Object
    Dim xRg As Range
    On Error Resume Next
    Set dObj = CreateObject("Scripting.Dictionary")
    Set xRg = Application.InputBox("Range select:", "Kutools for Excel", _
                                    ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
    vStr = xRg.Value
    Application.ScreenUpdating = False
    With dObj
        .comparemode = 1
        For Each eStr In vStr
            If Not .exists(eStr) And eStr <> "" Then .Add eStr, Nothing
        Next
        If .Count Then
            ActiveSheet.ComboBox1.List = WorksheetFunction.Transpose(.keys)
        End If
    End With
    Application.ScreenUpdating = True
End Sub

Anmärkningar: I ovanstående kod är Kombinationsbox 1 är namnet på din skapade kombinationsruta, du kan ändra den efter behov.

4. Tryck sedan på F5 nyckel för att köra den här koden, och välj den datakälllista som du vill lägga till i kombinationsrutan i snabbrutan, se skärmdump:

doc kombinationsruta unika värden 3

5. Och klicka sedan på OK knappen visas bara de unika värdena i kombinationsrutan, se skärmdump:

doc kombinationsruta unika värden 4

Tips: Om det inte finns något Utvecklare fliken i menyfliksområdet, den här artikeln Hur visar / visa fliken utvecklare i Excel 2007/2010/2013 Ribbon? kan göra en tjänst för dig att visa fliken Utvecklare.

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

Beskrivning


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!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Would be great if we could sort before adding too
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations