Sắp Xếp Các Sheet Trong Excel Theo Thứ Tự Abc - Webketoan

Menu Menu Đăng nhập Đăng ký Tắt quảng cáo Menu Install the app Cài đặt

• Trang chủ
• Diễn đàn Bài viết mới
• Có gì mới Bài viết mới New resources Hoạt động mới nhất
• Resources Latest reviews

• Kế toán Căn bản thực chiến về Logistic/Forwarder
• Kế toán Căn Bản F&B " 2 buổi online - tự tin bước vào nghề!

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

• Thread starter ketoan4mat
• Ngày gửi 20/4/09

• Diễn đàn
• THÔNG TIN CẦN BIẾT VÀ HỎI ĐÁP NGHIỆP VỤ
• Tech Hub: AI - An toàn thông tin - Tin học quản lý

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser.

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, Toggle signature 4eyes 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

Cao cấp

24/4/03 3,906 17 38 Sài Gòn đẹp lắm

ngaphuongphuong nó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ấn để mở rộng...

đá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, Toggle signature 4eyes 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

• 

Reactions: methulun L

Luc van

Guest

acompire nó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 Nhấn để mở rộng...

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

Cao cấp

24/4/03 3,906 17 38 Sài Gòn đẹp lắm

BE CHI nó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. Nhấn để mở rộng...

Ok, để mình thử. Cám ơn BE CHI nhé. Toggle signature 4eyes 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?

tamnt07

Sống đơn giản, lấy nụ cười làm căn bản!

21/3/07 5,632 623 113 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....! Toggle signature Chào mừng các bạn đến với thế giới của nghệ thuật cuốn giấy quilling!​ H

hainhung2015

Guest

22/4/15 3 0 1 36 dichvuketoanhn.net Bạn xem chi tiết tại đây nhé http://lamdichvuketoan.com/sap-xep-cac-sheet-trong-excel/ Hướng dẫn chi tiết bạn ah Bạn phải đăng nhập hoặc đăng ký để bình luận.

Similar threads

10 hàm excel mà kế toán hay dùng

• HaiTam
• 21/10/22
• Tech Hub: AI - An toàn thông tin - Tin học quản lý

Trả lời 4 Lượt xem 35K Tech Hub: AI - An toàn thông tin - Tin học quản lý 19/7/24 duyentrieuan99 D S Dùng VBA để đánh số phiếu tự động thay vì áp dụng công thức

• SA_DQ
• 19/3/23
• Tech Hub: AI - An toàn thông tin - Tin học quản lý

Trả lời 0 Lượt xem 39K Tech Hub: AI - An toàn thông tin - Tin học quản lý 19/3/23 SA_DQ S S Microsoft Bing sẽ giúp chúng ta trong lập trình VBA

• SA_DQ
• 1/10/23
• Tech Hub: AI - An toàn thông tin - Tin học quản lý

Trả lời 0 Lượt xem 24K Tech Hub: AI - An toàn thông tin - Tin học quản lý 1/10/23 SA_DQ S S Copilot & Y học

• SA_DQ
• 20/8/24
• Tech Hub: AI - An toàn thông tin - Tin học quản lý

Trả lời 0 Lượt xem 2K Tech Hub: AI - An toàn thông tin - Tin học quản lý 20/8/24 SA_DQ S Khóa học KẾ TOÁN dành cho người mới bắt đầu, chưa có kiến thức thực tế

• linhlinh09
• 4/11/24
• Quảng cáo, rao vặt

Trả lời 0 Lượt xem 46 Quảng cáo, rao vặt 4/11/24 linhlinh09 Chia sẻ: Facebook Email Chia sẻ Link

Xem nhiều

• M Thi tuyển công chức thuế năm 2012!
  • Started by MINA
  • 5/5/12
  • Lượt xem: 8,749,582
  Phát triển bản thân
• M Thi công chức hải quan!
  • Started by meomalem
  • 2/5/10
  • Lượt xem: 3,403,798
  Phát triển bản thân
• T Lập nhóm ôn thi công chức bhxh 2013
  • Started by truongvucanh
  • 29/3/13
  • Lượt xem: 2,988,166
  Phát triển bản thân
• M Tổng hợp các nội dung liên quan đến việc thi tuyển vào ngân hàng!
  • Started by mechipchip
  • 18/7/06
  • Lượt xem: 2,907,212
  Chế độ kế toán khác
• J Thi tuyển công chức thuế 2014
  • Started by jinna
  • 23/12/13
  • Lượt xem: 2,552,974
  Thi công chức thuế

Liên kết

Tâm An kế toán quản trị

Chia sẻ trang

Share this page Chia sẻ Facebook Email Chia sẻ Link Top Bottom