Excel ListBox A-z Sıralama Nasıl Yaparım

Excel ListBox A-z Sıralama Nasıl Yaparım

Excel verilerimi görüntüleme yaptığımız Userform Listbox verilerinde özellikle çoklu listboxlar da verilerimiz karmaşık olmaktadır. Yani Excel verimiz ne şekilde ise o şekilde veri görüntülemektedir. Vereceğim kod ile A-z sıralama yapabilirsiniz .  İki farklı kod vereceğim ilk kodu anlatayım Private Sub Userform_Initialize() kısmına ekleyeceğiniz kod   Private Sub Userform_Initialize() ‘a.z sıralama listboxları cevizpaylas.com Liste = ListBox1.List […]

Excel verilerimi görüntüleme yaptığımız Userform Listbox verilerinde özellikle çoklu listboxlar da verilerimiz karmaşık olmaktadır. Yani Excel verimiz ne şekilde ise o şekilde veri görüntülemektedir. Vereceğim kod ile A-z sıralama yapabilirsiniz .  İki farklı kod vereceğim ilk kodu anlatayım

Private Sub Userform_Initialize() kısmına ekleyeceğiniz kod

 

Private Sub Userform_Initialize()
'a.z sıralama listboxları cevizpaylas.com
Liste = ListBox1.List
ListBox1.List = Sirala(Liste)
Liste = ListBox2.List
ListBox2.List = Sirala(Liste)
End Sub

Burada ListBox1 ve ListBox2 Kendinize görö düzenlemeyi yapmayı unutmayın

İkinci kodda kod sayfanızın en altına ilave ediniz.

Verileri oluşturan kod
Private Function Sirala(Liste As Variant)
‘a.z sıralam listbox cevizpaylas.com
Dim i As Integer, j As Integer, x As Variant
For i = LBound(Liste) To UBound(Liste) – 1
For j = i + 1 To UBound(Liste)
If StrComp(Liste(i, 0), Liste(j, 0), vbTextCompare) = 1 Then
x = Liste(j, 0)
Liste(j, 0) = Liste(i, 0)
Liste(i, 0) = x
End If
Next j
Next i
Sirala = Liste
End Function

Ekleyin işlem bu kadar başka bir konuda buluşmak dileğile…

Sosyal Medyada Paylaşın:

BİRDE BUNLARA BAKIN

Düşüncelerinizi bizimle paylaşırmısınız ?

Bot Kontrolü cevabı Rakamla Yazınız *

  • ÇOK OKUNAN
  • YENİ
  • YORUM
  • ÇOK OKUNAN
  • YENİ
  • YORUM
DMCA.com Protection Status Eğitim ve Ögretim Eğitim ve Ögretim Toplist25 toplist