thangnm nói:
có bạn nào biết cách sắp xếp các sheet trong 1 lile exel không nhỉ, bảo minh với, VD mình có 1 file trong đó có các sheet được là 111,112,421,334,511...(khoảng 40 sheet)
bây giờ có cách nào sắp xếp các sheet đó theo chiều tăng (giảm) dần được không?? hay phải sort bằng tay?? :deal: .
Xài đỡ cái này nhé. Bạn insert module rồi paste cái đoạn mã này vào. Thế là xong.
Sub SortSheets()
Dim lCount As Long, lCounted As Long
Dim lShtLast As Long
Dim lReply As Long
lReply = MsgBox("To sort Worksheets ascending, select 'Yes'. " _
& "To sort Worksheets descending select 'No'", vbYesNoCancel, "Ozgrid Sheet Sort")
If lReply = vbCancel Then Exit Sub
lShtLast = Sheets.Count
If lReply = vbYes Then 'Sort ascending
For lCount = 1 To lShtLast
For lCount2 = lCount To lShtLast
If UCase(Sheets(lCount2).Name) < UCase(Sheets(lCount).Name) Then
Sheets(lCount2).Move Before:=Sheets(lCount)
End If
Next lCount2
Next lCount
Else 'Sort descending
For lCount = 1 To lShtLast
For lCount2 = lCount To lShtLast
If UCase(Sheets(lCount2).Name) > UCase(Sheets(lCount).Name) Then
Sheets(lCount2).Move Before:=Sheets(lCount)
End If
Next lCount2
Next lCount
End If
End Sub
Sưu tầm:
http://www.ozgrid.com/