Truy xuất tên trang tính (Microsoft Excel)
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: