Excel提取工作表名并建立超连接目录

◆打开Excel工作簿文档，按下ALT+F11组合键，打开VBA编辑器窗口

◆单击菜单栏上的“插入”——“模块”

◆将下面的代码拷贝到模块文本框中

Sub AutoGener()
    Dim nIndex As Integer
    Dim oRange As Range
    For nIndex = 2 To Sheets.Count
        Set oRange = Cells(Selection.Row + nIndex - 2, Selection.Column)
        oRange.Hyperlinks.Add Anchor:=oRange, Address:="", SubAddress:=Sheets(nIndex).Name &amp; "!A1", TextToDisplay:=Sheets(nIndex).Name
    Next
End Sub

Sub AutoGener()

Dim nIndex As Integer

Dim oRange As Range

For nIndex = 2 To Sheets.Count

Set oRange = Cells(Selection.Row + nIndex - 2, Selection.Column)

oRange.Hyperlinks.Add Anchor:=oRange, Address:="", SubAddress:=Sheets(nIndex).Name & "!A1", TextToDisplay:=Sheets(nIndex).Name

End Sub

◆关闭保存后返回excel

◆插入一个按钮，然后在按钮上点右键->指定宏->AutoGener

◆然后选中一个单元格点击刚刚添加的按钮，即可生成带链接的目录

此条目发表在应用工具软件分类目录，贴了excel标签。将固定链接加入收藏夹。

Excel提取工作表名并建立超连接目录

关于稚子

发表回复取消回复

归档

功能

Excel提取工作表名并建立超连接目录

关于稚子

发表回复 取消回复

归档

功能

发表回复取消回复