ListBox Üzerindeki Verilere Çoklu Seçim Yapma isimli içerikte, ilgili işlemin VBA kodları ile nasıl yapacağınızı öğreten bir Hazır Makro Kodu yer almaktadır.
Kodu test etmek için boş bir Excel sayfasının Visual Basic penceresinde iken bir UserForm, CommandButton ve ListBox nesnesi ekleyip, üstteki kodu yapıştırın ve UserForm'u çalıştırın.
Faydalanılması temennisiyle
Hazır Kod
VBA:
Private Sub CommandButton1_Click()
ListBox1.MultiSelect = 1
For i = 0 To ListBox1.ListCount - 1
If ListBox1.List(i) = "Nilay" Then
ListBox1.Selected(i) = True
End If
Next i
End Sub
Private Sub UserForm_Initialize()
List = Array("Ali", "Nilay", "Osman", "Peri", "Nilay")
ListBox1.List = List
End SubAçıklama
Kodu test etmek için boş bir Excel sayfasının Visual Basic penceresinde iken bir UserForm, CommandButton ve ListBox nesnesi ekleyip, üstteki kodu yapıştırın ve UserForm'u çalıştırın.
Faydalanılması temennisiyle
