Trong các sổ làm việc phức tạp có chứa nhiều trang tính, không có gì lạ khi cần danh sách các trang tính khác nhau. Khi bạn đã có danh sách, bạn có thể in nó hoặc sử dụng nó trong một số cách khác, chẳng hạn như để tạo mục lục cho sổ làm việc của bạn. Macro sau, GetSheets, nhanh chóng truy xuất tên của các trang tính trong sổ làm việc hiện tại. Nó đặt chúng vào trang tính hiện tại, bắt đầu từ ô A1 và sau đó làm việc xuống dưới.

Sub GetSheets()

Dim j As Integer     Dim NumSheets As Integer

NumSheets = Sheets.Count     For j = 1 To NumSheets         Cells(j, 1) = Sheets(j).Name     Next j End Sub

Macro này sẽ ghi đè bất kỳ thứ gì trong ô mà nó cần trong sổ làm việc hiện tại, vì vậy bạn nên đảm bảo rằng mình không cần bất kỳ thứ gì trong cột A của trang tính. Nếu bạn không muốn ghi đè bất kỳ thứ gì, hãy đảm bảo bạn tạo một trang tính mới và sau đó chạy macro từ trang tính đó.

Sau khi danh sách các trang tính được tạo, bạn có thể định dạng nó như mong muốn, sau đó in ra.

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (2216) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Excel (Excel 2007 trở lên) tại đây: