Hướng dẫn tạo mục lục liệt kê các Sheet trong Excel

16/01/2025

Nội dung bài viết

Khi làm việc với nhiều sheet trong Excel, việc quản lý chúng một cách khoa học sẽ giúp bạn tiết kiệm thời gian và nâng cao hiệu suất. Tạo một mục lục danh sách các sheet không chỉ giúp bạn dễ dàng theo dõi mà còn cho phép truy cập nhanh chóng khi cần, mang lại sự tiện lợi và hiệu quả tối ưu.

Dưới đây là hai phương pháp đơn giản và hiệu quả để tạo mục lục danh sách các sheet trong Excel.

Phương pháp 1: Tạo mục lục danh sách các sheet theo cách thủ công.

Bước 1: Tạo một sheet mới đặt ở vị trí đầu tiên, sau đó liệt kê tên các sheet theo thứ tự mong muốn. Đây sẽ là nền tảng để xây dựng mục lục.

Bước 2: Chọn tên sheet đầu tiên trong danh sách, nhấn chuột phải và chọn Hyperlink (hoặc sử dụng tổ hợp phím Ctrl + K) để bắt đầu liên kết.

Bước 3: Trong hộp thoại Insert Hyperlink, chọn Place in This Document tại mục Link to, sau đó chọn tên sheet bạn muốn liên kết và nhấn OK để hoàn thành.

Lặp lại các bước trên cho các sheet còn lại. Khi hoàn thành, bạn sẽ có một mục lục chuyên nghiệp, chỉ cần nhấp vào tên sheet để chuyển đến sheet tương ứng một cách nhanh chóng và tiện lợi.

Tuy nhiên, phương pháp này phù hợp với file Excel có ít sheet. Đối với file chứa nhiều sheet, bạn nên áp dụng cách tiếp theo để đạt hiệu quả tối ưu.

Phương pháp 2: Tận dụng VBA trong Excel để tạo mục lục tự động.

Bước 1: Mở file Excel cần tạo mục lục, nhấn tổ hợp phím Alt + F11 để khởi động Visual Basic Editor.

Bước 2: Trong cửa sổ Microsoft Visual Basic for Applications, chọn Insert -> Module để bắt đầu tạo mã lệnh.

Bước 3: Sao chép toàn bộ đoạn mã code được cung cấp và dán vào khung Module trong cửa sổ VBA.

Private Sub CreateTableOfContents()
Dim wsSheet As Worksheet
Dim ws As Worksheet
Dim Counter As Long
On Error Resume Next
Set wsSheet = Sheets("Mucluc")
'Kiem tra su ton tai cua Sheet
On Error GoTo 0
If wsSheet Is Nothing Then
'Neu chua co thi them vao vi tri dau tien cua Workbook
Set wsSheet = ActiveWorkbook.Sheets.Add(Before:=Worksheets(1))
wsSheet.Name = "Mucluc"
End If
With wsSheet
.Cells(2, 1) = "DANH SACH CAC SHEET"
.Cells(2, 1).Name = "Index"
.Cells(4, 1).Value = "STT"
.Cells(4, 2).Value = "Ten Sheet"
End With
'Merge Cell
With Range("A2:B2")
.Merge
.HorizontalAlignment = xlCenter
.Font.Bold = True
End With
'Set ColumnWidth
With Columns("A:A")
.ColumnWidth = 8
.HorizontalAlignment = xlCenter
End With
With Range("A4")
.HorizontalAlignment = xlCenter
.Font.Bold = True
End With
Columns("B:B").ColumnWidth = 30
With Range("B4")
.HorizontalAlignment = xlCenter
.Font.Bold = True
End With
Counter = 1
For Each ws In Worksheets
If ws.Name <> wsSheet.Name Then
'Gan gia tri cot thu tu
wsSheet.Cells(Counter + 4, 1).Value = Counter
'Tao lien ket
wsSheet.Hyperlinks.Add Anchor:=wsSheet.Cells(Counter + 4, 2), _
Address:="", _
SubAddress:=ws.Name & "!A1", _
ScreenTip:=ws.Name, _
TextToDisplay:=ws.Name
'Them nut Quay ve Sheet Muc luc tai moi Sheet
With ws
.Hyperlinks.Add Anchor:=.Range("H1"), Address:="", SubAddress:="Index", TextToDisplay:="Quay ve"
End With
Counter = Counter + 1
End If
Next ws
Set xlSheet = Nothing
End Sub

Bước 4: Nhấn chọn Run -> Run Sub hoặc sử dụng phím F5 để thực thi chương trình.

Ngay lập tức, một sheet mới có tên Mucluc sẽ xuất hiện, chứa danh sách mục lục các sheet trong file Excel. Để mở bất kỳ sheet nào, chỉ cần nhấp chuột vào tên sheet tương ứng trong danh sách.

Với hai phương pháp tạo mục lục danh sách các sheet trong Excel, hy vọng bạn có thể áp dụng linh hoạt và hiệu quả cho công việc của mình. Chúc bạn thành công!

Du lịch

Ẩm thực

Khám phá

Đi Phượt

Vẻ đẹp Việt Nam

Chuyến đi