Làm cách nào để tạo mục lục cho tất cả các trang tính và cập nhật tự động?
Giả sử, bạn có một sổ làm việc chứa hàng trăm trang tính, để điều hướng đến một trang cụ thể trong số nhiều trang tính có thể khiến hầu hết chúng ta đau đầu. Trong trường hợp này, để tạo mục lục cho các trang tính này có thể giúp bạn chuyển đến trang tính nhất định một cách nhanh chóng và dễ dàng. Hướng dẫn này sẽ nói về cách tạo mục lục cho tất cả các trang tính và cập nhật bảng tự động khi chèn, xóa hoặc thay đổi tên trang tính.
Tạo mục lục cho tất cả các trang tính và cập nhật tự động bằng các công thức
Tạo mục lục cho tất cả các trang tính và cập nhật tự động bằng mã VBA
Tạo mục lục cho tất cả các trang tính và cập nhật tự động với một tính năng mạnh mẽ
Tạo mục lục cho tất cả các trang tính và cập nhật tự động bằng các công thức
Trong Excel, bạn có thể tạo mục lục bằng cách xác định tên phạm vi và tham chiếu tên trong công thức, vui lòng thực hiện theo các bước sau:
1. Chèn một trang tính mới trước tất cả các trang tính mà bạn muốn tạo mục lục và đổi tên nó khi bạn cần.
2. Sau đó nhấn vào Công thức > Xác định tên, xem ảnh chụp màn hình:
3. Trong Tên mới hộp thoại, chỉ định tên danh sách trang tính vào Họ tên , bạn có thể thay đổi nó thành của riêng bạn, sau đó nhập công thức này: = GET.WORKBOOK (1) & T (NOW ()) vào Đề cập đến hộp văn bản, xem ảnh chụp màn hình:
4. Sau đó nhấn vào OK để đóng hộp thoại.
5. Bây giờ, vui lòng chuyển đến trang tính mới nơi bạn muốn tạo mục lục, sau đó nhập công thức sau vào ô trống:
6. Và sau đó kéo chốt điền xuống các ô cho đến khi các ô trống được hiển thị và tất cả các tên trang tính (bao gồm cả các trang tính ẩn) 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:
7. Sau đó, bạn nên tạo siêu liên kết cho nội dung bảng, vui lòng sử dụng công thức dưới đây:
8. Bây giờ, khi nhấp vào văn bản siêu liên kết, nó sẽ chuyển đến trang tính đó cùng một lúc. Và nếu bạn chèn một trang tính mới, xóa một trang tính hoặc thay đổi tên trang tính, nội dung bảng sẽ được cập nhật tự động.
- 1. Với phương pháp này, tất cả các trang tính ẩn cũng được hiển thị trong mục lục.
- 2. Bạn nên lưu tệp dưới dạng Sổ làm việc hỗ trợ macro Excel theo cách này, khi bạn mở tệp này vào lần sau, các công thức có thể hoạt động tốt.
Tạo mục lục cho tất cả các trang tính và cập nhật tự động bằng mã VBA
Đôi khi, bạn không cần hiển thị các trang tính ẩn trong mục lục. Để giải quyết vấn đề này, mã VBA sau đây có thể giúp bạn.
1. Chèn một trang tính mới trước tất cả các trang tính mà bạn muốn tạo mục lục và đổi tên nó khi bạn cần. Sau đó, nhấp chuột phải vào tab trang tính và chọn Mã Chế độ xem từ menu ngữ cảnh, xem ảnh chụp màn hình:
2. Trong mở Microsoft Visual Basic cho các ứng dụng cửa sổ, sao chép và dán mã dưới đây vào cửa sổ mã trang tính:
Mã VBA: Tạo mục lục cho tất cả các trang tính và cập nhật tự động
Private Sub Worksheet_Activate()
‘Updateby ExtendOffice
Dim xWsh As Worksheet
Dim xWshs As Worksheets
Dim xShowHinddenWorkSheet As Boolean
Dim xI As Long
Dim xRg As Range
Dim xStrTitle, xStrTCHeader, xStrWShName As String
xShowHinddenWorkSheet = False 'Change this to True to display the hidden sheets as you need
xStrTitle = "A1"
xStrTCHeader = "A3"
On Error Resume Next
Application.ScreenUpdating = False
Me.Cells.Clear
Me.Range(xStrTitle).Font.Bold = True
Me.Range(xStrTitle).Font.Size = Me.Range(xStrTitle).Font.Size + 2
Me.Range(xStrTitle).Value = "Table of Contents"
Me.Range(xStrTCHeader).Value = "No."
Me.Range(xStrTCHeader).Offset(0, 1).Value = "Sheet Name"
Me.Range(xStrTCHeader).Resize(1, 2).Font.Bold = True
xStrWShName = Me.Name
xI = 1
For Each xWsh In Application.ActiveWorkbook.Worksheets
If xWsh.Name <> xStrWShName Then
If (xWsh.Visible = xlSheetVisible) Or xShowHinddenWorkSheet Then
Me.Hyperlinks.Add Anchor:=Me.Range(xStrTCHeader).Offset(xI, 1), Address:="", SubAddress:="'" & xWsh.Name & "'!A1", TextToDisplay:=xWsh.Name
Me.Range(xStrTCHeader).Offset(xI).Value = xI
xI = xI + 1
End If
End If
Next
Application.ScreenUpdating = True
End Sub
3. Sau đó nhấn F5 để chạy mã này và nội dung bảng được tạo ngay lập tức trong trang tính mới, tất cả các trang tính ẩn sẽ không hiển thị trong nội dung bảng, xem ảnh chụp màn hình:
4. Bây giờ, khi xóa, chèn hoặc đổi tên trang tính, nội dung bảng sẽ được cập nhật động.
Tạo mục lục cho tất cả các trang tính và cập nhật tự động với một tính năng mạnh mẽ
Nếu bạn có Kutools cho ExcelCủa nó, Ngăn điều hướng có thể giúp bạn liệt kê tất cả tên trang tính vào một ngăn bên trái theo chiều dọc và điều hướng đến trang tính cụ thể một cách nhanh chóng và dễ dàng.
Sau khi cài đặt Kutools cho Excel, hãy làm như sau:
1. Nhấp chuột Kutools > THÔNG TIN, xem ảnh chụp màn hình:
2. Trong phần mở rộng THÔNG TIN pane, click Workbook & Sheet biểu tượng, tất cả các sổ làm việc đã mở được liệt kê trong hộp danh sách trên cùng và tất cả các trang tính có thể nhìn thấy trong sổ làm việc được hiển thị trong hộp danh sách dưới cùng, xem ảnh chụp màn hình:
3. Và bây giờ, bạn có thể truy cập trang tính chỉ bằng cách nhấp vào tên trang tính từ khung bên trái. Và khi bạn xóa, chèn hoặc đổi tên trang tính, danh sách trang tính trong ngăn sẽ được cập nhật động.
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excel và trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!