Sắp xếp trang tính theo thứ tự tăng dần bằng cách sử dụng macro

Mục lục

Đây là cách sắp xếp các bảng của bạn theo thứ tự bảng chữ cái

Sắp xếp dữ liệu theo thứ tự bảng chữ cái trong danh sách của bạn không có vấn đề gì. Nhưng làm thế nào để bạn làm điều đó khi bạn muốn đặt các trang tính theo thứ tự bảng chữ cái theo tên của chúng?

Hình minh họa sau đây cho thấy một thanh ghi trang tính với một loạt các trang tính. Chúng nên được sắp xếp theo thứ tự bảng chữ cái để dễ tìm hơn.

3

Với một vài tờ, bạn có thể thực hiện công việc theo cách thủ công một cách đáng tin cậy. Với nhiều sheet, việc này nhanh chóng trở nên khó khăn, mất thời gian và khó hiểu. Macro sau sẽ giúp bạn thêm:

Sub SortBlaetter ()
Dim Zaehler1 As Integer, Zaehler2 As Integer
Dim Name As String
Tên = ActiveSheet.Name
Đối với Zaehler1 = 1 To Worksheets.Count
Đối với Zaehler2 = Zaehler1 Tới Worksheets.Count
Nếu UCase (Worksheets (Counter2) .Name) <UCase (Worksheets (Counter1) .Name) Thì
Worksheets (Zaehler2). Di chuyển trước: = Worksheets (Zaehler1)
Kết thúc nếu
Bộ đếm tiếp theo 2, bộ đếm 1
Trang tính (Tên). Kích hoạt
Kết thúc Sub

Macro sắp xếp các trang tính trong sổ làm việc hiện hoạt theo thứ tự tăng dần theo bảng chữ cái. Hình sau đây cho thấy sổ làm việc mẫu trông như thế nào sau khi bạn khởi động macro:

Mẹo: Nếu bạn muốn biết cách nhập và bắt đầu macro trong Excel, bạn sẽ tìm thấy mô tả ngắn gọn tại đây: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html

Bạn sẽ giúp sự phát triển của trang web, chia sẻ trang web với bạn bè

wave wave wave wave wave