Board logo

標題: [發問] 請問各位先進，如何用VBA寫在儲存格裡該頁頁碼? [打印本頁]
作者: gn00713242    時間: 2014-3-29 10:46     標題: 請問各位先進，如何用VBA寫在儲存格裡該頁頁碼?

表單中有許多頁，想做"頁數/總頁數"放在某格儲存格中，不是用頁首頁尾的頁碼
請問各位先進，如何用VBA寫在儲存格裡該頁頁碼?
作者: yen956    時間: 2014-3-30 08:04

回復 1# gn00713242
試試看(VBA):
   ActiveSheet.Index & "/" & Worksheets.Count & "頁"
作者: gn00713242    時間: 2014-3-30 12:15

感謝大大的回覆
可我使用後，列印頁數變化時，都會在"1/3頁"
作者: yen956    時間: 2014-4-1 13:39

本帖最後由 yen956 於 2014-4-1 13:41 編輯

回復 3# gn00713242
找到了,
http://gb.twbts.com/index.php?topic=4194.msg21593
請參考
作者: gn00713242    時間: 2014-4-6 11:49

回復  gn00713242
找到了,
http://gb.twbts.com/index.php?topic=4194.msg21593
請參考
yen956 發表於 2014-4-1 13:39



感謝大大，分享。
我看過文章，此文章不是用VBA寫的，是用"定義"
我試過，如該儲存格一開始定義為 頁數 "1/3頁"，當我列印範圍總頁數更改為5頁時
改儲存格還是在 "1/3頁"，不會隨著列印範圍變化而變化，
還是有要設定的才會變化?
作者: GBKEE    時間: 2014-4-6 12:31

回復 5# gn00713242
  1. 'ThisWorkbook 的程式碼
  2. Private Sub Workbook_BeforePrint(Cancel As Boolean) '工作表有印列時的觸動程式
  3.     Application.CalculateFull
  4.     'CalculateFull 方法 強迫對所有開啟活頁簿中的資料進行完整計算
  5. End Sub
複製代碼
作者: yen956    時間: 2014-4-8 13:30

本帖最後由 yen956 於 2014-4-8 13:32 編輯

回復 5# gn00713242
花了一整夜的測試與修改, 終於完成了,
請試試看:
  1. '修改自下列網頁：
  2. 'http://www.ozgrid.com/forum/showthread.php?t=83326
  3. 'Border Around Each Printed Page
  4. 'VB:

  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
複製代碼
作者: gn00713242    時間: 2014-4-10 17:20

回復  gn00713242
花了一整夜的測試與修改, 終於完成了,
請試試看:
yen956 發表於 2014-4-8 13:30



   超感動的!!謝謝大大高手的努力!!
作者: yen956    時間: 2014-4-10 20:01

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)