EXCEL里怎样自动生成目录

发布网友 发布时间:2022-04-22 02:57

我来回答

4个回答

热心网友 时间:2024-03-14 03:46

Excel工作表目录实现方法

方法一:函数公式法(1)

步骤如下:

1、定义名称“directory lists”

2、在引用位置写入名称公式=REPLACE(GET.WORKBOOK(1),1,FIND("]",GET.WORKBOOK(1)),)&T(NOW())

3、新建一个工作表,将此工作表改名为“工作表目录”,并将此工作表放在首位。

4、在“工作表目录”A2单元格输入公式=IF(ROW()>COUNTA(directory lists),"",INDEX(directory lists,ROW()))

5、B2单元格输入公式=HYPERLINK("#"&A2&"!a1","进入")

方法一是网络上常见的方法,实际还有比这更简洁的方法,请看以下方法二

方法二、函数公式法(2)

步骤如下:

1、定义名称“directory”

2、在引用位置写入名称公式=GET.WORKBOOK(3)

3、新建一个工作表,将此工作表改名为“工作表目录”,并将此工作表放在首位。

4、在“工作表目录”A2单元格输入公式=IF(ROW()>COUNTA(directory ),"",INDEX(directory ,ROW()))

5、B2单元格输入公式=HYPERLINK("#"&A2&"!a1","进入")

方法二是我在试验GET.workbook(N )中的N参数得出的

方法三:VBA法(3)

Sub 目录()
Range("a1:b1").EntireColumn.Clear
Cells(1, 1) = "序号"
Cells(1, 2) = "工作表名称"
Dim rng As Worksheet
Dim L As String
I = 2
For Each rng In Worksheets
L = rng.Name
L1 = """" & L & """"
L2 = """#""" & "&"""
Cells(1, 4) = "'=HYPERLINK(" & L2 & L & "!a1""" & "," & L1 & ")"
If L <> "目录" Then
Cells(I, 2).Formula = "=HYPERLINK(" & L2 & L & "!a1""" & "," & L1 & ")"
Cells(I, 1) = I - 1
I = I + 1
End If

Next
ActiveSheet.Move before:=Sheets(1) '将目录工作表移到所有工作表的最前面
End Sub

方法三采用了VBA,用以上代码实现工作表目录也不错,是最近一片白云编写调试做的。供朋友们学习与借鉴。

相关知识点:

知识点1:函数HYPERLINK使用

1、创建一个快捷方式(跳转),用以打开存储在网络服务器、Intranet(Intranet:一种组织内部的、使用 Internet技术(如 HTTP或 FTP协议)的网络。通过利用超链接,您可以在 Intranet上浏览对象、文档、网页和其他目标内容。) 或 Internet中的文件。当单击函数 HYPERLINK所在的单元格时,Microsoft Excel将打开存储在 link_location中的文件。

语法HYPERLINK(link_location,friendly_name)

