Excel sayfasını kullanmadan listbox da sıralama

[mkbal]

listbox'a her veri girişimde otomotik sıralama yapmasını istiyorum ama excel'in sayfalarını kullanmadan. Örnek olarak basit bir userform ekledim: textbox'a yazılanı butona bastıkca listbox'a ekliyor ve ben her eklemeden sonra listbox'ın sıralanmasını istiyorum. Yardımlarınız için şimdiden teşekkür ederim.

 

[Orion1]

String değerler için artan sıralama.
Ekli dosyayı inceleyiniz.

Private Function Sirala(Liste As Variant)
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

Private Sub CommandButton1_Click()
ListBox1.AddItem TextBox1.Text
Liste = ListBox1.List
ListBox1.List = Sirala(Liste)
End Sub

 

[Fuat Şirin]

bu konu benimde dikkatimi çekti ama
sonuçta yazılanları kayıt yapmayacaksa
bir verimliliği olur mu acaba

 

[mkbal]

bu konu benimde dikkatimi çekti ama
sonuçta yazılanları kayıt yapmayacaksa
bir verimliliği olur mu acaba

tabiki kayıt var, amaç soruyu basitleştirmek

 

[mkbal]

String olmayan değerlerde artan sıralama için neyi değiştirmemiz gerekiyor?

 

[Orion1]

String olmayan değerlerde artan sıralama için neyi değiştirmemiz gerekiyor?

If StrComp(Liste(i, 0), Liste(j, 0), vbTextCompare) = 1 Then

yerine aşağıdakini kulllanınız.

If cdbl(Liste(i, 0)) > cdbl(Liste(j, 0)) Then

 

[mkbal]

teşekkürler...