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 sổ làm việc hiện tại, bắt đầu từ bất kỳ ô nào hiện đang được chọn.

Sub GetSheets()

Dim w As Worksheet     Dim iRow As Integer     Dim iCol As Integer

iRow = Selection.Row     iCol = Selection.Column     For Each w in Worksheets         Cells(iRow, iCol) = w.Name         iRow = iRow + 1     Next w End Sub

Nếu bạn muốn tạo mục lục thực sự trong đó tên trang thực sự là siêu liên kết đến trang tính, bạn có thể sửa đổi macro theo cách sau:

Sub MakeTOC()

Dim w As Worksheet     Dim iRow As Integer     Dim iCol As Integer     Dim sTemp As String

iRow = Selection.Row     iCol = Selection.Column     For Each w in Worksheets         Cells(iRow, iCol) = w.Name         sTemp = "'" & w.Name & "'!A1"

_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 (11679) áp dụng cho Microsoft Excel 2007, 2010, 2013 và 2016.

Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện menu cũ hơn của Excel tại đây: