Sắp xếp các sheet trong Excel theo thứ tự abc

  • Thread starter ketoan4mat
  • Ngày gửi
ketoan4mat

ketoan4mat

Cao cấp
24/4/03
3,906
17
38
Sài Gòn đẹp lắm
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,
 
Khóa học Quản trị dòng tiền
N

ngaphuongphuong

Guest
7/2/09
2
0
0
Hanoi
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
 
ketoan4mat

ketoan4mat

Cao cấp
24/4/03
3,906
17
38
Sài Gòn đẹp lắm
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,
 
A

acompire

Guest
29/5/10
1
1
0
hcm
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
 
  • Like
Reactions: methulun
L

Luc van

Guest
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:
 
O

ohiboca

Sơ cấp
21/4/10
4
0
0
HN
Đâ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.
 
B

BE CHI

Trung cấp
26/2/09
178
6
18
tp ho chi minh
@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.
 
ketoan4mat

ketoan4mat

Cao cấp
24/4/03
3,906
17
38
Sài Gòn đẹp lắm
@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é.
 
T

trexanh

Guest
1/8/09
3
0
0
tp. ho chi minh
Truoc het cam on ban!
minh muon hoi them cach sap xep cac sheet theo mau duoc ko ban?
 

Xem nhiều

Webketoan Zalo OA