Tạo mục lục danh sách các Sheet trong Excel

Tạo mục lục danh sách các Sheet trong ExcelTạo mục lục danh sách các Sheet trong ExcelTạo mục lục danh sách các Sheet trong ExcelTạo mục lục danh sách các Sheet trong ExcelTạo mục lục danh sách các Sheet trong ExcelTạo mục lục danh sách các Sheet trong ExcelTạo mục lục danh sách các Sheet trong ExcelTạo mục lục danh sách các Sheet trong ExcelTạo mục lục danh sách các Sheet trong ExcelTạo mục lục danh sách các Sheet trong ExcelTạo mục lục danh sách các Sheet trong ExcelTạo mục lục danh sách các Sheet trong ExcelTạo mục lục danh sách các Sheet trong ExcelTạo mục lục danh sách các Sheet trong ExcelTạo mục lục danh sách các Sheet trong ExcelTạo mục lục danh sách các Sheet trong ExcelTạo mục lục danh sách các Sheet trong ExcelTạo mục lục danh sách các Sheet trong ExcelTạo mục lục danh sách các Sheet trong Excel

Tạo mục lục danh sách Sheet Excel Bảng tính Excel bạn có nhiều sheet, bạn muốn quản lý chúng cách khoa học để cần thiết nhanh chóng mở Để quản lý sheet nhanh chóng đơn giản bạn cần tạo mục lục danh sách sheet file Excel Dưới giới thiệu đến bạn hai cách tạo mục lục danh sách sheet Excel Cách 1: Tạo mục lục danh sách sheet thủ công Bước 1: Tạo sheet nên đặt đầu sheet khác, bạn tạo danh sách tên sheet theo thứ tự mà bạn muốn Bước 2: Chọn tên sheet danh sách bạn vừa tạo, nhấn chuột phải chọn Hyperlink (hoặc tổ hợp phím Ctrl + K) Bước 3: Xuất hộp thoại Insert Hyperlink, bạn chọn Place in This Document phần Link to, sau bạn chọn đến tên sheet bạn muốn dẫn đến nhấn OK để hoàn tất Thực bước tương tự với tên sheet dưới, cuối bạn mục ục danh sách sheet Excel Các bạn cần nhấn chuột vào tên sheet sheet bạn chọn mở Nhưng cách bạn sử dụng với file Excel có sheet, có nhiều sheet bạn nên thực cách Cách 2: Sử dụng VBA Excel Bước 1: Trên file Excel cần tạo mục lục danh sách sheet 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 bạn chọn Insert -> Module Bước 3: Copy toàn đoạn code 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 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 = 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 = 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 + End If Next ws Set xlSheet = Nothing End Sub Bước 4: Sau bạn nhấn chọn Run -> Run Sub phím F5 để chạy chương trình Lúc file Excel bạn có sheet Mucluc mục lục danh sách sheet Excel Các bạn muốn mở sheet bạn cần nhấn trỏ chuột vào tên sheet danh sách sheet Như với hai cách tạo mục lục danh sách sheet Excel, hi vọng bạn áp dụng dễ dàng với file Excel Chúc bạn thành công! ... Lúc file Excel bạn có sheet Mucluc mục lục danh sách sheet Excel Các bạn muốn mở sheet bạn cần nhấn trỏ chuột vào tên sheet danh sách sheet Như với hai cách tạo mục lục danh sách sheet Excel, hi... Nhưng cách bạn sử dụng với file Excel có sheet, có nhiều sheet bạn nên thực cách Cách 2: Sử dụng VBA Excel Bước 1: Trên file Excel cần tạo mục lục danh sách sheet bạn nhấn tổ hợp phím Alt +... tên sheet bạn muốn dẫn đến nhấn OK để hoàn tất Thực bước tương tự với tên sheet dưới, cuối bạn mục ục danh sách sheet Excel Các bạn cần nhấn chuột vào tên sheet sheet bạn chọn mở Nhưng cách