Excel'de çoklu onay kutuları içeren bir açılır liste nasıl oluşturulur?

Excel'deki geleneksel açılır listeler, kullanıcıları tek seçimle sınırlar. Bu sınırlamayı aşmak ve çoklu seçimleri etkinleştirmek için, çoklu onay kutuları içeren açılır listeler oluşturmak üzere iki pratik yöntemi ele alacağız.

Liste Kutusu kullanarak çoklu onay kutuları içeren bir açılır liste oluşturun
A: Kaynak veri ile bir liste kutusu oluşturun
B: Seçili öğeleri yerleştireceğiniz hücreyi adlandırın
C: Seçili öğeleri çıktılamak için bir şekil ekleyin
Harika bir araçla kolayca onay kutularıyla açılır liste oluşturun
Açılır liste için daha fazla öğretici...

Liste Kutusu kullanarak çoklu onay kutuları içeren bir açılır liste oluşturun

Aşağıdaki ekran görüntüsünde gösterildiği gibi, geçerli çalışma sayfasındaki A2:A11 aralığındaki tüm isimler, C4 hücresinde bulunan liste kutusu için kaynak veri olarak hizmet verecektir. Bu kutuya tıkladığınızda genişleyen bir öğe listesi görürsünüz ve seçilen öğeler E4 hücresinde görüntülenecektir. Bunu başarmak için şu adımları izleyin:

A. Kaynak veri ile bir liste kutusu oluşturun

1. Geliştirici > Ekle > Liste Kutusu (Active X Denetimi) öğesine tıklayın. Ekran görüntüsüne bakın:

2. Geçerli çalışma sayfasında bir liste kutusu çizin, sağ tıklayın ve ardından sağ tıklama menüsünden Özellikler'i seçin.

3. Özellikler iletişim kutusunda aşağıdaki yapılandırmaları yapmanız gerekmektedir.

• 3.1 ListeDoldurmaAralığı kutusuna, listede görüntülenecek kaynak aralığını girin (burada A2:A11 aralığını giriyorum);
• 3.2 ListeStili kutusunda, 1 - fmListe StilSeçeneği'ni seçin;
• 3.3 ÇokluSeçim kutusunda, 1 – fmÇokluSeçimÇoklu'yu seçin;
• 3.4 Özellikler iletişim kutusunu kapatın. Ekran görüntüsüne bakın:

  

B: Seçili öğeleri yerleştireceğiniz hücreyi adlandırın

Eğer tüm seçili öğeleri belirli bir hücreye, örneğin E4'e çıktılamak istiyorsanız, lütfen şu adımları izleyin.

1. E4 hücresini seçin, Ad Kutusuna ListBoxOutput yazın ve Enter tuşuna basın.

C. Seçili öğeleri çıktılamak için bir şekil ekleyin

1. Ekle > Şekiller > Dikdörtgen öğesine tıklayın. Ekran görüntüsüne bakın:

2. Çalışma sayfanızda bir dikdörtgen çizin (burada dikdörtgeni C4 hücresine çiziyorum). Ardından dikdörtgene sağ tıklayın ve sağ tıklama menüsünden Makro Ata'yı seçin.

3. Makro Ata iletişim kutusunda, Yeni düğmesine tıklayın.

4. Açılacak Microsoft Visual Basic for Applications penceresinde, Modül penceresindeki orijinal kodu aşağıdaki VBA koduyla değiştirin.

VBA Kodu: Çoklu onay kutuları içeren bir liste oluşturun

Sub Rectangle1_Click()
'Updated by Extendoffice 20200730
Dim xSelShp As Shape, xSelLst As Variant, I, J As Integer
Dim xV As String
Set xSelShp = ActiveSheet.Shapes(Application.Caller)
Set xLstBox = ActiveSheet.ListBox1
If xLstBox.Visible = False Then
    xLstBox.Visible = True
    xSelShp.TextFrame2.TextRange.Characters.Text = "Pickup Options"
    xStr = ""
    xStr = Range("ListBoxOutput").Value
    
    If xStr <> "" Then
         xArr = Split(xStr, ";")
    For I = xLstBox.ListCount - 1 To 0 Step -1
        xV = xLstBox.List(I)
        For J = 0 To UBound(xArr)
            If xArr(J) = xV Then
              xLstBox.Selected(I) = True
              Exit For
            End If
        Next
    Next I
    End If
