Kako zapolniti kombinirano polje z edinstvenimi vrednostmi samo v Excelu?
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
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:
2. Nato z desno miškino tipko kliknite kombinirano polje in izberite Ogled kode v priročnem meniju si oglejte posnetek zaslona:
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:
5. In nato kliknite OK gumb, v kombiniranem polju so prikazane samo edinstvene vrednosti, glejte posnetek zaslona:
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
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...
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!