excel显示第几页怎么弄

在Excel中显示第几页的方法有：使用页眉或页脚、利用VBA宏代码、通过公式结合VBA。这些方法各有优缺点，选择适合自己的方法能够提高工作效率。下面将详细介绍如何在Excel中显示第几页的具体操作方法。

一、使用页眉或页脚

在Excel中，页眉和页脚是最常用的方法来显示页面信息。通过设置页眉或页脚，可以在打印时自动显示每一页的页码。

1.1 添加页眉或页脚

1. 打开Excel文件，点击菜单栏上的“页面布局”选项。
2. 在页面布局工具栏中，选择“打印标题”。
3. 在弹出的“页面设置”对话框中，选择“页眉/页脚”选项卡。
4. 点击“自定义页眉”或“自定义页脚”，根据需要在页眉或页脚中插入页码。
5. 在左、中、右三个部分中选择一个位置，点击“插入页码”按钮。
6. 确认设置后，点击“确定”。

1.2 自定义页眉或页脚的内容

除了插入页码外，还可以自定义页眉或页脚的其他内容，如文件名、日期、时间等。

1. 在“自定义页眉”或“自定义页脚”对话框中，选择一个位置。
2. 输入所需的文本或点击相应的按钮插入相应的字段，如“文件名”、“日期”、“时间”等。
3. 使用“&[页码]”表示当前页码，“&[总页数]”表示总页数，可以组合使用如“第 &[页码] 页，共 &[总页数] 页”。

二、利用VBA宏代码

如果需要更灵活的页面显示方式，可以使用VBA宏代码来实现。在VBA中，可以编写代码来自动显示当前页码。

2.1 启动VBA编辑器

1. 打开Excel文件，按下快捷键“Alt + F11”启动VBA编辑器。
2. 在VBA编辑器中，点击“插入”菜单，选择“模块”以创建一个新的模块。

2.2 编写VBA代码

在模块中输入以下代码：

Sub AddPageNumbers()

    Dim ws As Worksheet
    Dim i As Integer
    For Each ws In ActiveWorkbook.Worksheets
        With ws.PageSetup
            .CenterFooter = "第 &P 页，共 &N 页"
        End With
    Next ws
End Sub

2.3 运行VBA代码

1. 关闭VBA编辑器，回到Excel工作表。
2. 按下快捷键“Alt + F8”打开宏对话框，选择刚才编写的宏“AddPageNumbers”。
3. 点击“运行”，VBA代码将自动在所有工作表的页脚中插入页码。

三、通过公式结合VBA

在某些情况下，可能需要在Excel单元格中显示当前页码，这可以通过公式结合VBA来实现。

3.1 编写VBA函数

1. 打开VBA编辑器，创建一个新的模块。
2. 输入以下代码：

Function GetPageNumber(rng As Range) As Integer

    Dim ws As Worksheet
    Dim i As Integer
    Dim pageIndex As Integer
    Set ws = rng.Worksheet
    pageIndex = 1
    For i = 1 To ws.HPageBreaks.Count + 1
        If rng.Row <= ws.HPageBreaks(i).Location.Row Then
            GetPageNumber = pageIndex
            Exit Function
        End If
        pageIndex = pageIndex + 1
    Next i
End Function

3.2 使用自定义函数

1. 关闭VBA编辑器，回到Excel工作表。
2. 在需要显示页码的单元格中，输入公式=GetPageNumber(A1)，其中A1是单元格引用。
3. 按下“Enter”键，当前页码将显示在单元格中。

通过以上三种方法，可以在Excel中显示第几页。选择适合自己需求的方法，不仅可以提高工作效率，还可以使文件更加专业和美观。

相关问答FAQs：

1. 如何在Excel中显示当前页码？
在Excel中，你可以通过在页眉或页脚中插入页码字段来显示当前页码。选择“插入”选项卡，然后点击“页码”按钮。在弹出的对话框中，选择你想要的页码样式，例如“页码（第X页）”。这样，每一页的页眉或页脚都会自动显示当前页码。

2. 如何在Excel中显示总页数？
要在Excel中显示总页数，你可以使用自定义函数来实现。首先，按下键盘上的“Alt + F11”组合键，打开VBA编辑器。在左侧的项目资源管理器中，双击你的工作簿以打开代码窗口。在代码窗口中，复制并粘贴以下代码：

Function TotalPages() As String
    TotalPages = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Function

保存并关闭VBA编辑器。现在，在你的工作表中的任何单元格中输入“=TotalPages()”，即可显示当前工作簿的总页数。

3. 如何在Excel中快速定位到指定页码？
如果你在Excel中有很多页，并且想要快速定位到指定页码，可以使用“跳转到”功能。首先，点击工作表底部的“页签”按钮，展开页签列表。然后，点击右上角的“跳转到”按钮，在弹出的对话框中输入你想要跳转到的页码，然后点击“确定”。这样，Excel会立即定位到你指定的页码，方便你进行编辑和查看。