Jak wypełnić pole kombi unikalnymi wartościami tylko w programie Excel?
Podczas tworzenia pola kombi z listą danych, które zawierają zduplikowane wartości, zduplikowane wartości nie zostaną automatycznie wykluczone z pola kombi. W takim przypadku, jak możesz wyświetlić tylko unikalne elementy w swoim polu kombi? Może ten samouczek może wyświadczyć ci przysługę.
Wypełnij pole kombi unikalnymi wartościami tylko przy użyciu kodu VBA
Wypełnij pole kombi unikalnymi wartościami tylko przy użyciu kodu VBA
Poniższy kod VBA może pomóc w dodaniu unikalnych wartości podczas tworzenia pola kombi, wykonaj następujące czynności:
1. Najpierw wstaw pole kombi, kliknij Deweloper > wstawka > Pole kombi (formant ActiveX), a następnie przeciągnij myszą, aby narysować pole kombi, zobacz zrzut ekranu:
2. Następnie kliknij prawym przyciskiem myszy pole kombi i wybierz Wyświetl kod z menu kontekstowego, zobacz zrzut ekranu:
3. I to Microsoft Visual Basic for Applications wyskakuje okno, skopiuj i wklej następujący kod, aby zastąpić oryginalny kod.
Kod VBA: pole kombi z unikalnymi wartościami:
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
Note: W powyższym kodzie Pole kombi1 to nazwa utworzonego pola kombi, możesz ją zmienić według potrzeb.
4. Następnie naciśnij F5 klucz do uruchomienia tego kodu, aw polu zachęty wybierz listę źródeł danych, które chcesz dodać do pola kombi, zobacz zrzut ekranu:
5. A następnie kliknij OK przycisk, tylko unikalne wartości są wyświetlane w polu kombi, patrz zrzut ekranu:
Wskazówka: Jeżeli nie ma Deweloper na wstążce w tym artykule Jak wyświetlić / wyświetlić kartę programisty na wstążce programu Excel 2007/2010/2013? może wyświadczyć Ci przysługę, aby wyświetlić kartę Deweloper.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!