Cách tạo danh sách tất cả các trang tính trong sổ làm việc đang hoạt động bằng cách sử dụng macro VBA
Bạn có muốn tạo một bảng gồm tất cả các trang tính trong sổ làm việc đang hoạt động không? Sử dụng macro sau:
Sub ShowTablesheets ()
Dim Row As Long
Làm mờ trang tính dưới dạng trang tính
Làm mờ trang tính mới dưới dạng trang tính
Đặt Neublatt = ActiveWorkbook.Worksheets.Add
Hàng = 1
Đối với mỗi trang tính trong ActiveWorkbook.Worksheets
If Sheet.Name New Sheet.Name Then
Trang tính mới.Cells (hàng, 1) = sheet.name
Dòng = dòng + 1
Kết thúc nếu
Tờ tiếp theo
Kết thúc Sub
Macro tạo một trang tính mới trong sổ làm việc đang hoạt động, trong đó tên của tất cả các trang tính được lưu. Chỉ có trang tổng quan mới được loại trừ khỏi danh sách. Hình sau cho thấy kết quả có thể trông như thế nào:
Để nhập macro, hãy mở trình soạn thảo VBA trong Excel bằng tổ hợp phím ALT F11. Trong trình soạn thảo này, chọn lệnh INSERT - MODULE và nhập macro. Bạn khởi động macro từ Excel bằng tổ hợp phím ALT F8.
