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

Offline Hà Nội 2014 tại Đồ Sơn-Hải Phòng
Chương trình từ thiện năm 2014 tại xã Tân Mỹ, huyện Trà Ôn, tỉnh Vĩnh Long




kết quả từ 1 tới 10 trên 10
19,021 lượt xem
  1. Thành viên cấp cộng đồng Hình đại diện của ketoan4mat
    Tham gia ngày
    Apr 2003
    Địa chỉ
    Sài Gòn đẹp lắm
    Bài gửi
    3,932
    Post Thanks / Like
    ketoan4mat vẫn chưa có mặt trong diễn đàn

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

    4eyes

  2. Khu vực quảng cáo
    Tham gia ngày
    Always
    Địa chỉ
    Advertising world
    Bài gửi
    Many

     

  3. Thành viên Hình đại diện của ngaphuongphuong
    Tham gia ngày
    Feb 2009
    Địa chỉ
    Hanoi
    Bài gửi
    2
    Post Thanks / Like
    ngaphuongphuong vẫn chưa có mặt trong diễn đàn
    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

  4. Thành viên cấp cộng đồng Hình đại diện của ketoan4mat
    Tham gia ngày
    Apr 2003
    Địa chỉ
    Sài Gòn đẹp lắm
    Bài gửi
    3,932
    Post Thanks / Like
    ketoan4mat vẫn chưa có mặt trong diễn đàn
    21-04-2009, 10:04 #3
    Trích nguyên văn Nguyên văn bởi ngaphuongphuong Xem bài
    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,
    4eyes

  5. Thành viên Hình đại diện của acompire
    Tham gia ngày
    May 2010
    Địa chỉ
    hcm
    Bài gửi
    1
    Post Thanks / Like
    acompire vẫn chưa có mặt trong diễn đàn
    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

  6. Nick bị khoá Hình đại diện của Luc van
    Tham gia ngày
    Sep 2009
    Địa chỉ
    Thiếu Lâm Tự
    Bài gửi
    465
    Post Thanks / Like
    Luc van vẫn chưa có mặt trong diễn đàn
    Trích nguyên văn Nguyên văn bởi acompire Xem bài
    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.

  7. Thành viên cấp trung Hình đại diện của ohiboca
    Tham gia ngày
    Apr 2010
    Địa chỉ
    HN
    Bài gửi
    4
    Post Thanks / Like
    ohiboca vẫn chưa có mặt trong diễn đàn
    Đâ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.

  8. Thành viên cấp cao Hình đại diện của BE CHI
    Tham gia ngày
    Feb 2009
    Địa chỉ
    tp ho chi minh
    Bài gửi
    170
    Post Thanks / Like
    BE CHI vẫn chưa có mặt trong diễn đà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.

  9. Thành viên cấp cộng đồng Hình đại diện của ketoan4mat
    Tham gia ngày
    Apr 2003
    Địa chỉ
    Sài Gòn đẹp lắm
    Bài gửi
    3,932
    Post Thanks / Like
    ketoan4mat vẫn chưa có mặt trong diễn đàn
    Trích nguyên văn Nguyên văn bởi BE CHI Xem bài
    @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é.
    4eyes

  10. Thành viên Hình đại diện của trexanh
    Tham gia ngày
    Aug 2009
    Địa chỉ
    tp. ho chi minh
    Bài gửi
    3
    Post Thanks / Like
    trexanh vẫn chưa có mặt trong diễn đàn
    Truoc het cam on ban!
    minh muon hoi them cach sap xep cac sheet theo mau duoc ko ban?

  11. Ai mà hay cười Hình đại diện của tamnt07
    Tham gia ngày
    Mar 2007
    Địa chỉ
    The Capital
    Tuổi
    35
    Bài gửi
    3,056
    Post Thanks / Like

    My Social Networking

    Add tamnt07 on Facebook
    tamnt07 vẫn chưa có mặt trong diễn đàn
    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....!


Thread Information

Users Browsing this Thread

Hiện tại có 1 người đang truy cập đề tài này gồm: (0 thành viên và 1 khách)

Visitors found this page by searching for:

sap xep sheet theo thu tu

sắp xếp sheet trong excel

cách sắp xếp abc trong excel

làm the nao de tao sheet theo thu tu

xep danh sach theo thu tu a b c trong excel

sắp xếp abc trong excell

sap xep excel 2010 theo abc

CÁCH SAP SEP TEN TRONG EXCEL

code sap xep lai trong excell

cach dat van abc trong xcel

cách xếp các sheet theo vần trong exel

code sap xep trong excel

cách sắp xếp tên theo abc trong excel winex

sắp xếp thứ tự các sheet trong excel

Sắp xếp sheet trong exel

tao ds excel theo mau tu abc

trinh sheet theo thu tu trong excel

cách sắp xếp theo thứ tự abc cac sheet trong excel

sap xep thu tu cac sheet torng excel

cach sort thu tu tu a den z

cách xếp vần a b c trong excel

phần mềm sắp xếp tên theo thứ tự a b c

cách sắp xếp thứ tự các sheet trong excel

sắp xếp các sheet

phan mem tron ten theo ABC cua Ecxel