Cách thêm sheet excel 2010

Bảng tính Excel của bạn có nhiều sheet, các bạn muốn quản lý chúng một cách khoa học nhất để khi cần thiết có thể nhanh chóng mở ra. Để quản lý các sheet nhanh chóng và đơn giản nhất thì các bạn cần tạo mục lục danh sách các sheet trong file Excel.

Dưới đây giới thiệu đến các bạn hai cách tạo mục lục danh sách các sheet trong Excel.

Cách 1: Tạo mục lục danh sách các sheet thủ công.

Bước 1: Tạo một sheet mới nên đặt ở đầu các sheet khác, tại đây các bạn tạo danh sách tên các sheet theo thứ tự bất kỳ mà bạn muốn.

Bước 2: Chọn tên sheet đầu tiên trong danh sách bạn vừa tạo, nhấn chuột phải và chọn Hyperlink [hoặc tổ hợp phím Ctrl + K].

Bước 3: Xuất hiện hộp thoại Insert Hyperlink, các bạn chọn Place in This Document trong phần Link to, sau đó các bạn chọn đến tên sheet các bạn muốn dẫn đến và nhấn OK để hoàn tất.

Thực hiện các bước tương tự với các tên sheet dưới, cuối cùng bạn sẽ được mục ục danh sách các sheet trong Excel. Các bạn chỉ cần nhấn chuột vào tên sheet thì sheet bạn chọn sẽ được mở.

Nhưng đây là cách các bạn có thể sử dụng với những file Excel có ít sheet, nếu có nhiều sheet các bạn nên thực hiện cách dưới đây.

Cách 2: Sử dụng VBA trong Excel.

Bước 1: Trên file Excel cần tạo mục lục danh sách các sheet các bạn nhấn tổ hợp phím Alt + F11 để mở Visual Basic Editor.

Bước 2: Trên cửa sổ Microsoft Visual Basic for Applications các bạn chọn Insert -> Module.

Bước 3: Copy toàn bộ đoạn code dưới đây và paste vào khung Module.

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: Sau đó các bạn nhấn chọn Run -> Run Sub hoặc phím F5 để chạy chương trình.

Lúc này trên file Excel của bạn sẽ có một sheet Mucluc và trong đó là mục lục danh sách các sheet trong Excel. Các bạn muốn mở sheet nào thì các bạn chỉ cần nhấn con trỏ chuột vào tên sheet đó trong danh sách các sheet.

Như vậy với hai cách tạo mục lục danh sách các sheet trong Excel, hi vọng các bạn có thể áp dụng dễ dàng với file Excel của mình. Chúc các bạn thành công!

Tags: Mục Lục Tự Động

Tham khảo thêm

• Cách tạo mục lục tự động trong Word 2016 đơn giản, nhanh chóng
• Cách làm mục lục tự động trong Word 2013, 2016
• Hướng dẫn cách tạo mục lục tự động trong Word nhanh chóng 2022
• Cách làm mục lục trong Word 2016
• Cách tạo mục lục tự động trong Word 2016
• Tạo mục lục tự động trong Word 2007, 2010
• Cách tạo mục lục tự động trong Word 2013
• Hướng dẫn tạo mục lục tự động trong Word

Bài viết liên quan

Lọc dữ liệu không trùng nhau trong Excel - Lọc các giá trị duy nhất trong Excel

Cách chia cột trong Excel

Cách sửa lỗi Excel không mở được tệp vì sai định dạng, phần mở rộng không hợp lệ

Cách chèn Excel vào CAD nhanh và chuẩn

Hàm HYPGEOM.DIST - Hàm trả về phân bố siêu bội trong Excel

Tìm và xóa dữ liệu trùng lặp trong Excel

Bình luận [4]

1. Nguyễn Nhật Linhon July 31, 2016

   Rất hay. Tạo 1 cái add in có thể tìm kiếm tên sheet có lẽ hay hơn. Như vậy để tạo phụ lục cho file excel khoảng 100 sheet cũng mệt.

2. Hươngon June 26, 2017

   Khi đi được đến các sheet, mà có quá nhiều sheet, muốn quay lại Danh mục đầu tiên thì lại làm thủ công từng liên kết quay lại liên kết Danh mục đầu tiên ạ?

3. Thanh Trongon September 12, 2017

   Cái này là tạo chỉ mục. Chưa phải là mục lục. Tôi cũng đang cần cái mục lục nhưng chưa thấy bài viết nào. Ai tìm thấy xin chỉ giúp. Cám ơn