[Hỏi] Tạo hyperlink tự động mục lục Sheet excel

Mình muốn tạo mục lục tự động trong excel thì làm ntn vậy các bạn. (Mình có 100 sheet, mình tìm trên mạng dùng code nhưng nó hiển thị cả đường link ở các sheet chi tiết khĩ preview, có cách nào làm mục lục tự động nhưng không hiển thị đường link đấy không, nhờ các bạn giúp. Mình đang dùng mã

[Visual Basic] 纯文本查看 复制代码

Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim M As Long
M = 1
With Me
.Columns(1).ClearContents
.Cells(1, 1) = "INDEX"
.Cells(1, 1).Name = "Index"
End With
For Each wSheet In Worksheets
If wSheet.Name <> Me.Name Then
M = M + 1
With wSheet
.Range("a1").Name = "Start" &wSheet.Index
.Hyperlinks.Add Anchor:=.Range("a1"),Address:="", SubAddress:="Index", TextToDisplay:=wSheet.Name
End With
Me.Hyperlinks.Add Anchor:=Me.Cells(M, 1),Address:="", SubAddress:="Start" & wSheet.Index,TextToDisplay:=wSheet.Name
End If
Next wSheet
End Sub 

[Visual Basic] 纯文本查看 复制代码

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

fubi gửi lúc 30/9/2015 14:58
[mw_shl_code=vb,true]Private Sub CreateTableOfContents()
    Dim wsSheet As Worksheet
    Dim ws As  ...

Mình không muốn hiển thị chữ quay về tại mỗi sheet thì làm như thế nào vì khi in ra nó hiển thị chữ đấy trên giấy

leminhthang1322 gửi lúc 30/9/2015 15:11
Mình không muốn hiển thị chữ quay về tại mỗi sheet thì làm như thế nào vì khi in ra ...

mình làm dc rồi, cám ơn bạn. Bạn biết làm tn để in nhiều sheet chỉ bằng 1 lệnh in không (ví dụ như in trang 2 của 1oo sheet ấy)

leminhthang1322 gửi lúc 30/9/2015 16:35
mình làm dc rồi, cám ơn bạn. Bạn biết làm tn để in nhiều sheet chỉ bằng 1 lệnh in k ...

http://xaydung360.vn/diendan/-ho ... xcel-17369-1-1.html