如何在excel中为多个工作表创建超链接目录？
Sub mulu()’生成目录，并超链接i = 1For 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 + 1Next Sheet’add hyperlink to back content sheetFor m = 2 To ThisWorkbook.Sheets.Count ‘Sheets.Count 表示整个工作簿工作表的数量 Sheets(m).Hyperlinks.Add Anchor:=Sheets(m).[a1], Address:=”, SubAddress:=’Sheet1!A1’, TextToDisplay:=’返回目录”对每一个非目录页,在A1单元增加一个返回链接NextEnd Sub
百度搜索“哪个妞污”,专业资料,生活学习,尽在哪个妞污网,您的女娲在线图书馆!
欢迎转载，请注明文章来源：哪个妞污? 那个妞污！