使用VBA取得當前工作表頁數

1. 打開VBA編輯器首先，在Excel中打開文件，點擊“開發工具”選項卡，然后點擊“Visual Basic”按鈕，即可進入VBA編輯器界面。2. 輸入示例內容在Excel的單元格區域中輸入一些內容

1. 打開VBA編輯器

首先，在Excel中打開文件，點擊“開發工具”選項卡，然后點擊“Visual Basic”按鈕，即可進入VBA編輯器界面。

2. 輸入示例內容

在Excel的單元格區域中輸入一些內容作為示例。這些內容將用于演示如何獲取當前工作表的頁數。

3. 插入模塊

在VBA編輯器中，插入一個新的模塊。可以通過右鍵點擊項目資源管理器中的“模塊”，然后選擇“插入”來添加一個新模塊。

4. 編寫代碼

在新插入的模塊中輸入以下代碼:

```vba

Sub 獲取工作表的頁數()

Dim x As Long, y As Long, m As Integer, x1 As Integer, y1 As Integer

Dim t1 As Integer, t2 As Integer, imax As Long, i, j, k, q

False

On Error Resume Next

' 檢查當前單元格是否超出已用區域

If (ActiveCell, ) Is Nothing Then

MsgBox "當前單元格超出已用區域！": Exit Sub

End If

x

y

' 取得水平分頁符

For Each P In ActiveSheet.HPageBreaks

m m 1

If x < Then

x1 m

Exit For

End If

Next

' 取得垂直分頁符

For Each q In ActiveSheet.VPageBreaks

n n 1

If y < Then

y1 n

Exit For

End If

Next

t1 1

t2 1

If x1 0 Then x1 t1

If y1 0 Then y1 t2

imax t1 * t2

ReDim arr(1 To t1, 1 To t2)

k 1

If 1 Then

' 以先列后行方式計算頁碼順序

For j 1 To t2

For i 1 To t1

arr(i, j) k

k k 1

Next

Next

Else

For i 1 To t1

For j 1 To t2

arr(i, j) k

k k 1

Next

Next

End If

True

' 添加批注，顯示頁數，并設置批注字體和大小

("第" arr(x1, y1) "頁, 共" imax "頁")

True

True

With

.Name "方正姚體"

.Size 18

End With

True

End Sub

```

5. 運行宏程序

單擊Excel表格中的單元格C12，然后使用快捷鍵"Ctrl W"來調用之前設計的宏程序。立即可以看到單元格上生成了批注，批注顯示工作表的總頁數和當前單元格所在頁數。

通過以上步驟，你可以輕松使用VBA獲取當前工作表的頁數，并在相應單元格上顯示頁數信息。這對于處理大量數據和分頁打印非常有用。