Şimdiye kadar, şu konulara baktık açılır listeler nasıl oluşturulur Bugün Excel'de Excel'de birden çok seçim içeren bir açılır liste nasıl oluşturulur .

Alıştırma Çalışma Kitabını İndirin

Alıştırma çalışma kitabını buradan indirebilirsiniz.

Excel'de Birden Çok Seçimle Açılır Liste Oluşturmak için Adım Adım Prosedürler

Burada, bir sütuna sahip bir veri kümemiz var Kitap Adı Bugünkü amacımız, bu veri kümesine dayalı olarak çoklu seçim yapabilen bir açılır liste oluşturmaktır. Aşağıdaki bölümde adım adım prosedürleri göstereceğim.

ADIM 1: Veri Doğrulama Kullanarak Açılır Liste Oluşturun

Birden fazla seçim içeren bir açılır liste oluşturmak için önce bir açılır liste oluşturmamız gerekir. Şimdi prosedürleri gözden geçirelim.

• İlk olarak, açılır listeyi oluşturmak istediğiniz hücreyi seçin. Hücre D5 .

• Ardından, şu adrese gidin Veri sekmesini seçin ve Veri Doğrulama kurdeleden.

• Sonra da Veri Doğrulama penceresinde Liste içinde İzin ver bölümüne yazın ve verilerini listeye eklemek istediğiniz aralık hücrelerini Kaynak Alan.
• Alternatif olarak, yukarı doğru küçük oka tıklayabilirsiniz. Kaynak bölümüne gidin ve çalışma sayfasından veri aralığını seçin.

• Son olarak, aşağıda oluşturulan bir açılır liste göreceğiz Hücre D5 .

Benzer Okumalar:

• Excel'de Açılır Liste Nasıl Yapılır (Bağımsız ve Bağımlı)
• Excel'de Açılır Listeden Çoklu Seçim Yapma (3 Yol)
• Excel'de Bağımlı Açılır Liste Nasıl Oluşturulur
• Excel'de Birden Çok Sütunda Açılır Liste Oluşturma (3 Yol)

ADIM 2: Açılır Listenin VBA Kodu ile Çoklu Seçimi Kabul Etmesini Etkinleştirme

Açılır listeyi zaten oluşturduk. Şimdi, açılır listeyi çoklu seçimler için hazırlamanın zamanı geldi. 2 VBA Listenin birden fazla seçimi kabul etmesini sağlamak için kodlar. Biri verilerin tekrarını kabul edecek ve diğeri verilerin tekrarını kabul etmeyecektir.

Örnek 1: Tekrarlı Çoklu Seçimler için VBA Kodu

Bu bölümde, veri tekrarı alacak çoklu seçimlere sahip bir açılır liste oluşturmanın yolunu göstereceğim.

Prosedürleri gözden geçirelim.

• İlk olarak, tuşuna basın ALT + F11 açmak için VBA Pencere.
• Ardından, şunları seçin Proje Kaşifi . Ayrıca, çift - tıklayın Görevin yapılmasını istediğiniz sayfada.

• Aynı anda, bir Kod penceresi açılacaktır.
• Daha sonra, bu pencereye aşağıdaki kodu yazın.

 Private Sub Worksheet_Change(ByVal Target As Range) Dim Oldvalue As String Dim Newvalue As String On Error GoTo Exitsub If Target.Address = "$D$5" Then If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then GoTo Exitsub Else: If Target.Value = "" Then GoTo Exitsub Else Application.EnableEvents = False Newvalue = Target.Value Application.Undo Oldvalue = Target.Value If Oldvalue = "" ThenTarget.Value = Newvalue Else Target.Value = Oldvalue & ", " & Newvalue End If End If End If Application.EnableEvents = True Exitsub: Application.EnableEvents = True End Sub 

• Son olarak, çalışma sayfasına geri dönün ve açılır listede aynı öğenin tekrarıyla birden fazla öğe seçebileceğiz.

Örnek 2: Tekrarlama Olmadan Çoklu Seçim için VBA Kodu

Bu bölümde, veri tekrarı gerektirmeyen çoklu seçimlere sahip bir açılır liste oluşturmanın yolunu göstereceğim.

Prosedürleri gözden geçirelim.

• İlk olarak, tuşuna basın ALT + F11 açmak için VBA Pencere.
• Ardından, şunları seçin Proje Kaşifi . Ayrıca, çift - tıklayın Görevin yapılmasını istediğiniz sayfada.

• Aynı anda, bir Kod penceresi görünecektir.
• Daha sonra, bu pencereye aşağıdaki kodu yazın.

 Private Sub Worksheet_Change(ByVal Target As Range) Dim Oldvalue As String Dim Newvalue As String Application.EnableEvents = True On Error GoTo Exitsub If Target.Address = "$D$5" Then If Target.SpecialCells(xlCellTypeAllValidation) Is Nothing Then GoTo Exitsub Else: If Target.Value = "" Then GoTo Exitsub Else Application.EnableEvents = False Newvalue = Target.Value Application.Undo Oldvalue =Target.Value If Oldvalue = "" Then Target.Value = Newvalue Else If InStr(1, Oldvalue, Newvalue) = 0 Then Target.Value = Oldvalue & ", " & Newvalue Else: Target.Value = Oldvalue End If End If End If End If Application.EnableEvents = True Exitsub: Application.EnableEvents = True End Sub 

• Son olarak, çalışma sayfasına geri dönün ve aynı öğenin tekrarı olmadan açılır listede birden fazla öğe seçebileceğiz.

Sonuç

Bu yöntemi kullanarak Excel'de birden fazla seçim içeren bir açılır liste oluşturabilirsiniz. Sorularınız mı var? Yorum bölümünde bize bildirmekten çekinmeyin. ExcelWIKI Web Sitesi ile ilgili daha fazla makale için Excel .