• TRANG CHỦ
  • THỦ THUẬT
    • Thủ thuật máy tính
    • Thủ thuật văn phòng
    • Thủ thuật Internet
    • Thủ thuật điện thoại
  • CHIA SẺ PHẦN MỀM
  • DIỆT VIRUS
  • CÔNG NGHỆ SỐ
  • THỦ THUẬT OFFICE
  • HỖ TRỢ
  • DỊCH VỤ
    • Sửa máy tính tại nhà

Blog thủ thuật máy tính - Thủ thuật windows

Blog chia sẻ thủ thuật máy tính và thủ thuật windows, lưu lại những kiến thức trong quá trình mình làm việc

You are here: Home / Thủ thuật Office / 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 Excel

March 16, 2016 By Chu Quang

Trong Excel, việc di chuyển giữa một vài Sheet khá dễ dàng và không mất nhiều thời gian đối với người dùng. Tuy nhiên, trong trường hợp Workbook có nhiều Sheet thì thực sự rất khó và tốn thời gian để chọn Sheet làm việc. Và có 1 cách sử dụng phím tắt giúp người dùng di chuyển qua lại giữa các Sheet đó là: Ctrl-Page Up (Tiến lên 1 Sheet, Sheet 1 sang Sheet 2) và Ctrl-Page Down (Lùi về 1 Sheet, Sheet 3 về Sheet 2).

Một cách khác được khá nhiều người sử dụng đó là dùng 1 Sheet chính và tạo danh mục các Sheet dạng mục lục trong Sheet chính và liên kết đến đây khi click vào. Đây là cách giúp người sử dụng làm việc dễ dàng hơn cũng như di chuyển giữa các Sheet hay quay lại Sheet chính. Tuy nhiên, mọi người vẫn làm công việc này bằng phương pháp thủ công. Cuuhotinhoc.com sẽ giới thiệu với các bạn 1 phương pháp nhanh chóng thực hiện công việc này, đó là sử dụng VBA.

Tao muc luc danh sach cac sheet trong excel

Chức năng của hàm này như sau:

  • Kiểm tra Sheet mục lục đã có chưa, trường hợp chưa có thì sẽ tạo mới và được chèn vào vị trí đầu tiên
  •  Thiết lập độ rộng của cột
  • Đánh số thứ tự cho các ô và chèn tên Sheet vào các ô
  • Chèn liên kết tương ứng đến các Sheet
  • Chèn một liên kết để quay lại Sheet Mucluc
  • Định dạng các vùng dữ liệu

Để tạo Macro này, các bạn thực hiện các bước sau:

1. Khởi động Microsoft Excel.

2. Nhấn tổ hợp phím ALT + F11 để khởi động Visual Basic Editor. Trong Menu Insert chọn Module

Tao muc luc danh sach cac sheet trong excel

3. Copy đoạn mã sau vào:

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

4. Chạy Marco bạn vừa tạo. Như vậy, bạn đã có 1 danh sách chứa tất cả các Sheet có trên Workbook hiện tại và được đưa vào trong Sheet Mucluc. Bạn có thể dễ dàng di chuyển tới bất kỳ Sheet nào để làm việc.

Hi vọng bài viết Tạo mục lục danh sách các Sheet trong Excel giúp ích cho các bạn!

5/5 - (1 vote)

Nội dung

  1. Bài viết liên quan:

Bài viết liên quan:

  • Chi tiết cách in ấn tài liệu trong word 2003, 2010, 2013,…
  • Chatbots trong ngành công nghiệp trò chơi
  • Các Bước Kiểm Tra Khi Mua Điện Thoại Cũ
  • Asus phát triển tài năng esports địa phương với Học viện ROG…
  • Cách sửa laptop bị lỗi màn hình xanh

Filed Under: Thủ thuật Office Tagged With: Office, Thủ thuật Excel, thủ thuật văn phòng

Tìm kiếm

Newbie nên đọc

  • Dạy photoshop cơ bản
  • Thủ thuật Office
  • Tạo website đơn giản

Bài viết nổi bật

  • TOP 5+ Mẹo tăng tốc máy tính bị lag khi chơi game

    TOP 5+ Mẹo tăng tốc máy tính bị lag khi chơi game

  • Cách giúp máy tính không bị lag khi chơi game online

    Cách giúp máy tính không bị lag khi chơi game online

  • Cách sửa laptop bị lỗi màn hình xanh

    Cách sửa laptop bị lỗi màn hình xanh

  • Cách sử dụng DNS Cloudflare 1.1.1.1 để truy cập các trang web bị chặn

    Cách sử dụng DNS Cloudflare 1.1.1.1 để truy cập các trang web bị chặn

  • Những thủ thuật máy tính đơn giản và hữu ích

    Những thủ thuật máy tính đơn giản và hữu ích

  • Hướng dẫn cách tạo USB cài đặt Windows 10

    Hướng dẫn cách tạo USB cài đặt Windows 10

  • Tạo USB cài đặt Win 10 bằng Media Creation Tool

    Tạo USB cài đặt Win 10 bằng Media Creation Tool

Theo dõi mạng xã hội

Liên hệ với tôi

Nếu các bạn gặp khó khăn gì trong quá trình làm việc hãy liên hệ với tôi theo email:

tranthanhchinh.hd@gmail.com

Những gì tôi biết tôi sẽ hướng dẫn tận tình. Cảm ơn các bạn đã ủng hộ

Blog bạn bè

Blog công nghệ
Tin học AZ
Mẹo vặt đời sống

Đôi lời về tác giả

Blog chia sẻ thủ thuật máy tính - Thủ thuật windows

Mình tên là Thanh Chính đây là nơi mình viết lại những kinh nghiệm làm việc, những thủ thuật máy tính khi máy tính phát sinh một sự cố, cũng như là một nơi lưu trữ lại các kiến thức làm việc của mình để khi cần có thể lấy ra và áp dụng được luôn, Mong các bạn có thể đóng góp thêm cho blog của mình.

Copyright © 2023 · Going Green Pro Theme on Genesis Framework · WordPress · Log in