Excel'de açılır listeyi benzersiz değerlerle nasıl doldurabilirim?
Bir veri listesi içeren bir açılır kutu oluşturduğunuzda listede yinelenen değerler varsa, bu değerler açılır kutuda otomatik olarak filtrelenmez. Peki bu durumda açılır kutunuzda yalnızca benzersiz öğeleri nasıl gösterebilirsiniz? Belki bu öğretici size yardımcı olabilir.
Açılır kutuyu VBA kodu kullanarak Benzersiz Değerler ile doldurma
Açılır kutuyu VBA kodu kullanarak Benzersiz Değerler ile doldurma
Aşağıdaki VBA kodu, açılır kutu oluştururken benzersiz değerleri eklemenize yardımcı olabilir; lütfen şu adımları izleyin:
1. Öncelikle bir açılır kutu ekleyin: Bunun için Geliştirici > Ekle > Açılır Kutu (ActiveX Denetimi) seçeneğine tıklayın ve ardından fareyi sürükleyerek bir açılır kutu çizin. Ekran görüntüsüne bakın:
2. Ardından açılır kutuya sağ tıklayın ve bağlam menüsünden Kodu Görüntüle seçeneğini seçin; ekran görüntüsüne bakın:
3. Böylece Microsoft Visual Basic for Applications penceresi açılır; orijinal kodun yerine aşağıdaki kodu kopyalayıp yapıştırın.
VBA kodu: benzersiz değerlere sahip açılır kutu:
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 ComboBox1, oluşturduğunuz açılır kutunun adıdır; gerekirse bunu değiştirebilirsiniz.
4. Ardından bu kodu çalıştırmak için F5 tuşuna basın ve açılan ileti kutusuna, açılır kutuya eklemek istediğiniz **Kaynak Aralığı** listesini girin; ekran görüntüsüne bakın:
5. Sonra, Tamam düğmesine tıklayın; açılır kutuda yalnızca benzersiz değerler görüntülenir. Ekran görüntüsüne bakın:
İpucu: Şeritte Geliştirici sekmesi görünmüyorsa, Excel'de geliştirici sekmesini nasıl gösterilir/görüntülenir 2007/2010/2013 Şerit? başlıklı makale, Geliştirici sekmesini görüntülemenizde size yardımcı olabilir.
KUTOOLS AI ile Excel'in Sihirli Gücünü Açığa Çıkarın
- Akıllı Yürütme: Hücre işlemlerini gerçekleştirin, verileri analiz edin ve hepsi basit komutlarla çalışan grafikler oluşturun.
- Özel formüller: İş akışlarınızı kolaylaştırmak için özelleştirilmiş formüller oluşturun.
- VBA Kodlama: VBA kodlarını zahmetsizce yazın ve uygulayın.
- Formül Yorumlama: Karmaşık formülleri kolayca çözmek artık çok daha basit!
- Metin Çevirisi: Elektronik tablolarınızda dil bariyerlerini aşın.
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar