如何编写EXcel显示页数VBA代码

2025-04-17 00:19:35

推荐回答（2个）

回答（1）：

在工程资源管理器中
双击 ThisWorkbook
在代码窗口粘贴下列代码
在打开工作簿或插入工作表时
在第一表的A1单元将显示
工作簿总页数 = x ,x 为EXcel总页数
Private Sub Workbook_NewSheet(ByVal Sh As Object)
Debug.Print Sheets.Count
Sheets(1).Cells(1, 1) = "工作簿总页数 = " & Sheets.Count
Sheets(1).Select
End Sub

Private Sub Workbook_Open()
Sheets(1).Cells(1, 1) = "工作簿总页数 = " & Sheets.Count
Sheets(1).Select
End Sub
有何问题请Hi我

回答（2）：

公式即可实现
a1=INFO("numfile")