Làm thế nào để sắp xếp các sheet trong file Excel theo thứ tự abc kí tự đầu tên của mỗi sheet nhỉ?
tks,Nhay chuot phai vao cua so trang sheet, chon rename sau do danh ten moi theo thu tu 123 hoac abc tuy thich
Hy vong da tra loi cau hoi cua ban
đánh tên mới thì nói gì nữa bạn ơi. Có 100 sheet ko lẽ bạn đánh lại tên 100 sheet ah? mà tên mỗi sheet đã có ý nghĩa riêng của nó, đặt tên lại thì ko hợp lý!!
Fải làm sao để các sheet đó tự động nằm vào vị trí theo thứ tự abc.. theo ý mình.
tks,Sub SortWorksheets[]
Dim N As Integer
Dim M As Integer
Dim FirstWSToSort As Integer
Dim LastWSToSort As Integer
Dim SortDescending As Boolean
SortDescending = False
If ActiveWindow.SelectedSheets.Count = 1 Then
FirstWSToSort = 1
LastWSToSort = Worksheets.Count
Else
With ActiveWindow.SelectedSheets
For N = 2 To .Count
If .Item[N - 1].Index .Item[N].Index - 1 Then
MsgBox "You cannot sort non-adjacent sheets"
Exit Sub
End If
Next N
FirstWSToSort = .Item[1].Index
LastWSToSort = .Item[.Count].Index
End With
End If
For M = FirstWSToSort To LastWSToSort
For N = M To LastWSToSort
If SortDescending = True Then
If UCase[Worksheets[N].Name] > UCase[Worksheets[M].Name] Then
Worksheets[N].Move Before:=Worksheets[M]
End If
Else
If UCase[Worksheets[N].Name] < UCase[Worksheets[M].Name] Then
Worksheets[N].Move Before:=Worksheets[M]
End If
End If
Next N
Next M
End Sub
COPY DOAN CODE TREN
->MO FILE EXEL Can sap xep worksheet ra
->NHAN ALT+F11
->HIEN MAN HINH VP...
->VAO INSERT->MODULE->PASTE VAO MAN HINH HIEN RA
->DONG VP... LAI
VAO THE TOOL->MACROO->MACROS->ENTER
HAY TA BAM TO HOP PHIM ALT+F8->ENTER
Xin lỗi, spam!
Bó giò ông nội này, đã viết toàn tiếng anh lại không dấu, ai hiểu được chết liền.:wall:Đây không phải làm spam và toàn tiếng anh, mà đó là câu lệnh lập trình. Lần sau nói phải tìm hiểu kỹ rùi hãng nói nha bạn.@ketoan4mat:
Bây giờ mới trả lời ko biết có muộn ko? Mình sử dụng ASAP Utilities [ Phiên bản trial] để sắp xếp các sheet trong file Excel. Học tập các sư phụ ở Diễn đàn Giải pháp Excel & Download tại đó. Lâu quá mình ko nhớ nằm ở chỗ nào nữa. Bạn thử vào link này nhé :
Asap Utilities
[Trước đây mình vào topic khác và đã có nhắn Thanks. Nhưng ở topic này ko có]
Mình thường sử dụng ASAP Utilities để xóa name rác.Ok, để mình thử.
Cám ơn BE CHI nhé.Bên giaiphapexcel.com có hẳn một topic về cái này, có cả file mẫu nữa, bạn down cái file đó về dùng thôi hihi....!Chào mừng các bạn đến với thế giới của nghệ thuật cuốn giấy quilling!Bạn xem chi tiết tại đây nhé //lamdichvuketoan.com/sap-xep-cac-sheet-trong-excel/ Hướng dẫn chi tiết bạn ah