EXCEL 同个工作薄如何批量超链接,即在目录表里点页码Sheet1、Sheet2、Sheet3,即可跳到相应的工作表
3个回答
展开全部
按ALT+F11,然后选你的工作表,把下面的代码粘贴进去,然后回到EXCEL中按ALT+F8,执行宏Content即可
Sub Content()
'创建目录
'
Set NewSheet = Sheets.Add(before:=Sheets(1), Type:=xlWorksheet)
NewSheet.Name = "Content"
NewSheet.Cells(1, 1).Value = "Content"
For i = 2 To Sheets.Count
NewSheet.Cells(i, 1).Value = i - 1
With Worksheets(1)
.Hyperlinks.Add Anchor:=.Cells(i, 2), Address:="", _
SubAddress:=Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name
End With
Next i
End Sub
Sub Content()
'创建目录
'
Set NewSheet = Sheets.Add(before:=Sheets(1), Type:=xlWorksheet)
NewSheet.Name = "Content"
NewSheet.Cells(1, 1).Value = "Content"
For i = 2 To Sheets.Count
NewSheet.Cells(i, 1).Value = i - 1
With Worksheets(1)
.Hyperlinks.Add Anchor:=.Cells(i, 2), Address:="", _
SubAddress:=Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name
End With
Next i
End Sub
展开全部
添加超链接一般都是手工进行操作,除非有特别多,并且有规律的,工作量很大的,可以选择用VBA来进行操作.如果你会使用VBA这么简单的东西你应该自己就能操作了.在这上面问肯定你不会.既然不会的话别人告诉你怎么做可能你也不会做出来......
VBA一般需要看着文件才能写出来,要根据文件的具体情况才能写,文件没看到写出来也是不能正常使用的
如果不是什么保密文件发给我,我帮你弄..
VBA一般需要看着文件才能写出来,要根据文件的具体情况才能写,文件没看到写出来也是不能正常使用的
如果不是什么保密文件发给我,我帮你弄..
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
加入超级链接即可。
右键-超链接-本文档中的位置
右键-超链接-本文档中的位置
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询