Kısa Açıklama
Birden fazla sütunlu listbox sıralama isimli başlıkta, ilgili işlemlere dair detaylar yer almaktadır.- Excel Versiyonu
- Excel 2016
- Excel Sürümü
- 64 Bit
- Excel Dili
- Türkçe
If OpbSirala.Value = True Then
Liste = ListBox504.List
ListBox504.List = Sirala(Liste)
stn = 0
End If
Aşağıdaki fonksiyon listboxun sadece 1.sütununu (yani 0 , ilk sütun) sıralıyor. Listbox 7 sütunlu olsaydı ne gibi değişiklikler , eklemeler yapmak gerekirdi.
İlgilenebilecek forumdaşlara şimdiden teşekkürler.
Private Function Sirala(Liste As Variant)
Dim i As Integer, j As Integer, x As Variant
Dim stn As Integer
For i = LBound(Liste) To UBound(Liste) - 1
For j = i + 1 To UBound(Liste)
If StrComp(Liste(i, stn), Liste(j, stn), vbTextCompare) = 1 Then
x = Liste(j, stn)
Liste(j, stn) = Liste(i, stn)
Liste(i, stn) = x
End If
Next j
Next i
Sirala = Liste
End Function
Liste = ListBox504.List
ListBox504.List = Sirala(Liste)
stn = 0
End If
Aşağıdaki fonksiyon listboxun sadece 1.sütununu (yani 0 , ilk sütun) sıralıyor. Listbox 7 sütunlu olsaydı ne gibi değişiklikler , eklemeler yapmak gerekirdi.
İlgilenebilecek forumdaşlara şimdiden teşekkürler.
Private Function Sirala(Liste As Variant)
Dim i As Integer, j As Integer, x As Variant
Dim stn As Integer
For i = LBound(Liste) To UBound(Liste) - 1
For j = i + 1 To UBound(Liste)
If StrComp(Liste(i, stn), Liste(j, stn), vbTextCompare) = 1 Then
x = Liste(j, stn)
Liste(j, stn) = Liste(i, stn)
Liste(i, stn) = x
End If
Next j
Next i
Sirala = Liste
End Function