Link_location 为文档的路径和文件名,此文档可以作为文本打开。Link_location还可以指向文档中的某个更为具体的位置,如 Excel工作表或工作簿中特定的单元格或命名区域,或是指向 Microsoft Word文档中的书签。路径可以是存储在硬盘驱动器上的文件,或是服务器(在 Microsoft Excel for Windows中)上的“通用命名规范”(UNC)路径,或是在 Internet或 Intranet上的“统一资源定位符”(URL(统一资源定位符 (URL):一种地址,指定协议(如 HTTP或 FTP)以及对象、文档、万维网网页或其他目标在 Internet或 Intranet上的位置,例如:http://www.microsoft.com/。))路径。

Link_location 可以为括在引号中的文本字符串,或是包含文本字符串链接的单元格。

如果在 link_location中指定的跳转不存在或不能访问,则当单击单元格时将出现错误信息。

Friendly_name 为单元格中显示的跳转文本值或数字值。单元格的内容为蓝色并带有下划线。如果省略 Friendly_name,单元格将 link_location显示为跳转文本。

Friendly_name 可以为数值、文本字符串、名称或包含跳转文本或数值的单元格。

如果 Friendly_name返回错误值(例如,#VALUE!),单元格将显示错误值以替代跳转文本。

说明

若要选定一个包含超链接的单元格并且不跳往超链接的目标文件,请单击单元格区域并按住鼠标按钮直到光标变成一个十字,然后释放鼠标按钮。

示例

下面的示例打开存储在 Internet的 example.microsoft.com/report地址上的工作表 Budget Report.xls,并显示文本“Click for report”:

=HYPERLINK("http://example.microsoft.com/report/budget report.xls", "Click for report")

下面的示例创建对工作簿 Budget Report.xls的 Annual工作表中单元格 F10的超链接,该工作簿存储在 Internet的 example.microsoft.com/report地址上。工作表中包含超链接的单元格将以单元格 D1的内容作为其显示的跳转文本:

=HYPERLINK("[http://example.microsoft.com/report/budget report.xls]Annual!F10", D1)

下面的示例创建对工作簿 Budget Report.xls的 First Quarter工作表中 DeptTotal区域的超链接,该工作簿存储在 Internet的 example.microsoft.com/report地址上。工作表中包含超链接的单元格将显示跳转文本“Click to see First Quarter Department Total”:

=HYPERLINK("[http://example.microsoft.com/report/budget report.xls]First Quarter!DeptTotal", "Click to see First Quarter Department Total")

若要对 Microsoft Word文档中的特定位置创建超链接,必须使用书签来定义文档中所要跳转的位置。下面的示例创建对 example.microsoft.com上名为 Annual Report.doc的文档中的书签 QrtlyProfits的超链接:

=HYPERLINK("[http://example.microsoft.com/Annual Report.doc]QrtlyProfits", "Quarterly Profit Report")

在 Excel for Windows中,下面的示例可以将单元格 D5中的内容显示为超链接单元格中的跳转文本,并打开名为 1stqtr.xls的文件,该文件存储在 FINANCE服务器的 Statements共享文件夹中。此示例使用 UNC路径:

=HYPERLINK("\\FINANCE\Statements\1stqtr.xls", D5)

下面的示例打开 Excel for Windows的文件 1stqtr.xls,该文件存储在驱动器 D的名为 Finance的目录下,并显示存储在单元格 H10中的数字值:

=HYPERLINK("D:\FINANCE\1stqtr.xls", H10)

在 Excel for Windows中,下面的示例将创建指向另一个(外部)工作簿 Mybook.xls中名为 Totals的区域的超链接:

=HYPERLINK("[C:\My Documents\Mybook.xls]Totals")

在 Microsoft Excel for Macintosh中,下面的示例将在单元格中显示“Click here”,并打开保存在名为 Macintosh HD硬盘上 Budget Reports文件夹中的 First Quarter文件:

=HYPERLINK("Macintosh HD:Budget Reports:First Quarter", "Click here")

可以在工作表内创建超链接,以便从一个单元格跳转到另一个单元格。例如,如果 Budget工作簿中的 June工作表为活动工作表,则下面的公式将创建跳转到单元格 E56的超链接,链接的文本本身为单元格 E56中的数值。

=HYPERLINK("[Budget]June!E56", E56)

若要跳转到同一工作簿中的其他工作表,请更改超链接中的工作表名称。在前例中,若要创建指向 September工作表中单元格 E56的链接,请将单词“June”更改为“September”。

知识点2:GET函数部分知识点

1、get.workbook(1)是宏表函数之一,作用是提取当前工作薄所有工作表的表名(工作表名前面包括工作簿名),以水平数组的形式储存。

2、get.workbook(3)是宏表函数之一,作用是提取当前工作薄所有工作表的表名(工作表名前不包括工作簿名),以水平数组的形式储存。

热心网友 时间:2024-03-14 03:46

Excel是适用于制作表格和数据运算,不适合编辑文字文档。
建议你在Word里面设置。
可以插入页码:
菜单栏——文件——页面设置——页眉/页脚——页脚(或自定义页脚)。

热心网友 时间:2024-03-14 03:46

下载慧办公,然后重新打开excel,可以看到菜单栏有慧办公,之后就可以直接在excel中插入目录了。

热心网友 时间:2024-03-14 03:48

是不是得导入word中
==========
试试吧,但愿能够帮助您!

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com