Macro : Listbox ต้องการให้ข้อมูลแสดงจากใหม่ไปเก่า

[wisitsakbenz]

เรียน อาจารย์ครับ

รบกวนสอบถามครับ คลิกปุ่ม Search แล้วต้องการให้ข้อมูลแสดงจากใหม่ไปเก่า ต้องปรับ Code อย่างไรครับ
ขอบคุณครับ

Code: Select all

Private Sub CommandButton2_Click()

Dim i As Long, j As Long
Dim arr(1, 7) As Variant
Me.ListBox1.Clear
Me.ListBox1.AddItem

For a = 0 To 7
    arr(0, a) = Sheet2.Cells(1, a + 1).Value
    arr(1, a) = Sheet2.Cells(2, a + 1).Value
Next a

Me.ListBox1.ColumnCount = 7
Me.ListBox1.List = arr
ListBox1.ColumnWidths = "40,100,100,100,100,100"
    For i = 3 To Sheet2.Range("A1000000").End(xlUp).Row
        If Sheet2.Cells(i, 2).Value = Sheet1.Cells(4, 9).Value Then
            Me.ListBox1.AddItem
            For x = 1 To 7
                Me.ListBox1.List(ListBox1.ListCount - 1, x - 1) = Sheet2.Cells(i, x)
            Next x
        End If
    Next i

End Sub

[puriwutpokin]

ปรับตรงนี้ครับ

Code: Select all

    For i = Sheet2.Range("A1000000").End(xlUp).Row To 3 Step -1

[wisitsakbenz]

เรียน อาจารย์ puriwutpokin

ได้แล้วครับ ขอบคุณมากครับ

[wisitsakbenz]

เรียน อาจารย์ครับ

ถ้าต้องการ Locked ขนาดความกวางสูง ของ Listbox ต้องเพิ่ม Code นี้หรือไม่ครับ
ปัญหาที่พบคือ เวลาปิดไฟล์แล้วเปิดใหม่ หรือ กด Search ขนาดของ Listbox ค่อยๆลดลงครับ ขอบคุณครับ

Code: Select all

Me.ListBox1.Locked = True