Tìm bài "Tạo mục lục tự động" (2 người xem)

[hangsf2]

Em nhớ là đã đọc 1 bài tạo mục lục tự động cho 1 file excel có nhiều sheet, nhưng em tìm mãi không ra, anh chị giúp em tìm với. Em cảm ơn nhiều.

 

[lsxinh]

Chắc bạn tìm bài này!
http://www.giaiphapexcel.com/forum/showthread.php?t=8798
Bạn vào Mục tìm kiếm, gõ vào "Tạo mục lục Tự động" vào phần tìm với Google.
hy vọng đúng cái bạn tìm!

 

[tedaynui]

Em nhớ là đã đọc 1 bài tạo mục lục tự động cho 1 file excel có nhiều sheet, nhưng em tìm mãi không ra, anh chị giúp em tìm với. Em cảm ơn nhiều.

Bạn tìm với từ khoá "Chỉ mục" xem, đúng là có rất nhiều đấy
Một trong những Link đó.

TDN

 

[ndu96081631]

Bạn tìm với từ khoá "Chỉ mục" xem, đúng là có rất nhiều đấy
Một trong những Link đó.

TDN

Dựa trên kết quả trong file của thầy Phước, tôi nghĩ code thế này sẽ ngắn gọn hơn mà không cần phải khai báo quá nhiều biến

Sub TaoChiMuc()
  Dim Sh As Worksheet, i As Long
  With Sheets("Index")
    .Range("B2:IV16").ClearContents
    For Each Sh In Worksheets
      If Sh.Name <> "Index" Then
        .Hyperlinks.Add Anchor:=.Range("B2")((i Mod 15) + 1, 2 * (Int(i / 15) + 1) - 1), Address:= _
        "", SubAddress:="'" & Sh.Name & "'!A1", TextToDisplay:=Sh.Name
        i = i + 1
      End If
    Next Sh
  End With
End Sub

Yêu cầu: Sheet đặt chỉ mục phải có tên là Index (nếu tên khác thì sửa lại trong code)