Nhờ tạo mục lục động!

[thang24]

Anh chị nào chỉ jup cách tạo mục lục tự động trong excel 2007 (ko pải 2003 nhé)

 

[vuminh1601]

Bạn gõ vào tìm kiếm ra ngay ấy mà. sau đó copy code về
Tờ cũng đã tìm được trong GPE

Anh chị nào chỉ jup cách tạo mục lục tự động trong excel 2007 (ko pải 2003 nhé)

Tôi tìm trong GPE giúp bạn đây:

Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim M As Long
M = 20                      'Cai nay de vi tri tao index don 10
    With Me
        .Columns(1).ClearContents
        .Cells(19, 1) = "INDEX"              'Cai nay de vi tri tao  index
        .Cells(20, 1).Name = "Index"        'Cai nay de khi back lai
    End With
    
    For Each wSheet In Worksheets
        If wSheet.Name <> Me.Name Then
        M = M + 1
        With wSheet
            .Range("a10").Name = "Start" & wSheet.Index
            .Hyperlinks.Add Anchor:=.Range("a1"), Address:="",  SubAddress:="Index", TextToDisplay:="Back to Index"
        End With
            Me.Hyperlinks.Add Anchor:=Me.Cells(M, 1), Address:="",  SubAddress:="Start" & wSheet.Index, TextToDisplay:=wSheet.Name
        End If
        Next wSheet
End Sub