Else
    xLstBox.Visible = False
    xSelShp.TextFrame2.TextRange.Characters.Text = "Select Options"
    For I = xLstBox.ListCount - 1 To 0 Step -1
        If xLstBox.Selected(I) = True Then
        xSelLst = xLstBox.List(I) & ";" & xSelLst
        End If
    Next I
    If xSelLst <> "" Then
        Range("ListBoxOutput") = Mid(xSelLst, 1, Len(xSelLst) - 1)
    Else
        Range("ListBoxOutput") = ""
    End If
End If
End Sub

Not: Kodda, Rectangle1 şekil adıdır; ListBox1 liste kutusunun adıdır; Seçenekleri Seç ve Seçenekleri Topla, şeklin görünen metinleridir; ve ListBoxOutput, çıktı hücresinin aralık adıdır. İhtiyaçlarınıza göre bunları değiştirebilirsiniz.

5. Microsoft Visual Basic for Applications penceresini kapatmak için Alt + Q tuşlarına aynı anda basın.

6. Dikdörtgen düğmeye tıkladığınızda liste kutusu daralır veya genişler. Liste kutusu genişlediğinde, istenen öğeleri işaretleyerek seçin. Ardından, tüm seçili öğeleri E4 hücresine çıkarmak için tekrar dikdörtgene tıklayın. Aşağıdaki demoyu inceleyin:

7. Ve sonra çalışma kitabını Excel MakroEtkin Çalışma Kitabı olarak kaydedin, böylece gelecekte kodu yeniden kullanabilirsiniz.

Harika bir araçla onay kutularıyla açılır liste oluşturun

Karmaşık VBA kodlamadan yoruldunuz mu? Kutools for Excel, sorunsuz çoklu seçim için onay kutularıyla açılır listeler oluşturmayı kolaylaştırır. Anketler, veri filtreleme veya dinamik formlar için mükemmel olan bu kullanıcı dostu araç iş akışınızı hızlandırır ve zaman kazandırır.

1. Veri doğrulama açılır listesi ayarladığınız çalışma sayfasını açın, Kutools > Açılır Liste > Gelişmiş Açılır Listeyi Etkinleştir öğesine tıklayın. Ardından, Açılır Liste'yi tekrar Açılır Listeyle Onay Kutuları'na tıklayın. Ekran görüntüsüne bakın:

2. Açılır Liste Onay Kutuları Ekleme iletişim kutusunda, lütfen aşağıdaki yapılandırmaları yapın.

• 2.1) Açılır liste içeren hücreleri seçin;
• 2.2) Ayırıcı kutusuna, birden fazla öğeyi ayırmak için kullanacağınız bir sınırlayıcı girin;
• 2.3) Gerektiğinde Arama etkinleştirmeyi işaretleyin. (Bu seçeneği işaretlerseniz, daha sonra açılır listede arama yapabilirsiniz.)
• 2.4) Tamam düğmesine tıklayın.

  

Şimdi itibaren, açılır liste içeren hücreye tıkladığınızda bir liste kutusu açılacaktır, lütfen aşağıda gösterilen demo'da olduğu gibi onay kutularını işaretleyerek öğeleri seçin ve hücreye çıktılayın.

Bu özelliğin daha fazla ayrıntısı için lütfen bu öğreticiyi ziyaret edin.

Bu makale, Excel'de onay kutularıyla açılır listeler oluşturmanıza yardımcı olmak için iki yöntem sunmaktadır. Tercihinize göre birini seçebilirsiniz. Eğer daha fazla Excel ipucu ve hilesini keşfetmeye ilgileniyorsanız, web sitemiz binlerce öğretici sunmaktadır.

İlgili makaleler: