VBA目录链接小问题，帮忙看下

llxyxll

删除任意一个工作表，目录名最下面就会重复，帮忙改一下代码，能让目录名不重复，超链接不要下划线。谢谢

望帝春心

1. Private Sub CommandButton1_Click()
   
2.     Dim i As Integer
   
3.     Dim x As Worksheet
   
4.     Sheets(1).Columns(1).ClearContents
   
5.     Set x = Sheets(1)
   
6.     x.Name = "目录"
   
7.     Debug.Print Worksheets.Count
   
8.     For i = 2 To Worksheets.Count
   
9.         With Worksheets(i)
   
10.             x.Cells(i, 1) = .Name
    
11.             .Hyperlinks.Add anchor:=x.Cells(i, 1), Address:="", SubAddress:="'" & .Name & "'!a1"
    
12.            ' .Hyperlinks.Add anchor:=Sheets(i).[h1], Address:="", SubAddress:="目录!a1", TextToDisplay:="返回"
    
13.         End With
    
14.     Next
    
15.     Sheets(1).Columns(1).Font.Underline = xlUnderlineStyleNone
    
16. End Sub

复制代码

加了两句

llxyxll

望帝春心 发表于 2017-2-3 15:43
加了两句

谢谢你！新年快乐！

望帝春心

llxyxll 发表于 2017-2-3 18:04
谢谢你！新年快乐！

不客气，有帮助就评下最佳吧