Nếu bạn có một số lượng rất lớn các trang tính trong một sổ làm việc, bạn có thể muốn truy xuất tên của các trang tính đó và đặt sau đó trên trang tính của chúng. Ví dụ, bạn có thể muốn chúng ở một nơi để bạn có thể sử dụng chúng trong mục lục hoặc trong một số cách khác. Macro sau, GetSheets, sẽ 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 và đặt chúng vào cột đầu tiên của sổ làm việc hiện tại, bắt đầu từ ô A1.

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

_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 (2274) á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: