作者:乔山办公网日期:
返回目录:excel表格制作
1.首先,准备需要插入“backtodirectory”按钮的工作簿,打开工作簿,并zhidao确保工作簿有一个目录或主表工作表的副本作为返回对象。如下图所示:
2.单击“开发工具”选项卡,然后单击“查看代码”按钮以打开VB代码编辑器窗口,如下图所示:
3.然后在“打开VB代码编辑”版窗口中插入一个新模块,将以下代码复制到模块中,然后单击run,如下图:
4.运行代码后,最小化代码窗口并返回工作簿的主界面。您可以看到目录权工作表,其他工作表已自动插入按钮以返回目录,如下图所示:
请参考如下步骤在第一个工作表自动批量生成指向后续各个工作表的超链目录:
1、把zhidao光标放在第一个工作表希望插入目录的地方;版
2、键入Alt+F11打开VBA编辑器,然后选择菜单“插入 - 模块”;
3、在代码编辑区粘贴如下代码:
Option Explicit
Sub AutoGenerateHyperlinks()
Dim nIndex As Integer
Dim oRange As Range
For nIndex = 2 To Sheets.Count
Set oRange = Cells(Selection.Row + nIndex - 2, Selection.Column)
oRange.Hyperlinks.Add Anchor:=oRange, Address:="", SubAddress:=Sheets(nIndex).Name & "!A1", TextToDisplay:=Sheets(nIndex).Name
Next
End Sub
4、键入F5运行,再键入Alt+F11切换回第一个工作表,检查目录超链权是否自动建立成功。
复制下面的公式至各工作表中需要显示超链接的空白单元格中,如:A1
=HYPERLINK("#sheet1!A1","返回目录")