EXCEL中怎样批量设置超链接.doc

《EXCEL中怎样批量设置超链接.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、EXCEL中怎样批量设置超链接sheet1对应后面的所有sheet请参考如下步骤在第一个工作表自动批量生成指向后续各个工作表的超链目录：1、把光标放在第一个工作表希望插入目录的地方；2、键入Alt+F11打开VBA编辑器，然后选择菜单“插入-模块”；3、在代码编辑区粘贴如下代码：OptionExplicitSubAutoGenerateHyperlinks()   DimnIndexAsInteger   DimoRangeAsRange   FornIndex=2ToSheets.Count     

2、  SetoRange=Cells(Selection.Row+nIndex-2,Selection.Column)       oRange.Hyperlinks.AddAnchor:=oRange,Address:="",SubAddress:=Sheets(nIndex).Name&"!A1",TextToDisplay:=Sheets(nIndex).Name   NextEndSub4、键入F5运行，再键入Alt+F11切换回第一个工作表，检查目录超链是否自动建立成功。注意：工作表的名称不能包

3、括空格，否则生成的超链接将失去链接的效果。以下函数去掉空格，也可以重命名sheet：SubRenameSheet()   DimnIndexAsInteger   Application.ScreenUpdating=False   FornIndex=2ToSheets.Count   Sheets(nIndex).Name=Replace(Sheets(nIndex).Name,"","")   'Sheets(nIndex).Name="报表"&nIndex    rem重命名sheet    N

4、extnIndex   Application.ScreenUpdating=TrueEndSub