فرز البيانات في ليست بوكس بناء على قيمة

[نايف - م]

السلام عليكم

 

هل يمكن الفرز بالليست بوكس كما نفرز الورقة بناء على قيمة  في الليست بوكس

[إبراهيم ابوليله]

اخى نايف

جرب الكود التالى

لفرز عمود التاريخ

Private Sub CommandButton3_Click()
Dim i As Long
    Dim j As Long
    Dim sTemp As String
    Dim sTemp2 As String
    Dim sTemp3 As String
    Dim sTemp4 As String
    Dim sTemp5 As String
    Dim sTemp6 As String
        Dim sTemp7 As String
            Dim sTemp8 As String
    Dim LbList As Variant
'
    LbList = Me.ListBox1.List
    For i = LBound(LbList, 1) To UBound(LbList, 1)
        For j = i + 1 To UBound(LbList, 1)
            '--------------------------------------------------------------------
    ' ÇáÊÑÊíÈ ÈäÇÁ Úáì ÇáÚãæÏ ÇáËÇäì

            If LbList(i, 6) > LbList(j, 6) Then
 
                sTemp = LbList(i, 0)
                LbList(i, 0) = LbList(j, 0)
                LbList(j, 0) = sTemp
 
                sTemp2 = LbList(i, 1)
                LbList(i, 1) = LbList(j, 1)
                LbList(j, 1) = sTemp2
 
                 sTemp3 = LbList(i, 2)
                LbList(i, 2) = LbList(j, 2)
                LbList(j, 2) = sTemp3

                  sTemp4 = LbList(i, 3)
                LbList(i, 3) = LbList(j, 3)
                LbList(j, 3) = sTemp4
                
                 sTemp5 = LbList(i, 4)
                LbList(i, 4) = LbList(j, 4)
                LbList(j, 4) = sTemp5
                
                 sTemp6 = LbList(i, 5)
                LbList(i, 5) = LbList(j, 5)
                LbList(j, 5) = sTemp6
                
                 sTemp7 = LbList(i, 6)
                LbList(i, 6) = LbList(j, 6)
                LbList(j, 6) = sTemp7

                 sTemp8 = LbList(i, 7)
                LbList(i, 7) = LbList(j, 7)
                LbList(j, 7) = sTemp8


            End If
        Next j
    Next i
 
    Me.ListBox1.Clear
 
    Me.ListBox1.List = LbList
 End Sub

وجرب الكود التالى

لفرز عمود الاسماء

Private Sub CommandButton2_Click()
Dim i As Long
    Dim j As Long
    Dim sTemp As String
    Dim sTemp2 As String
    Dim sTemp3 As String
    Dim sTemp4 As String
    Dim sTemp5 As String
    Dim sTemp6 As String
        Dim sTemp7 As String
            Dim sTemp8 As String
    Dim LbList As Variant
'
    LbList = Me.ListBox1.List
    For i = LBound(LbList, 1) To UBound(LbList, 1)
        For j = i + 1 To UBound(LbList, 1)
            '--------------------------------------------------------------------
    ' ÇáÊÑÊíÈ ÈäÇÁ Úáì ÇáÚãæÏ ÇáËÇäì

            If LbList(i,1) > LbList(j, 1) Then
 
                sTemp = LbList(i, 0)
                LbList(i, 0) = LbList(j, 0)
                LbList(j, 0) = sTemp
 
                sTemp2 = LbList(i, 1)
                LbList(i, 1) = LbList(j, 1)
                LbList(j, 1) = sTemp2
 
                 sTemp3 = LbList(i, 2)
                LbList(i, 2) = LbList(j, 2)
                LbList(j, 2) = sTemp3

                  sTemp4 = LbList(i, 3)
                LbList(i, 3) = LbList(j, 3)
                LbList(j, 3) = sTemp4
                
                 sTemp5 = LbList(i, 4)
                LbList(i, 4) = LbList(j, 4)
                LbList(j, 4) = sTemp5
                
                 sTemp6 = LbList(i, 5)
                LbList(i, 5) = LbList(j, 5)
                LbList(j, 5) = sTemp6
                
                 sTemp7 = LbList(i, 6)
                LbList(i, 6) = LbList(j, 6)
                LbList(j, 6) = sTemp7

                 sTemp8 = LbList(i, 7)
                LbList(i, 7) = LbList(j, 7)
                LbList(j, 7) = sTemp8


            End If
        Next j
    Next i
 
    Me.ListBox1.Clear
 
    Me.ListBox1.List = LbList
 End Sub

تقبل تحياتى

[نايف - م]

شكرا شكرا

 

بارك الله فيك - هو المطلوب

[أبو قاسم]

ارجو المساعدة بفرز البيانات في اللست بوكس الاسم الاكثر عدد يكون الاعلى والاقل عدد يكون الاسفل

فرز.zip

[أبو قاسم]

للرفع

[أبو قاسم]

للرفع

[ياسر خليل أبو البراء]

أخي الكريم تمت مشاركة الأخ إبراهيم ابو ليلة بكود وقد أخبرت أنه المطلوب ..بعدها طلبت طلب آخر

إذا كان الطلب غير مرتبط بالموضوع فمن الأفضل ان تطرح موضوع جديد حيث أن الطلبات في المشاركات الفرعية لا يلتفت إليها في غالب الأحيان

تقبل نصيحتي وتوجيهي