Giả sử, bạn có một sổ làm việc với nhiều trang tính, bây giờ bạn muốn liệt kê tất cả các tên trang tính trong sổ làm việc hiện tại, có phương pháp nào nhanh chóng để tạo danh sách các tên trang tính trong Excel mà không cần gõ từng tên một không? Hướng dẫn này đưa ra hướng dẫn về cách liệt kê tên trang tính trong Excel.

Nhận danh sách tất cả các tên trang tính từ sổ làm việc động với các công thức

Nhận danh sách tất cả các tên trang tính từ sổ làm việc với một tính năng hữu ích

Nhận danh sách tất cả các tên trang tính từ sổ làm việc với mã VBA

Nhận danh sách tất cả các tên trang tính từ sổ làm việc động với các công thức

Trong Excel, bạn có thể xác định tên phạm vi, sau đó áp dụng công thức để liệt kê tất cả tên trang tính từ sổ làm việc hiện tại, vui lòng thực hiện theo các bước sau:

1. Đi đến nhấp chuột Công thức > Người quản lý tên, xem ảnh chụp màn hình:

2. Trong Người quản lý tên hộp thoại, nhấn Mới nút, xem ảnh chụp màn hình:

3. Trong cửa sổ bật ra Tên mới hộp thoại, chỉ định tên vào Họ tên hộp văn bản, sau đó sao chép công thức bên dưới vào Đề cập đến hộp văn bản, xem ảnh chụp màn hình:

=GET.WORKBOOK(1)&T(NOW())

4. Sau đó nhấn vào OK > Đóng để đóng hộp thoại, bây giờ, hãy chuyển đến trang tính mà bạn muốn liệt kê tất cả các tên trang tính, rồi nhập công thức sau vào ô trống:

=IFERROR(INDEX(MID(Sheetnames,FIND("]",Sheetnames)+1,255),ROWS($A$2:A2)),"")

Chú thích: Trong công thức trên, Tên trang tính là tên phạm vi mà bạn được đặt ở bước 3.

5. Và sau đó kéo chốt điền xuống các ô khi các ô trống được hiển thị và bây giờ, tất cả các tên trang tính của sổ làm việc hiện tại đã được liệt kê như hình minh họa bên dưới:

6. Nếu bạn muốn tạo siêu liên kết cho mỗi trang tính, vui lòng sử dụng công thức dưới đây:

=HYPERLINK("#'"&A2&"'!A1","Go To Sheet")

Chú thích: Trong công thức trên, A2 là ô chứa tên trang tính và A1 là ô mà bạn muốn đặt ô hiện hoạt. Ví dụ: nếu bạn bấm vào văn bản siêu kết nối, nó sẽ định vị ô A1 của trang tính.

7. Bây giờ, khi bạn nhấp vào văn bản siêu liên kết, nó sẽ đưa bạn đến trang tính đó, hãy xem bản trình diễn bên dưới:

Nhận danh sách tất cả các tên trang tính từ sổ làm việc với một tính năng hữu ích

Với Tạo danh sách tên trang tính tiện ích của phần bổ trợ bên thứ ba Kutools cho Excel, bạn có thể tạo danh sách tên trang tính bằng một cú nhấp chuột và liên kết đến từng trang tính bằng siêu liên kết.

Sau khi cài đặt Kutools cho Excel, hãy làm như sau:

1. Nhấp chuột Kutools Plus > Bảng > Tạo danh sách tên trang tính, xem ảnh chụp màn hình:

2. Trong Tạo danh sách tên trang tính hộp thoại, vui lòng chỉ định các cài đặt sau:

(1.) Chọn kiểu chỉ mục trang tính bạn muốn, bạn có thể tạo tên trang tính bằng siêu liên kết hoặc bằng các nút macro. (2.) Nhập tên trang tính cho chỉ mục trang tính. (3.) Chỉ định vị trí của chỉ mục trang tính. (4.) Chỉ định số lượng cột bạn muốn sử dụng trong trang tính mới để hiển thị tên trang tính.

3. Sau khi hoàn tất cài đặt, sau đó nhấp vào OK. Tất cả các tên trang tính đã được liệt kê với các liên kết trong một trang tính mới của sổ làm việc hiện tại. Xem ảnh chụp màn hình:

tên trang tính có siêu liên kết	tên trang tính với các nút macro

Nhận danh sách tất cả các tên trang tính từ sổ làm việc với mã VBA

1. Giữ ALT + F11 chìa khóa và nó mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán macro sau vào Mô-đun Cửa sổ.

VBA: Liệt kê tất cả các tên trang tính có siêu liên kết trong một trang tính mới:

Sub CreateIndex()
'updateby Extendoffice
    Dim xAlerts As Boolean
    Dim I  As Long
    Dim xShtIndex As Worksheet
    Dim xSht As Variant
    xAlerts = Application.DisplayAlerts
    Application.DisplayAlerts = False
    On Error Resume Next
    Sheets("Index").Delete
    On Error GoTo 0
    Set xShtIndex = Sheets.Add(Sheets(1))
    xShtIndex.Name = "Index"
    I = 1
    Cells(1, 1).Value = "INDEX"
    For Each xSht In ThisWorkbook.Sheets
        If xSht.Name <> "Index" Then
            I = I + 1
            xShtIndex.Hyperlinks.Add Cells(I, 1), "", "'" & xSht.Name & "'!A1", , xSht.Name
        End If
    Next
    Application.DisplayAlerts = xAlerts
End Sub

3. Nhấn nút F5 key để chạy macro này. Bây giờ tất cả tên trang tính trong sổ làm việc đang hoạt động đã được liệt kê vào một trang tính mới có tên là Chỉ mục và tên trang tính cũng được liên kết với từng trang tính, xem ảnh chụp màn hình:

Các bài liên quan