EXCEL表格中的目录怎么自动生成

1.excel 自动生成目录

Private Sub Workbook_Open()

For i = 1 To Sheets.Count

If Sheets(i).Name <> ActiveSheet.Name Then

Cells(i, 1) = "=HYPERLINK(" & """" & "#" & Sheets(i).Name & "!A1" & """" & "," & """" & Sheets(i).Name & """" & ")"

End If

Next i

End Sub

2.如何在excel中自动生成目录

Private Sub 更新目录_Click()

Application.ScreenUpdating = False

Dim Sht As Worksheet

Dim r As Integer

[a2:b65536].ClearContents

For Each Sht In ThisWorkbook.Sheets

If Sht.Name <> Me.Name Then

r = [a65536].End(xlUp).Row

Range("A" & r + 1).Value = Sht.Name

Me.Hyperlinks.Add Range("A" & r + 1), "#" & Sht.Name & "!A1", ScreenTip:=Sht.Name

Range("B" & r + 1).Value = Sht.[a1].Value

End If

Next

Application.ScreenUpdating = True

End Sub

3.excel如何自动生成索引 目录

第一步、用宏3.0取出各工作表的名称，方法：

Ctrl+F3出现自定义名称对话框，取名为X，在“引用位置”框中输入：

=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,100)

确定

第二步、用HYPERLINK函数批量插入连接，方法：

在目录工作表（一般为第一个sheet）的A2单元格输入公式：=HYPERLINK("#'"&INDEX(X,ROW())&"'!A1",INDEX(X,ROW()))

将公式向下填充，直到出错为止，目录就生成了。

4.如何在EXCEL中生成目录

打开要创建目录的EXCEL文件--------Alt+F11---------插入--------模块--------把下面的代码拷贝到模块中Sub mulu()On Error GoTo Tuichu

Dim i As Integer

Dim ShtCount As Integer

Dim SelectionCell As Range

ShtCount = Worksheets.Count

If ShtCount = 0 Or ShtCount = 1 Then Exit Sub

Application.ScreenUpdating = False

For i = 1 To ShtCount

If Sheets(i).Name = "目录" Then

Sheets（"目录"）.Move Before:=Sheets(1)End IfNext iIf Sheets(1).Name ShtCount = ShtCount + 1

Sheets(1).SelectSheets.AddSheets(1).Name = "目录"End IfSheets（"目录"）.Select

Columns("B:B").Delete Shift:=xlToLeft

Application.StatusBar = "正在生成目录…………请等待！"

For i = 2 To ShtCount

ActiveSheet.Hyperlinks.Add Anchor:=Worksheets（"目录"）.Cells(i, 2), Address:="", SubAddress:= _

Sheets(i).Name & "!R1C1", TextToDisplay:=Sheets(i).NameNextSheets（"目录"）.Select

Columns("B:B").AutoFit

Cells(1, 2) = "目录"

Set SelectionCell = Worksheets（"目录"）.Range("B1")

With SelectionCell

.HorizontalAlignment = xlDistributed

.VerticalAlignment = xlCenter

.AddIndent = True

.Font.Bold = True

5.excel目录怎么自动生成

1、用宏函数取出各工作表的名称，方法：Ctrl+F3出现自定义名称对话框，取名为X，在“引用位置”框中输入：=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,100） 确定 2、用HYPERLINK函数批量插入连接，方法：在目录工作表（一般为第一个sheet）的A2单元格输入公式：=HYPERLINK("#'"&INDEX(X,ROW())&"'!A1",INDEX(X,ROW（)）） 将公式向下填充，直到出错为止，目录就生成了。

6.excel表格目录怎么自动生成

1、打开你的excel表格。定位到第一个工作表后，然后新建一个工作表作为第一个工作表，命名为“中国人自己的目录”，后面可以建立一些工作表做测试用，名字自己取即可，如下图。

2、好了，事情已经成功了一大半，可见只要老师讲的好，学习Excel是多么地简单呀

3、在中国人自己的目录这个工作表，A1内容输入1，然后依次点击B1，点“公式”选项卡，点定义名称，出现编辑名称对话框，如下图：

(1)在名称（A位置）输入List

(2)在引用位置（B位置）输入=INDEX(GET.WORKBOOK(1),$A1)&T(NOW())

4、上面一步弄好后，没有任何反映，这是正常的现场，就像怀孕一样，一下子是不会大肚子的，所以大家别捉急，最后一步来了。

在B1位置输入公式=IFERROR(HYPERLINK(List&"!A1")，""） 就出现一个欢天喜地的结果了，不过就一行，多行拉操作即可，如图：

下拉后，就出现让人想入菲菲的、仰首期盼的、日思夜想的、全球只有50万人会做的、你现在竟然做出来的目录拉，这主要是大家理解力强，老师教的虽然很重要。

7.请问excel怎样生成目录

方法/步骤

首先打开想要插入目录的文件。

因为自动插入目录，需要使用到系统自带的1、2、3级标题，所以我们先要把标题的格式规范一下。

分别用1、2、3级标题对文档的标题进行修改。

然后我们就开始插入目录了。

点击wps最上方的“引用”菜单，进入“引用”菜单面板。

点击“插入目录”。

弹出“目录”对话框。

我们可以在“制表符前导符”下面选择标题和页码中间的符号。

还可以设置目录需要显示的级别。

另外还可以选择是否显示页码、页码是不是右对齐，是否使用超键接。

点击确定，退出对话框。

我们可以看到目录已经自动插入到文档中了，把鼠标悬停在目录的文字上面，可以看到显示出一个提示，按“ctrl”键半单击鼠标便可以跳到于目录相应的页面。

这里我们发现目录和文档的第一章在同一个页面，这里我们需要手动把文档分页。按“ctrl”+“enter”键，文档的第一章就跳到了第二页。

这时我们可以看到目录的页码却没有改变。

我们只要更新一下目录，页码的问题便可以解决了。

点击“引用”面板中的“更新目录”按钮。

8

在弹出的“更新目录”对话框中，选择“更新整个目录”，点击确定，目录已经更新完毕。