书籍文库  |  文档资料  |  最近更新  |  MAP  |  TAG  | 
注册
手机版
就爱阅读网
当前位置:首页 > 情感心理 > 爱情攻略 > 如何在excel中为多个工作表创建超链接目录?

如何在excel中为多个工作表创建超链接目录?

分享人:?浪很小 来源:互联网 时间:2017-12-05 阅读:0
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
百度搜索“就爱阅读”,专业资料,生活学习,尽在就爱阅读网92to.com,您的在线图书馆!

热点阅读

网友最爱