用vba获取工作表页数的方法

合集下载

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

用vba获取工作表页数的方法可以使用以下VBA代码来获取工作表的页数：
```VBA
Sub GetWorksheetPageCount()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1") '替换为你想要获取的工作表名称
Dim totalColumns As Integer
totalColumns = edRange.Columns.Count
Dim totalRows As Integer
totalRows = edRange.Rows.Count
Dim pageSize As Integer
pageSize = 55 '每一页的行数，可以根据需要修改
Dim totalPages As Integer
totalPages = (totalRows / pageSize) + IIf(totalRows Mod pageSize = 0, 0, 1)
MsgBox "工作表总共有 " & totalPages & " 页。

"
End Sub
```
该代码获取指定工作表的行总数和每页的行数，计算出总页数并弹出消息框进行显示。

你也可以根据需要修改行数、列数等相关参数。

1/ 1。