Nhờ viết code xếp hạng (1 người xem)

[amly1980]

Nhờ các bác giúp đỡ, chúc sức khỏe các bác!

 

[jack nt]

nếu chỉ yêu cầu như vậy thì bạn có thể dùng chức năng sort trên menu là được rồi. còn thích màu mè tí thì dán đoạn mã này vô code của thủ tục Button3_Click
(tui record lại thôi, chứ chẳng viết thêm gì hết)

Range("B9:I48").Select
ActiveWorkbook.Worksheets("Sheet1").ListObjects("List1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").ListObjects("List1").Sort.SortFields.Add _
Key:=Range("H9:H48"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").ListObjects("List1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With