1. 打開VBA編輯器首先，在Excel中打開文件，點(diǎn)擊“開發(fā)工具”選項(xiàng)卡，然后點(diǎn)擊“Visual Basic”按鈕，即可進(jìn)入VBA編輯器界面。2. 輸入示例內(nèi)容在Excel的單元格區(qū)域中輸入一些內(nèi)容

1. 打開VBA編輯器

首先，在Excel中打開文件，點(diǎn)擊“開發(fā)工具”選項(xiàng)卡，然后點(diǎn)擊“Visual Basic”按鈕，即可進(jìn)入VBA編輯器界面。

2. 輸入示例內(nèi)容

在Excel的單元格區(qū)域中輸入一些內(nèi)容作為示例。這些內(nèi)容將用于演示如何獲取當(dāng)前工作表的頁數(shù)。

3. 插入模塊

在VBA編輯器中，插入一個(gè)新的模塊?？梢酝ㄟ^右鍵點(diǎn)擊項(xiàng)目資源管理器中的“模塊”，然后選擇“插入”來添加一個(gè)新模塊。

4. 編寫代碼

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

```vba

Sub 獲取工作表的頁數(shù)()

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

' 檢查當(dāng)前單元格是否超出已用區(qū)域

If (ActiveCell, ) Is Nothing Then

MsgBox "當(dāng)前單元格超出已用區(qū)域！": 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

' 以先列后行方式計(jì)算頁碼順序

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

' 添加批注，顯示頁數(shù)，并設(shè)置批注字體和大小

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

True

True

With

.Name "方正姚體"

.Size 18

End With

True

End Sub

```

5. 運(yùn)行宏程序

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

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