Birleşik giriş kutusu yalnızca Excel'de benzersiz değerlerle nasıl doldurulur?
Bazı yinelenen değerleri içeren bir veri listesi içeren bir birleşik giriş kutusu oluşturduğunuzda, yinelenen değerler birleşik giriş kutusunda otomatik olarak hariç tutulmayacaktır. Bu durumda, birleşik giriş kutunuzda yalnızca benzersiz öğeleri nasıl görüntüleyebilirsiniz? Bu eğitim size bir iyilik yapabilir.
Birleşik giriş kutusunu yalnızca VBA kodunu kullanarak benzersiz değerlerle doldurun
Birleşik giriş kutusunu yalnızca VBA kodunu kullanarak benzersiz değerlerle doldurun
Aşağıdaki VBA kodu, bir birleşik giriş kutusu oluştururken benzersiz değerler eklemenize yardımcı olabilir, lütfen şu şekilde yapın:
1. Önce bir açılan kutu ekleyin, lütfen tıklayın Geliştirici > Ekle > Birleşik Giriş Kutusu (ActiveX Kontrolü)ve ardından bir birleşik giriş kutusu çizmek için fareyi sürükleyin, ekran görüntüsüne bakın:
2. Ardından, birleşik giriş kutusuna sağ tıklayın ve Kodu Görüntüle bağlam menüsünden, ekran görüntüsüne bakın:
3. Ve Uygulamalar için Microsoft Visual Basic pencere dışarı çıktı, lütfen orijinal kodu değiştirmek için aşağıdaki kodu kopyalayıp yapıştırın.
VBA kodu: benzersiz değerlere sahip birleşik giriş kutusu:
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
not: Yukarıdaki kodda, Birleşik Kutu1 oluşturduğunuz birleşik giriş kutusunun adıdır, istediğiniz gibi değiştirebilirsiniz.
4. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için tuşuna basın ve bilgi istemi kutusunda, lütfen açılan kutuya eklemek istediğiniz veri kaynağı listesini seçin, ekran görüntüsüne bakın:
5. Ve sonra tıklayın OK düğmesi, açılan kutuda yalnızca benzersiz değerler görüntülenir, ekran görüntüsüne bakın:
Bahşiş: Yoksa Geliştirici şeritteki sekme, bu makale Excel 2007/2010/2013 Şeridinde geliştirici sekmesi nasıl gösterilir / görüntülenir? Geliştirici sekmesini görüntülemeniz için bir iyilik yapabilir.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
