excel表格目录显示页码怎么设置

在Excel表格中设置目录显示页码的方法有多种，包括手动设置页码、使用公式、利用宏来自动生成等。这些方法各有优缺点，具体选用哪种方法取决于用户的需求和Excel的熟练程度。手动设置页码、使用公式、利用宏。下面将详细描述其中一种方法——使用宏来自动生成目录页码。

一、手动设置页码

手动设置页码是最简单直接的方法，适合处理较少的表格。需要在目录页手动输入每个工作表的名称和对应的页码。

1. 创建目录页

在Excel中，创建一个新的工作表，并将其命名为“目录”或类似的名称。在该工作表中，手动输入每个工作表的名称和它们的页码。

2. 输入页码

根据打印预览或打印输出的页码，手动在“目录”工作表中输入每个工作表对应的页码。此方法适用于工作表数量较少的情况。

二、使用公式

使用公式可以动态更新页码，但需要一定的Excel公式知识，适合工作表数量不多且结构相对固定的情况。

1. 使用`ROW`函数

在“目录”工作表中，可以使用ROW函数来引用其他工作表的行数，从而自动生成页码。例如，在A1单元格输入=ROW(Sheet2!A1)，即可显示Sheet2第1行的页码。

2. 动态更新页码

如果工作表结构发生变化，可以通过调整公式来动态更新页码。例如，可以使用MATCH函数查找特定工作表中的关键字，从而确定页码。

三、利用宏自动生成目录页码

利用VBA宏可以自动生成目录页码，适合处理大量工作表且需要频繁更新的情况。

1. 启用开发工具

首先，需要启用Excel的开发工具。点击“文件”->“选项”->“自定义功能区”，勾选“开发工具”选项。

2. 编写宏代码

在开发工具中，点击“Visual Basic”按钮，打开VBA编辑器。然后，在“插入”菜单中选择“模块”，创建一个新的模块。在模块中输入以下代码：

Sub CreateTOC()
    Dim ws As Worksheet
    Dim toc As Worksheet
    Dim i As Integer
    ' 创建新的工作表作为目录页
    Set toc = Sheets.Add(After:=Sheets(Sheets.Count))
    toc.Name = "目录"
    ' 在目录页中输入标题
    toc.Cells(1, 1).Value = "工作表名称"
    toc.Cells(1, 2).Value = "页码"
    ' 遍历所有工作表
    i = 2
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> toc.Name Then
            toc.Cells(i, 1).Value = ws.Name
            toc.Cells(i, 2).Value = ws.Index
            i = i + 1
        End If
    Next ws
End Sub

3. 运行宏

在VBA编辑器中，点击“运行”按钮，执行上述宏代码。代码会自动创建一个新的工作表作为目录页，并在其中列出所有工作表的名称和页码。

四、其他设置和优化

1. 格式化目录页

可以对目录页进行格式化，使其更加美观和易于阅读。例如，可以设置标题的字体和颜色，添加边框和背景色等。

2. 添加超链接

为了方便导航，可以在目录页中为每个工作表名称添加超链接。以下是添加超链接的VBA代码：

Sub CreateTOCWithHyperlinks()
    Dim ws As Worksheet
    Dim toc As Worksheet
    Dim i As Integer
    ' 创建新的工作表作为目录页
    Set toc = Sheets.Add(After:=Sheets(Sheets.Count))
    toc.Name = "目录"
    ' 在目录页中输入标题
    toc.Cells(1, 1).Value = "工作表名称"
    toc.Cells(1, 2).Value = "页码"
    ' 遍历所有工作表
    i = 2
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> toc.Name Then
            toc.Cells(i, 1).Value = ws.Name
            toc.Cells(i, 2).Value = ws.Index
            toc.Hyperlinks.Add Anchor:=toc.Cells(i, 1), Address:="", SubAddress:= _
            "'" & ws.Name & "'!A1", TextToDisplay:=ws.Name
            i = i + 1
        End If
    Next ws
End Sub

3. 自动更新目录页

为了确保目录页始终是最新的，可以在每次保存工作簿时自动运行创建目录的宏。以下是实现该功能的VBA代码：

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) CreateTOCWithHyperlinks End Sub

将上述代码添加到“ThisWorkbook”对象中，即可在每次保存工作簿时自动更新目录页。

总结

通过上述方法，可以在Excel表格中设置目录显示页码。具体方法包括手动设置页码、使用公式以及利用VBA宏自动生成目录页码。手动设置页码适合处理较少的表格，使用公式适合工作表数量不多且结构相对固定的情况，而利用VBA宏自动生成目录页码则适合处理大量工作表且需要频繁更新的情况。通过合理选择方法，可以提高工作效率，确保目录页始终是最新的。