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?
Açılır listeden VBA ile bir hücreye birden çok öğe seçin
Açılır listeden bir hücreye kolayca ve hızlı bir şekilde birden fazla öğ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.
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.
Açılır listeden bir hücreye kolayca ve hızlı bir şekilde birden fazla öğe seçin
Excel'de, VBA kodu dışında, bir hücrede açılır listeden birden çok öğenin seçilmesine izin vermenin başka yolu yoktur. Ancak Çoklu Seçim Açılır Liste özelliği Kutools for Excel bu işi tıklamalarla hızlı ve kolay bir şekilde halledebilir.
Adım 1: Kutools'u seçin > Açılır Liste > Çoklu Açılır Listeyi Seçin
Adım 2: Çoklu Seçim Açılır Liste iletişim kutusunda ayarları belirtin
- kapsamı belirleyin;
- Bir hücredeki sınırlayıcı öğeler için ayırıcıyı belirtin;
- Metin yönüne karar verin;
- Tamam 'ı tıklatın.
Sonuç:
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. 30 günlük ücretsiz deneme için tıklayın! |
Kutools for Excel: 300'den fazla kullanışlı Excel eklentisi ile 30 günde sınırlama olmaksızın ücretsiz olarak deneyin. |
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
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!