Preskoči na glavno vsebino

Kako zapolniti kombinirano polje z edinstvenimi vrednostmi samo v Excelu?

Avtor: Xiaoyang Zadnja sprememba: 2020-07-24

Ko ustvarite kombinirano polje s seznamom podatkov, ki vključuje nekaj podvojenih vrednosti, podvojene vrednosti v kombiniranem polju ne bodo samodejno izključene. Kako bi lahko v tem primeru v kombiniranem polju prikazali samo unikatne predmete? Morda vam ta vadnica lahko naredi uslugo.

Zapolnite kombinirano polje z edinstvenimi vrednostmi samo s kodo VBA


puščica modri desni mehurček Zapolnite kombinirano polje z edinstvenimi vrednostmi samo s kodo VBA

Naslednja koda VBA vam bo morda pomagala dodati edinstvene vrednosti pri ustvarjanju kombiniranega polja, naredite tako:

1. Najprej vstavite kombinirano polje, kliknite Razvojni > Vstavi > Kombinirana škatla (nadzor ActiveX)in nato povlecite miško, da narišete kombinirano polje, glejte posnetek zaslona:

edinstvene vrednosti doc combobox 1

2. Nato z desno miškino tipko kliknite kombinirano polje in izberite Ogled kode v priročnem meniju si oglejte posnetek zaslona:

edinstvene vrednosti doc combobox 2

3. In Microsoft Visual Basic za aplikacije Odpre se okno, kopirajte in prilepite naslednjo kodo, da zamenjate prvotno kodo.

Koda VBA: kombinirano polje z edinstvenimi vrednostmi:

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

Opombe: V zgornji kodi je ComboBox1 je ime vašega ustvarjenega kombiniranega polja, lahko ga spremenite po potrebi.

4. Nato pritisnite F5 tipko za zagon te kode in v pozivnem polju izberite seznam virov podatkov, ki ga želite dodati v kombinirano polje, glejte posnetek zaslona:

edinstvene vrednosti doc combobox 3

5. In nato kliknite OK gumb, v kombiniranem polju so prikazane samo edinstvene vrednosti, glejte posnetek zaslona:

edinstvene vrednosti doc combobox 4

Nasvet: Če ni Razvojni na traku, ta članek Kako prikazati / prikazati zavihek za razvijalce v traku Excel 2007/2010/2013? vam lahko stori uslugo, da prikažete zavihek za razvijalce.

Najboljša pisarniška orodja za produktivnost

🤖 Kutools AI Aide: Revolucionirajte analizo podatkov na podlagi: Inteligentna izvedba   |  Ustvari kodo  |  Ustvarite formule po meri  |  Analizirajte podatke in ustvarite grafikone  |  Prikličite funkcije Kutools...
Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

Opis


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
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
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations