Excel'de birden çok seçim veya değer içeren açılır liste nasıl oluşturulur?

Varsayılan olarak, Excel'deki veri doğrulama açılır listesinden yalnızca bir öğe seçebilirsiniz. Aşağıdaki gif gösterildiği gibi açılır listede nasıl çoklu seçim yapabilirsiniz? Bu makaledeki yöntemler sorunu çözmenize yardımcı olabilir.

VBA kodu ile birden çok seçim içeren açılır liste oluşturun

Bu bölüm, bir çalışma sayfasındaki açılır listelerde birden çok seçim yapmanıza yardımcı olacak iki VBA kodu sağlar. İki VBA kodu şunları başarabilir:

Excel'deki bir çalışma sayfasındaki açılır listede birden çok seçim yapmak için aşağıdaki VBA kodlarından birini uygulayabilirsiniz. Lütfen aşağıdaki gibi yapın.

1. Birden çok seçim yapmak istediğiniz veri doğrulama açılır listelerini içeren çalışma sayfasını açın. Sayfa sekmesine sağ tıklayın ve seçin Kodu Görüntüle bağlam menüsünden.

2. içinde Uygulamalar için Microsoft Visual Basic penceresi, aşağıdaki VBA kodunu kod penceresine kopyalayın. Ekran görüntüsüne bakın:

VBA kodu 1: Bir açılır listede kopyalar olmadan birden çok seçime izin ver

Private Sub Worksheet_Change(ByVal Target As Range)
    'Updated by Extendoffice 2019/11/13
    Dim xRng As Range
    Dim xValue1 As String
    Dim xValue2 As String
    If Target.Count > 1 Then Exit Sub
    On Error Resume Next
    Set xRng = Cells.SpecialCells(xlCellTypeAllValidation)
    If xRng Is Nothing Then Exit Sub
    Application.EnableEvents = False
    If Not Application.Intersect(Target, xRng) Is Nothing Then
        xValue2 = Target.Value
        Application.Undo
        xValue1 = Target.Value
        Target.Value = xValue2
        If xValue1 <> "" Then
            If xValue2 <> "" Then
                If xValue1 = xValue2 Or _
                   InStr(1, xValue1, ", " & xValue2) Or _
                   InStr(1, xValue1, xValue2 & ",") Then
                    Target.Value = xValue1
                Else
                    Target.Value = xValue1 & ", " & xValue2
                End If
            End If
        End If
    End If
    Application.EnableEvents = True
End Sub

3. Tuşuna basın. Ara Toplam + Q kapatmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.

Artık mevcut çalışma sayfasındaki açılır listeden birden çok öğe seçebilirsiniz.

Diyelim ki yanlışlıkla bir öğe seçtiniz ve tüm hücreyi temizlemeden ve baştan başlamadan onu çıkarmanız gerekiyor. Aşağıdaki VBA kodu 2 size bir iyilik yapabilir.

VBA kodu 2: Bir açılır listede kopyalar olmadan birden çok seçime izin verin (tekrar seçerek mevcut öğeleri silin)

Private Sub Worksheet_Change(ByVal Target As Range)
    'Updated by Extendoffice 2023/01/11
    'Updated by Ken Gardner 2022/07/11
    Dim xRng As Range
    Dim xValue1 As String
    Dim xValue2 As String
    Dim semiColonCnt As Integer
    Dim xType As Integer
    If Target.Count > 1 Then Exit Sub
    On Error Resume Next
    
    xType = 0
    xType = Target.Validation.Type
    If xType = 3 Then
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        xValue2 = Target.Value
        Application.Undo
        xValue1 = Target.Value
        Target.Value = xValue2
        If xValue1 <> "" Then
            If xValue2 <> "" Then
                If xValue1 = xValue2 Or xValue1 = xValue2 & ";" Or xValue1 = xValue2 & "; " Then ' leave the value if only one in list
                    xValue1 = Replace(xValue1, "; ", "")
                    xValue1 = Replace(xValue1, ";", "")
                    Target.Value = xValue1
                ElseIf InStr(1, xValue1, "; " & xValue2) Then
                    xValue1 = Replace(xValue1, xValue2, "") ' removes existing value from the list on repeat selection
                    Target.Value = xValue1
                ElseIf InStr(1, xValue1, xValue2 & ";") Then
                    xValue1 = Replace(xValue1, xValue2, "")
                    Target.Value = xValue1
                Else
                    Target.Value = xValue1 & "; " & xValue2
                End If
                Target.Value = Replace(Target.Value, ";;", ";")
                Target.Value = Replace(Target.Value, "; ;", ";")
                If Target.Value <> "" Then
                    If Right(Target.Value, 2) = "; " Then
                        Target.Value = Left(Target.Value, Len(Target.Value) - 2)
                    End If
                End If
                If InStr(1, Target.Value, "; ") = 1 Then ' check for ; as first character and remove it
                    Target.Value = Replace(Target.Value, "; ", "", 1, 1)
                End If
                If InStr(1, Target.Value, ";") = 1 Then
                    Target.Value = Replace(Target.Value, ";", "", 1, 1)
                End If
                semiColonCnt = 0
                For i = 1 To Len(Target.Value)
                    If InStr(i, Target.Value, ";") Then
                        semiColonCnt = semiColonCnt + 1
                    End If
                Next i
                If semiColonCnt = 1 Then ' remove ; if last character
                    Target.Value = Replace(Target.Value, "; ", "")
                    Target.Value = Replace(Target.Value, ";", "")
                End If
            End If
        End If
        Application.EnableEvents = True
        Application.ScreenUpdating = True
    End If
End Sub

notlar:

Harika bir araçla birden fazla seçim içeren açılır listeyi kolayca oluşturun

Burada şiddetle tavsiye ediyoruz Çoklu Seçim Açılır Liste özelliği Kutools for Excel senin için. Bu özellik sayesinde, açılır listeden, belirli bir aralıktaki, geçerli çalışma sayfasındaki, mevcut çalışma kitabındaki veya ihtiyacınız olan tüm açık çalışma kitaplarındaki birden çok öğeyi kolayca seçebilirsiniz.

1. tık Kutools > Açılır liste > Çoklu Seçim Açılır Liste > Ayarlar. Ekran Bkz:

2. içinde Çoklu Seçim Açılır Liste Ayarları iletişim kutusu, lütfen aşağıdaki gibi yapılandırın.

• 2.1) Uygulama kapsamını Uygula Bölüm. Bu durumda seçiyorum Mevcut çalışma sayfası itibaren Belirtilen Kapsam açılır liste;
• 2.2) içinde Metin yönü bölümünde ihtiyaçlarınıza göre bir metin yönü seçin;
• 2.3) içinde Separatör kutusuna birden çok değeri ayırmak için kullanacağınız bir sınırlayıcı girin;
• 2.4) Kontrol edin Yinelenenleri eklemeyin kutusu Opsiyonlar açılır liste hücrelerinde kopyalar yapmak istemiyorsanız bölümü;
• 2.5) OK buton. Ekran görüntüsüne bakın:

3. Lütfen tıklayın Kutools > Açılır liste > Çoklu Seçim Açılır Liste özelliği etkinleştirmek için.

Artık geçerli çalışma sayfasındaki açılır listeden veya 2. adımda belirlediğiniz herhangi bir kapsamdan birden çok öğe seçebilirsiniz.

İlgili yazılar:

---

En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

• Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
• Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
• Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
• Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
• Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
• Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
• Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
• Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
• 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.

Devamı ... Ücretsiz indirin... Satın alma... 

---

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!

Devamı ... Ücretsiz indirin... Satın alma...