Note: The other languages of the website are Google-translated. Back to English

Açılır listeden Excel'deki bir hücreye birden çok öğe nasıl seçilir?

Açılır liste, Excel günlük çalışmalarında sıklıkla kullanılır. Varsayılan olarak, bir açılır listede yalnızca bir öğe seçilebilir. Ancak bazı zamanlarda, aşağıda gösterilen ekran görüntüsü gibi, açılır listeden tek bir hücreye birden çok öğe seçmeniz gerekebilir. Bunu Excel'de nasıl halledebilirsiniz?

doc açılır listeden birden çok öğe seçin 1 doc sağ ok doc açılır listeden birden çok öğe seçin 2

Açılır listeden VBA ile bir hücreye birden çok öğe seçin

Kutools for Excel'in kullanışlı seçeneği ile açılır listeden bir hücreye birden çok öğe seçin


Açılır listeden VBA ile bir hücreye birden çok öğe seçin

İşte bazı VBA bu işi çözmek için size bir iyilik yapabilir.

Bir hücredeki açılır listeden yinelenen öğeleri seçin

1. Bir açılır liste oluşturduktan sonra, seçmek için sayfa sekmesine sağ tıklayın Kodu Görüntüle bağlam menüsünden.
doc açılır listeden birden çok öğe seçin 3

2. Sonra Uygulamalar için Microsoft Visual Basic penceresini açın, aşağıdaki kodu boş komut dosyasına kopyalayıp yapıştırın.

VBA: Bir hücredeki açılır listeden birden çok öğe seçin

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim xRgVal As Range
    Dim xStrNew As String
    On Error Resume Next
    Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
    If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
    If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xStrNew = Target.Value
    Application.Undo
    If xStrNew = Target.Value Then
    Else
    xStrNew = xStrNew & " " & Target.Value
    Target.Value = xStrNew
    End If
    Application.EnableEvents = True
End Sub

3. Kodu kaydedin ve açılır listeye geri dönmek için pencereyi kapatın. Artık açılır listeden birden çok öğe seçebilirsiniz.

Not:

1. VBA ile öğeleri boşluğa göre ayırır, değiştirebilirsiniz xStrNew = xStrNew & "" & Hedef değer sınırlayıcıyı istediğiniz gibi değiştirmek için diğerlerine. Örneğin, xStrNew = xStrNew & "," & Hedef değer öğeleri virgülle ayırır.

2. Bu VBA kodu, sayfadaki tüm açılır listeler için çalışır.

Açılır listeden bir hücreye tekrarsız birden çok öğe seçin

Açılır listeden bir hücreye benzersiz öğeler seçmek istiyorsanız, yukarıdaki adımları tekrarlayabilir ve aşağıdaki kodu kullanabilirsiniz.

VBA : Açılır listeden tekrar etmeden bir hücreye kadar birden çok öğe seçin

Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim I As Integer
    Dim xRgVal As Range
    Dim xStrNew As String
    Dim xStrOld As String
    Dim xFlag As Boolean
    Dim xArr
    On Error Resume Next
    Set xRgVal = Cells.SpecialCells(xlCellTypeAllValidation)
    If (Target.Count > 1) Or (xRgVal Is Nothing) Then Exit Sub
    If Intersect(Target, xRgVal) Is Nothing Then Exit Sub
    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xFlag = True
    xStrNew = " " & Target.Value & " "
    Application.Undo
    xStrOld = Target.Value
    If InStr(1, xStrOld, xStrNew) = 0 Then
        xStrNew = xStrNew & xStrOld & " "
    Else
        xStrNew = xStrOld
    End If
    Target.Value = xStrNew
    Application.EnableEvents = True
End Sub

Yukarıdaki VBA kodlarının her ikisi de hücre içeriğinin bölümlerini silmeyi desteklemez, yalnızca hücrenin tüm öğelerini temizlemeyi destekler.


Kutools for Excel'in kullanışlı seçeneği ile açılır listeden bir hücreye birden çok öğe seçin

VBA koduna aşina değilseniz şunları yapabilirsiniz: ücretsiz kurulum kullanışlı bir araç - Kutools for Excel, açılır liste hakkında bir grup yardımcı program içeren ve bir seçenek var Çoklu seçim Açılır liste açılır listeden bir hücreye birden çok öğeyi kolayca seçmenize yardımcı olabilir.

