• TRANG CHỦ
  • THỦ THUẬT
    • Thủ thuật máy tính
    • Thủ thuật văn phòng
    • Thủ thuật Internet
    • Thủ thuật điện thoại
  • CHIA SẺ PHẦN MỀM
  • DIỆT VIRUS
  • CÔNG NGHỆ SỐ
  • THỦ THUẬT OFFICE
  • HỖ TRỢ
  • DỊCH VỤ
    • Sửa máy tính tại nhà

Blog thủ thuật máy tính - Thủ thuật windows

Blog chia sẻ thủ thuật máy tính và thủ thuật windows, lưu lại những kiến thức trong quá trình mình làm việc

You are here: Home / Thủ thuật Office / Sắp xếp thứ tự Sheet trong Excel bằng VBA

Sắp xếp thứ tự Sheet trong Excel bằng VBA

April 3, 2016 By Chu Quang

(Sắp xếp thứ tự Sheet trong Excel bằng VBA) Excel là công cụ thông dụng trong nhiều công việc với rất nhiều chức năng hữu ích. Việc sắp xếp trong Excel được hỗ trợ rất mạnh. Ngoài chức năng sắp xếp thứ tự theo giá trị còn có thể sắp xếp theo màu chữ hay màu nền. Với sự hỗ trợ của công cụ sắp xếp này, người sử dụng dễ dàng sắp xếp thứ tự bảng hay danh sách theo mong muốn của mình.

Vấn đề đặt ra là bạn đang có nhiều Sheet trong 1 Workbook và muốn sắp xếp các Sheet này theo thứ tự ABC để thuận tiện cho việc truy cập và làm việc. Tuy nhiên, Excel chưa hỗ trợ tính năng có sẵn thực hiện công việc này. Blog tin học sẽ hướng dẫn bạn cách sắp xếp các Sheet trong Excel theo mong muốn bằng cách sử dụng VBA.

Sap xep thu tu sheet trong excel bang vba

Sau đây là các bước thực hiện:

Nội dung

  1. 1. Khởi động Microsoft Excel.
  2. 2. Bắt đầu Visual Basic Editor với Alt+F11.
  3. 3. Copy đoạn mã sau
  4. 4. Quay lại màn hình Excel và sử dụng VBA
    1. Bài viết liên quan:

1. Khởi động Microsoft Excel.

2. Bắt đầu Visual Basic Editor với Alt+F11.

Trong Menu Insert chọn Module.
Sap xep thu tu sheet trong excel bang vba

3. Copy đoạn mã sau

Sub SortSheetOnWorkbook()
Dim i As Integer
Dim j As Integer
Dim iMsg As VbMsgBoxResult
iMsg = MsgBox(“Ban muon sap xep thu tu cac Sheet khong?” & Chr(10) & “Chon Yes de sap xep tang dan” & Chr(10) & “Chon No de sap xep giam dan” & Chr(10) & “Chon Cancel de huy”, vbYesNoCancel + vbInformation + vbDefaultButton2, “Sap xep Sheet”)
For i = 1 To Sheets.Count
For j = 1 To Sheets.Count – 1
Select Case iMsg
Case vbYes
If UCase$(Sheets(j).Name) > UCase$(Sheets(j + 1).Name) Then
Sheets(j).Move After:=Sheets(j + 1)
End If
Case vbNo
If UCase$(Sheets(j).Name) < UCase$(Sheets(j + 1).Name) Then
Sheets(j).Move After:=Sheets(j + 1)
End If
End Select
Next j
Next i
End Sub

4. Quay lại màn hình Excel và sử dụng VBA

Trong Menu View Macros chọn View Macros

Sap xep thu tu sheet trong excel bang vba

Trong danh sách các Macro, chọn Macro SortSheetOnWorkbook. Click Run.
Tương ứng với đoạn mã bạn copy ở trên thì khi chạy Macro, chọn “Yes” sẽ sắp xếp theo thứ tự tăng dần, “No” là theo thứ tự giảm dần. Sau khi quá trình chạy hoàn tất, Macro sẽ tự động sắp xếp các Sheet theo thứ tự tăng hoặc giảm dần do bạn lựa chọn. Sau đây là kết quả sau khi bạn sử dụng Macro làm việc với hàm trong Excel:
Sap xep thu tu sheet trong excel bang vba
Bạn có thể tham khảo thêm bài viết tạo mục lục danh sách các sheet để giúp các bạn quản lý công việc với Excel tốt hơn.
Rate this post

Bài viết liên quan:

  • Chi tiết cách in ấn tài liệu trong word 2003, 2010, 2013,…
  • Chatbots trong ngành công nghiệp trò chơi
  • Các Bước Kiểm Tra Khi Mua Điện Thoại Cũ
  • TOP 5+ Mẹo tăng tốc máy tính bị lag khi chơi game
  • Cách giúp máy tính không bị lag khi chơi game online

Filed Under: Thủ thuật Office Tagged With: Sắp xếp thứ tự sheet, Thủ thuật Excel, Thủ thuật Office

Tìm kiếm

Newbie nên đọc

  • Dạy photoshop cơ bản
  • Thủ thuật Office
  • Tạo website đơn giản

Bài viết nổi bật

  • TOP 5+ Mẹo tăng tốc máy tính bị lag khi chơi game

    TOP 5+ Mẹo tăng tốc máy tính bị lag khi chơi game

  • Cách giúp máy tính không bị lag khi chơi game online

    Cách giúp máy tính không bị lag khi chơi game online

  • Cách sửa laptop bị lỗi màn hình xanh

    Cách sửa laptop bị lỗi màn hình xanh

  • Cách sử dụng DNS Cloudflare 1.1.1.1 để truy cập các trang web bị chặn

    Cách sử dụng DNS Cloudflare 1.1.1.1 để truy cập các trang web bị chặn

  • Những thủ thuật máy tính đơn giản và hữu ích

    Những thủ thuật máy tính đơn giản và hữu ích

  • Hướng dẫn cách tạo USB cài đặt Windows 10

    Hướng dẫn cách tạo USB cài đặt Windows 10

  • Tạo USB cài đặt Win 10 bằng Media Creation Tool

    Tạo USB cài đặt Win 10 bằng Media Creation Tool

Theo dõi mạng xã hội

Liên hệ với tôi

Nếu các bạn gặp khó khăn gì trong quá trình làm việc hãy liên hệ với tôi theo email:

tranthanhchinh.hd@gmail.com

Những gì tôi biết tôi sẽ hướng dẫn tận tình. Cảm ơn các bạn đã ủng hộ

Blog bạn bè

Blog công nghệ
Tin học AZ
Mẹo vặt đời sống

Đôi lời về tác giả

Blog chia sẻ thủ thuật máy tính - Thủ thuật windows

Mình tên là Thanh Chính đây là nơi mình viết lại những kinh nghiệm làm việc, những thủ thuật máy tính khi máy tính phát sinh một sự cố, cũng như là một nơi lưu trữ lại các kiến thức làm việc của mình để khi cần có thể lấy ra và áp dụng được luôn, Mong các bạn có thể đóng góp thêm cho blog của mình.

Copyright © 2023 · Going Green Pro Theme on Genesis Framework · WordPress · Log in