تعديل الكود لزيادة عدد الأعمدة التى تظهر عند عملية البحث فى الليست بوكس

'

'            LastRow = s1.Range("C" & Rows.Count).End(xlUp).Row

'    For Each ara In s1.Range("C2:C" & LastRow)

'

'   If ara >= tarih1 And _

'    ara <= tarih2 And ara.Offset(0, -2) = CStr(ComboBox1.Text) Then

'        ListBox1.AddItem

'

'

'

'

'           ListBox1.List(ListBox1.ListCount - 1, 4) = ara.Offset(0, 2)

'           ListBox1.List(ListBox1.ListCount - 1, 3) = Format(ara.Offset(0, 1), "dd-mm-yyyy")

'

'           ListBox1.List(ListBox1.ListCount - 1, 2) = VBA.Format(ara, "dd-mm-yyyy")

'           ListBox1.List(ListBox1.ListCount - 1, 1) = ara.Offset(0, -1)

'           ListBox1.List(ListBox1.ListCount - 1, 0) = ara.Offset(0, -2)

'           ListBox1.List(ListBox1.ListCount - 1, 5) = Format(ara.Offset(0, 3), "[$-F400]h:mm:ss AM/PM")

'           ListBox1.List(ListBox1.ListCount - 1, 6) = Format(ara.Offset(0, 4), "[$-F400]h:mm:ss AM/PM")

'           ListBox1.List(ListBox1.ListCount - 1, 7) = ara.Offset(0, 5)

'           ListBox1.List(ListBox1.ListCount - 1, 8) = ara.Offset(0, 6)

'           ListBox1.List(ListBox1.ListCount - 1, 9) = ara.Offset(0, 7)

'           ListBox1.List(ListBox1.ListCount - 1, 10) = ara.Offset(0, 8)

'    End If

' Next ara

    Dim a, b(), i As Long, j As Long

    

     a = s1.Range("A2:K" & s1.Cells(Rows.Count, 1).End(xlUp).Row).Value

    ReDim b(1 To 10000)

    b(1) = Application.Index(a, 1, 0)

    

   For i = LBound(a, 1) To UBound(a, 1)

        If CDate(a(i, 3)) >= tarih1 And CDate(a(i, 3)) <= tarih2 And CStr(a(i, 1)) = CStr(ComboBox1.Text) Then

            n = n + 1

            b(n) = Application.Index(a, i, 0)

            For j = LBound(b(n)) To UBound(b(n))

                If j = 6 Or j = 7 Then b(n)(j) = Format(b(n)(j), "[$-x-systime]h:mm:ss AM/PM")

            Next j

        End If

    Next i

   

    If n > 0 Then

        ReDim Preserve b(1 To n)

        If n = 1 Then

            Me.ListBox1.Column = Application.Index(b, 0, 0)

        Else

            Me.ListBox1.List = Application.Index(b, 0, 0)

        End If

    End If