Açılır listeyi oluşturduktan sonra, lütfen açılır liste hücrelerini seçin ve tıklayın Kutools > Açılır liste > Çoklu Seçim Açılır Liste bu yardımcı programı etkinleştirmek için.
doc kutools çoklu seçim açılır listesi 1

Ardından, seçilen açılır liste hücreleri, hücreye birden çok öğe seçilebilir.

Bu seçeneği ilk kez kullanırsanız, bu yardımcı programı uygulamadan önce ihtiyaç duyduğunuz şekilde bu yardımcı programın ayarlarını belirtebilirsiniz.

Tıkla Kutools > Açılır liste > yanındaki ok Çoklu Seçim Açılır Liste > Ayarlar.
doc kutools çoklu seçim açılır listesi 2

Sonra da Çoklu Seçim Açılır Liste Ayarları diyalog, yapabilirsin

1) İhtiyacınız olan uygulama kapsamını belirtin;

2) Öğelerin yerinin yönünü belirtin;

3) Öğeler arasındaki ayırıcıyı belirtin;

4) Yinelenenleri eklemeyi ve yinelenen öğeleri kaldırmayı belirtin.

Tıkla Ok ve tıklayın Kutools > Açılır liste > Çoklu Seçim Açılır Liste etkilemek için.

Bahşiş: Uygulamak için Çoklu Seçim Açılır Liste yardımcı program, yapmanız gereken kurmak ilk başta. Birden çok seviyeye sahip bir açılır liste oluşturmak istiyorsanız, aşağıdaki yardımcı program size yardımcı olabilir.

Excel'de dinamik bir 2 düzeyli veya çok düzeyli bağımlı açılır listeyi kolayca oluşturun

Excel'de, 2 düzeyli veya çok düzeyli bir açılır liste oluşturmak karmaşıktır. İşte Dinamik Açılır Liste yarar Kutools for Excel sana bir iyilik yapabilir Tek yapmanız gereken, verileri gösterildiği gibi sipariş etmek, ardından veri aralığını ve çıktı aralığını seçmek ve ardından yardımcı programa bırakmaktır.  Için tıklayınız 30 gün ücretsiz deneme!
doc gelişmiş satırları birleştir
 
Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile, hiçbir sınırlama olmadan denemesi ücretsiz 30 gün.

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.
kte sekmesi 201905

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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (26)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Ekledikten sonra, açılır listedeki veriler, silme çalışmıyor.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Aynı sorunu buldum. Sanırım üstesinden gelmenin bir yolunu buldum. Kodun altında "xStrNew = xStrOld" kodunu göreceksiniz. Bunun yerine, xStrNew = " " demesini sağlayın

Benim için çalışıyor.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Hala bu koda sahip olma şansınız var mı? Dediğinizi yapmaya çalışıyorum ama metin hala kopyalanıyor.
Teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Üzgünüm ama istemiyorum. Ancak, yukarıdaki koda yeni baktım ve yazarın kodu benim önerimle düzenlediği anlaşılıyor.

