[已解决]创建表格目录超链接 出问题，提示引用有误， 有附件，请大侠帮忙

kidd1217

创建表格目录超链接 出问题，提示引用有误， 有附件，请大侠帮忙



不知道为什么 老是提示错误，


请大侠帮忙修改语句

最佳答案

月排行榜 / 总排行榜

爱疯

2013-12-27 11:29

Sub mu()
    Dim s%, Rng As Range, x

    With Sheets("目录")
        .Activate
        For i = 3 To Sheets.Count
            x = Sheets(i).Name
            Sheets(1).Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:="'" & x & "'!A1"
            .Cells(i, 1) = x
            .Cells(i, 2) = Sheets(x).Cells(4, 7)
            .Cells(i, 3) = Sheets(x).Cells(4, 9)
            .Cells(i, 4) = Sheets(x).Cells(5, 7)
            .Cells(i, 5) = Sheets(x).Cells(5, 9)
            .Cells(i, 6) = Sheets(x).Cells(4, 3)
            .Cells(i, 7) = Sheets(x).Cells(4, 5)
            .Cells(i, 8) = Sheets(x).Cells(5, 3)
            .Cells(i, 9) = Sheets(x).Cells(5, 5)
            .Cells(i, 10) = Sheets(x).Cells(2, 5)
            .Cells(i, 11) = Sheets(x).Cells(2, 3)
        Next
        .Range("b:iv").EntireColumn.ColumnWidth = 14
    End With
End Sub

跳转到最佳答案楼层

爱疯

Sub mu()
    Dim s%, Rng As Range, x

    With Sheets("目录")
        .Activate
        For i = 3 To Sheets.Count
            x = Sheets(i).Name
            Sheets(1).Hyperlinks.Add Anchor:=Cells(i, 1), Address:="", SubAddress:="'" & x & "'!A1"
            .Cells(i, 1) = x
            .Cells(i, 2) = Sheets(x).Cells(4, 7)
            .Cells(i, 3) = Sheets(x).Cells(4, 9)
            .Cells(i, 4) = Sheets(x).Cells(5, 7)
            .Cells(i, 5) = Sheets(x).Cells(5, 9)
            .Cells(i, 6) = Sheets(x).Cells(4, 3)
            .Cells(i, 7) = Sheets(x).Cells(4, 5)
            .Cells(i, 8) = Sheets(x).Cells(5, 3)
            .Cells(i, 9) = Sheets(x).Cells(5, 5)
            .Cells(i, 10) = Sheets(x).Cells(2, 5)
            .Cells(i, 11) = Sheets(x).Cells(2, 3)
        Next
        .Range("b:iv").EntireColumn.ColumnWidth = 14
    End With
End Sub

蓝粆

1. Option Explicit
   
2. Sub AutoGenerateHyperlinks()
   
3.     Dim i%, oRange As Range
   
4.     For i = 3 To Sheets.Count
   
5.         Set oRange = Cells(Selection.Row + i - 2, Selection.Column)
   
6.         oRange.Hyperlinks.Add Anchor:=oRange, Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name
   
7.     Next
   
8. End Sub

复制代码

选好单元格  运行