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

Thảo luận trong 'Tin học văn phòng và Internet' bắt đầu bởi ketoan4mat, 20 Tháng tư 2009.

31,022 lượt xem

  1. ketoan4mat

    ketoan4mat Thành Viên Cấp Cao

    Bài viết:
    3,936
    Đã được thích:
    16
    Nơi ở:
    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,
     
    #1
  2. ngaphuongphuong

    ngaphuongphuong Thành Viên

    Bài viết:
    2
    Đã được thích:
    0
    Nơi ở:
    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
     
    #2
  3. ketoan4mat

    ketoan4mat Thành Viên Cấp Cao

    Bài viết:
    3,936
    Đã được thích:
    16
    Nơi ở:
    Sài Gòn đẹp lắm
    đá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,
     
    #3
  4. acompire

    acompire Thành Viên

    Bài viết:
    1
    Đã được thích:
    1
    Nơi ở:
    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
     
    #4
    methulun thích bài này.
  5. Luc van

    Luc van Guest

    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:
     
    #5
  6. ohiboca

    ohiboca Thành viên hoạt động

    Bài viết:
    4
    Đã được thích:
    0
    Nơi ở:
    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.
     
    #6
  7. BE CHI

    BE CHI Thành viên thân thiết

    Bài viết:
    176
    Đã được thích:
    6
    Nơi ở:
    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.
     
    #7
  8. ketoan4mat

    ketoan4mat Thành Viên Cấp Cao

    Bài viết:
    3,936
    Đã được thích:
    16
    Nơi ở:
    Sài Gòn đẹp lắm
    Ok, để mình thử.
    Cám ơn BE CHI nhé.
     
    #8
  9. trexanh

    trexanh Thành Viên

    Bài viết:
    3
    Đã được thích:
    0
    Nơi ở:
    tp. ho chi minh
    Truoc het cam on ban!
    minh muon hoi them cach sap xep cac sheet theo mau duoc ko ban?
     
    #9
  10. tamnt07

    tamnt07 Ai mà hay cười

    Bài viết:
    5,063
    Đã được thích:
    434
    Nơi ở:
    The Capital
    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....!
     
    #10
  11. hainhung2015

    hainhung2015 Thành Viên

    Bài viết:
    3
    Đã được thích:
    0
    Giới tính:
    Nam
    #11

Chia sẻ trang này