Question

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

我想在固定单元格内显示工作簿总页数,即共5页则显示5,共6页则显示6,如何编写宏

Answer 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我

Answer 2

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