excel表格档案目录怎么做

1.excel怎么做目录

1.如图，打开其中一个工作簿，里面有7个表格。

2.在D5单元格同时按住键盘上的“CTRL+K”，出现如图：

3.选择链接到“本方档中位置”，出现如图。

4.用鼠标点击“利润表”，单击“确定”，出现如图。

5.重复以上3-4步骤操作，就会出现如图。

完成后，可以看到，只要在做好的目录中，用鼠标点击所在表格名称，就会快速到达所在表格位置。

2.怎样制作EXCEL工作表目录?

1、第一步，建立目录工作表。在我们已经有多个sheet页工作数据的excel文件中新建一个工作表，命名为“目录”。

2、第二步，单击B1单元格，切换到【公式】选项卡。

3、第三步，单击【定义名称】，弹出【新建名称】对话框，在“名称”文本框中输入“目录”。

4、第四步，在“引用位置”文本框输入以下公式：=INDEX(GET.WORKBOOK(1),ROW(A1))&T(NOW())

5、第五步，创建带链接的目录。B1单元格输入公式：=IFERROR(HYPERLINK（目录&"！A1",MID（目录，FIND（"]"，目录）+1,99)),"")

6、第六步，将B1的内容向下复制。可以看到效果了，单击目录中的工作表名称，就会自动跳转到相应工作表。

3.Excel如何做目录

Private Sub Workbook_SheetActivate(ByVal Sh As Object) i = 2 Do If i <> Sh.Index Then Worksheets(i).Visible = False i = i + 1 Loop Until i > Worksheets.Count End Sub 使用VBA来做最简单，把我这些代码复制到“ThisWorkbook"代码窗口里，打开文件时，就会只显示第一张工作表了。

而在第一张工作表里建十个按钮，每个按钮都和一段代码关联，如： XX.sheet(X).visible=true 具体视你的工作表名称而定。 试试看就知道了。

4.excel目录怎么自动生成

excel中无法生成，只能在word中生成，操作方法如下：

设置标题格式

1. 选中文章中的所有一级标题；

2. 单击开始选项卡上的标题1，如图所示；

仿照步骤1、2设置二、三级标题格式为标题2、标题3。

3. 自动生成目录

1. 把光标定位到文章第1页的首行第1个字符左侧（目录应在文章的前面）；

2. 单击引用---->；目录---->；插入目录，如图所示；

3. 弹出目录对话框，选择目录选项卡，选中显示页码和页码右对齐，在制表符前导符处选择一种前导符即可，如图所示。

5.如何用EXCEL制作文件目录

插入代码

Dim Fso As New FileSystemObject

Dim Fld As Folder

Dim sRow As Single

Sub FileSearchTools()

Dim SrchDir As String, SrchString As String

Dim fDialog As FileDialog

sRow = 0

Set fDialog = Application.FileDialog( _

)

If fDialog.Show = -1 Then

SrchDir = fDialog.SelectedItems(1)

Else

MsgBox "没有选择任何目标文件夹！"， _

vbCritical， "文件搜索工具"

Exit Sub

End If

SrchString = InputBox（"请输入搜索的文件类型："， _

"文件类型"， "*.*"）

If Len(SrchString) = 0 Then SrchString = "*.*"

With ActiveSheet.Columns(1)

.Cells.Clear

Call FileFind(SrchDir, SrchString)

.AutoFit

End With

End Sub

Private Sub FileFind(ByVal SrchFld As String, _

SrchFile As String, _

Optional SrchDir As Boolean = True)

Dim tFld As Folder

Dim dirFName As String

On Error GoTo ErrHandle

Set Fld = Fso.GetFolder(SrchFld)

dirFName = Dir(Fso.BuildPath(Fld.Path, SrchFile), _

vbNormal Or vbHidden Or vbSystem Or vbReadOnly)

While Len(dirFName) <> 0

sRow = sRow + 1

With ActiveSheet

.Hyperlinks.Add Anchor:=.Cells(sRow, 1), _

Address:=Fso.BuildPath(Fld.Path, dirFName), _

TextToDisplay:=dirFName

End With

dirFName = Dir()

Wend

If Fld.SubFolders.Count > 0 And SrchDir Then

For Each tFld In Fld.SubFolders

Call FileFind(tFld.Path, SrchFile)

Next

End If

Exit Sub

ErrHandle:

MsgBox "运行错误！"， vbCritical， "文件搜索工具"

End Sub