پرسش نمایش اطلاعات جدول در دو لیست باكس مجزا (در هر لیست باكس، بخشی از اطلاعات جدول)

[ظهور 313]

یه مشكل دارم، ممنون میشم اساتید راهنمایی كنند

یه جدول دارم كه به دلیل طولانی بودن، نمیخوام در یك لیست باكس نمایش بدم و میخوام تا ركورد 50 در یك لیست باكس نمایش داده بشه و در لیست باكس دیگه، از 51 به بعد
نمیدونم راهی داره یا نه
لطفا راهنمایی بفرمایید

[iranweld]

با سلام

با اضافه کردن دو تکست باکس ردیف های درخواستی را وارد و در لیست باکس نمایش دهید

Private Sub CommandButton1_Click()
ListBox1.Clear
If Val(TextBox1) <= Val(TextBox2) Then
For i = Val(TextBox1) To Val(TextBox2)
ListBox1.AddItem Range("a" & i)
Next
End If
End Sub 

[ظهور 313]

ممنون بابت وقتی كه گذاشتید (البته چون مقادیر من ثابت هستند، شرط رو حذف كردم و به جای تكس باكسها، از مقادیر ثابت استفاده كردم)
اما دو تا مشكل
اول اینكه میخوام چند تا ستون نمایش داده بشه و دوم اینكه سر ستونها هم میخوام نمایش داده بشه
ممنون میشم راهنمایی بفرمایید

[iranweld]

فایل پیوست را بررسی کنید

Private Sub UserForm_Initialize()
ListBox1.Clear
ListBox1.ColumnCount = 10
ListBox1.ColumnWidths = "50;50;50;50;50;50;50;50;50;50"
ListBox1.AddItem Range("a1")
For i = 1 To 10                          ListBox1.List(ListBox1.ListCount - 1, i - 1) = Cells(Range("a1").Row, i)        Next i        For j = 10 To 15
ListBox1.AddItem Range("a" & j)
For i = 1 To 10                          ListBox1.List(ListBox1.ListCount - 1, i - 1) = Cells(Range("a" & j).Row, i)        Next i        Next j
    End Sub