With frmDANHSACHGC
sArray = Sheet9.Range("A5:Z" & Sheet9.[A15000].End(xlUp).Row).Value
ListBox1.List() = sArray
ListBox1.ColumnHeads = True
ListBox1.RowSource = ActiveSheet.Range("A5:AA15000").Address
End With
ListBox1.ListIndex
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2