Sorununuzu bu makalenin ana başlığına gönderin.
Bu yorum sitedeki moderatör tarafından en aza indirildi
ilk kodda 6. ve 7. satır arasına aşağıdaki satırı ekleyin (ikinci kodda 10-11): Target.Value = "" ise Sub'dan Çıkın
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bunu "Açılır listeden bir hücreye tekrarlamadan birden çok öğe seç" kullandım
olan şey bu
1. Çoklu seçimler sorunsuz gerçekleşir.
2. Sorun, bir seçeneği düzenlemeye ve kaldırmaya çalıştığımda. Bir seçeneği kaldırmamın bir yolu yok. çoğalmaya devam ediyor.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu işlevi nasıl uygularsınız, ancak onu gereksiz değerler olmayacak şekilde nasıl yaparsınız? Herhangi bir yardım takdir edilecektir!
Bu yorum sitedeki moderatör tarafından en aza indirildi
Onay kutularını kullanarak açılır liste içeren bir sayfa oluşturursam, bu çalışma kitabını bu onay kutuları özelliğiyle paylaşmanın bir yolu var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Ayrıca, güncellenmiş VBA kodunu kullanarak birden çok öğe seçtikten sonra hücreyi hala temizleyemediğimi, çoğalmaya devam ettiğini görüyorum.
Bunun için henüz bir çözümü olan var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Rusty, kodu daha kararlı hale getirmek için güncelledim. Ancak hücre veri doğrulamada olduğundan, boş veri doğrulama dışında olduğundan, kod bu sorunu çözemez.
Bu yorum sitedeki moderatör tarafından en aza indirildi
kod çalışıyor ancak tüm hücrelerde taşınıyor ve hücrelerde çoğalıyor ve silinmesine izin vermiyor yardımcı olabilir misiniz?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Quando quero deletar allguma opção ou todas dá erro. Como posso çözücü?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba! Como puedo usar este codigo para todo un çalışma sayfası ve solo para una pestana yok mu?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, Vero, Kutools for Excel's Çoklu Seçim Açılır Liste özelliği, tüm çalışma sayfasındaki veya çalışma kitabında açılır listeden birden çok öğe seçmeyi destekler, Çoklu Seçim Açılır Liste Ayarları iletişim kutusunda Belirtilen Kapsamı belirtmeniz yeterlidir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Sağladığınız ilk formül için bunu nasıl yapabilirim :) Gelişmiş teşekkürler!
Bu yorum sitedeki moderatör tarafından en aza indirildi
, bonjour
selon le prömiyer örneği, en iyi örneklerden biri.
quand la feuille est verrouillée, je n'ai artı le choix çoklu !
nasıl yapılır
şimdiden teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, bunun için üzgünüm. Bu sorunu önlemek için özelliğimizi bir sonraki sürüme yükselteceğiz. Geri bildiriminiz için teşekkür ederiz.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merci bcp
Sabahtan akşama kadar yeni sürüm mü?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, yeni sürüm planlanıyor, bir sonraki sürüm birden fazla özelliği yükselteceği için biraz zaman alabilir.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, bu sürümü sizin için güncelledik, ancak bu bir beta sürüm, lütfen buradan indirin: https://download.extendoffice.com/downloads/Kutools-for-Excel/beta/26.10/KutoolsforExcelSetup.Inno.exe
Herhangi bir sorun varsa, geri bildiriminiz için hoş geldiniz.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Teşekkür ederim
Je vais la télécharger ve deneme yazarı.
Bonne journée
Bu yorum sitedeki moderatör tarafından en aza indirildi
kod çalışıyor ama silmeme izin vermiyor birileri lütfen yeni kodu gönderebilir mi?
Bu yorum sitedeki moderatör tarafından en aza indirildi
¿Klasik bir metinde sırayı nasıl elde edebilirsiniz, en sevdiğinizden daha iyi bronzlaşabilir misiniz?

Örnek:
Liste için metnim:
TRAMITAR ESTE ASUNTO
KOORDİNAR
ANALİZ ETMEK VE TAVSİYE ETMEK

seçiminiz:
TRAMITAR ESTE ASUNTO
ANALİZ ETMEK VE TAVSİYE ETMEK

Bana öyle geliyor
ANALIZAR Y TAVSİYE EDEN TRAMITAR ESTE ASUNTO

o deniz, los de abajo me aparecen primeo, pero quiero que sea en el orden en que voy secccionando...
TRAMITAR ESTE ASUNTO, ANALIZAR Y TAVSİYE.....
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, Gorgelys, Kutools'un çoklu seçim açılır listesi size yardımcı olabilir. Seçtiğiniz ürünler istediğiniz gibi sıralanacaktır.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Planlı bir blokta bir eğlenceden yararlanma şansınız var mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, Makrolar, aşağıdaki kodu deneyin, korumalı sayfadaki açılır listedeki çoklu öğeleri seçmeyi destekler.
Private Sub Worksheet_Change(ByVal Target As Range)
'UpdatebyExtendoffice20221111
    Dim xRgVal As Range
    Dim xStrNew As String
    On Error Resume Next  
    xType = 0
    xType = Target.Validation.Type
    If xType <> 3 Then Exit Sub
    If (Target.Count > 1) Then Exit Sub

    If Target.Value = "" Then Exit Sub
    Application.EnableEvents = False
    xStrNew = Target.Value
    Application.Undo
    If xStrNew = Target.Value Then
    Else
    xStrNew = xStrNew & " " & Target.Value
    Target.Value = xStrNew
    End If
    Application.EnableEvents = True
End Sub

Ayrıca Kutools for Excel 26.1 ve sonraki sürümler bu işi korumalı sayfada destekler.
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır