请教老师，这本书 198页 的为工作表建立目录 问题

522971384

    Hyperlinks.Add后面的anchor，address,subaddress，textdisplay几个参数不明白，网上也查不好，F1帮助文件很有限，麻烦解答一下！这是源程序：


Sub mulu()
    MsgBox "下面将为工作薄中所有工作表建立目录!"
    Rows("2:65536").ClearContents                    '清除工作表中原有数据
    Dim sht As Worksheet, irow As Integer
    irow = 2                                         '在第2行写入第一条记录
    For Each sht In Worksheets                       '遍历工作表
        Cells(irow, "A").Value = irow - 1            '写入序号
        '写入工作表名，并建立超链接
        ActiveSheet.Hyperlinks.Add Anchor:=Cells(irow, "B"), Address:="", _
             SubAddress:="'" & sht.Name & "'!A1", TextToDisplay:=sht.Name
        irow = irow + 1                              '行号加1
    Next
End Sub

grf1973

ActiveSheet.Hyperlinks.Add  添加超链接
Anchor:=Cells(irow, "B"),    超链接所处的单元格
Address:="",           第一地址（工作簿）
SubAddress:="'" & sht.Name & "'!A1"  第二地址（工作表）
TextToDisplay:=sht.Name    超链接显示的文字内容

522971384

grf1973 发表于 2013-4-12 13:53
ActiveSheet.Hyperlinks.Add  添加超链接
Anchor:=Cells(irow, "B"),    超链接所处的单元格
Address:= ...

非常感谢你，弄明白了这几个名词，进一步的：
SubAddress:="'" & sht.Name & "'!A1"  第二地址（工作表）
  麻烦你帮我解答一下这句代码

grf1973

SubAddress:="'" & sht.Name & "'!A1"  表示工作表"sht.Name"的A1单元格。跨工作表引用都是这么写的。

suqji

留座以示关注