【如何在excel中为多个工作表创建超链接目录?】
VBA就可以轻松解决的。
我贴一下代码,你甚至都不需要改应该就可以用的。
我在注释里也写的很清楚了,如果不太清楚的地方也可以百度一下,或者私信来问我。
最终的效果是这样的:
贴一下代码(可能图不是很清晰,请放大看,我也贴一下文字的代码):
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
Sub mulu() '生成目录,并超链接 i = 1 For Each Sheet In Worksheets '遍历worksheets里的每个工作表 在vba中,工作簿 workbook 工作表 worksheetsSheets(1).Cells(i, 2) = Sheet.Name 'sheets(1)表示第一个工作表,可以用索引来访问,也可以用工作表的名字,比如sheets("目录") Sheets(1).Select '选中第一个工作表,cells表示单元格,有2个参数,第一个表示行数,第二个表示列数 所以cells(1,1)就表示1行1列也就是A1单元格 ActiveSheet.Hyperlinks.Add Anchor:=Cells(i, 2), Address:="", SubAddress:="'" & Cells(i, 2).Value & "'!A1", TextToDisplay:=Cells(i, 2).Value & "" '这里是加超链接 i = i + 1 Next Sheet 'add hyperlink to back content sheet For m = 2 To ThisWorkbook.Sheets.Count 'Sheets.Count 表示整个工作簿工作表的数量 Sheets(m).Hyperlinks.Add Anchor:=Sheets(m).[a1], Address:="", SubAddress:="Sheet1!A1", TextToDisplay:="返回目录" '对每一个非目录页,在A1单元增加一个返回链接 Next End Sub |
转载请注明:徐自远的乱七八糟小站 » 【如何在excel中为多个工作表创建超链接目录?】