yen956

回復 1# gn00713242
試試看(VBA):
   ActiveSheet.Index & "/" & Worksheets.Count & "頁"

yen956

回復 3# gn00713242
找到了,
http://gb.twbts.com/index.php?topic=4194.msg21593
請參考

yen956

回復 5# gn00713242
花了一整夜的測試與修改, 終於完成了,
請試試看:

1. '修改自下列網頁：
   
2. 'http://www.ozgrid.com/forum/showthread.php?t=83326
   
3. 'Border Around Each Printed Page
   
4. 'VB:
   
5. 
   
6. Sub testPages()
   
7.     Dim lastRow, lastCol, lastRow2, lastCol2 As Integer
   
8.     Dim HPBreak, VPBreak, totHP, totVP As Integer
   
9.     Dim cVP, rHP, row1, cow1, flagHP, flagVP As Integer
   
10.     Dim ar
    
11.    
    
12.     With ActiveSheet
    
13.    
    
14.         '取得列印範圍 的 下邊界及右邊界
    
15.         '這是比較較笨的方法, 如有較簡捷的方法, 煩請告知
    
16.         strPrintArea = .PageSetup.PrintArea
    
17.         ar = Split(strPrintArea, ":")
    
18.         ar = Split(ar(1), "$")
    
19.         lastRow = --ar(2)
    
20.         lastCol = Asc(ar(1)) - 64
    
21.         
    
22.         totVP = .VPageBreaks.Count    '取得 垂直分頁線 的 總數
    
23.         totHP = .HPageBreaks.Count    '取得 水平分頁線 的 總數
    
24.         
    
25.         '取得 最大水平分頁線 所在的 下邊界
    
26.         lastRow2 = .HPageBreaks(totHP).Location.Row - 1
    
27.         '取得 最大垂直分頁線 所在的 右邊界
    
28.         lastCol2 = .VPageBreaks(totVP).Location.Column - 1
    
29.         
    
30.         '公式：列印總頁數 = (VPageBreaks.Count + 1)*(HPageBreaks.Count+1)
    
31.         '並非一體適用, why? 請參考下圖即知:
    
32.         '以下修正 列印總頁數 的公式
    
33.         If lastRow2 = lastRow Then
    
34.             flagHP = 0
    
35.         Else
    
36.             flagHP = 1
    
37.         End If
    
38.         If lastCol2 = lastCol Then
    
39.             flagVP = 0
    
40.         Else
    
41.             flagVP = 1
    
42.         End If
    
43.         
    
44.         totHP = totHP + flagHP
    
45.         totVP = totVP + flagVP
    
46.         
    
47.         '計算全部列印頁數
    
48.         totPg = (totVP) * (totHP)
    
49.         
    
50.         '也可透過 Excel4Macro 取得全部列印頁數 (Excel 2003以下適用)
    
51.         'totPg = ExecuteExcel4Macro("Get.Document(50)")
    
52.         
    
53.         cow1 = 1
    
54.         currentP = 1
    
55.       
    
56.         For VPBreak = 1 To totVP
    
57.             
    
58.             If VPBreak = totVP Then
    
59.                 cVP = lastCol
    
60.             Else
    
61.                 cVP = .VPageBreaks(VPBreak).Location.Column - 1
    
62.             End If
    
63.             
    
64.             For HPBreak = 1 To totHP
    
65.                 '取得目前水平分頁線的下邊界
    
66.                
    
67.                 If HPBreak = totHP Then
    
68.                     rHP = lastRow
    
69.                 Else
    
70.                     rHP = .HPageBreaks(HPBreak).Location.Row - 1
    
71.                 End If
    
72.                 .Cells(rHP, Int((cVP - cow1 + 1) / 2) + cow1) = "共" & totPg & "頁之第" & currentP & "頁"
    
73.                 currentP = currentP + 1
    
74.             Next
    
75.             cow1 = cVP + 1
    
76.         Next
    
77.     End With
    
78.      
    
79. End Sub

複製代碼

yen956

回復 8# gn00713242
我也在學, 邊學邊賣, 謝啦!!