excell的分頁小計、累計完成啦~~

一直知道excell有分頁小計的
但累計怎麼計算…
當行數一直增加時
要怎麼處理每頁的小計與累計咧？！
這個問題著實讓我困惑了一陣子

本來就不是程式料子的我
內行人不用幾天
卻是我花了二星期研究出來的…
呵~~~
產生啦…
雖不完美。不過基本功能是有的~
用excell的 VBA寫出來的分頁小計與累計…
 (不是總計喲！是每頁與上頁的累計吶！)

----------------------
Sub printarea()



With ActiveSheet.PageSetup
   .FitToPagesTall = 1
End With



Columns("O:O").Delete Shift:=xlToLeft '刪除小計那一欄


Range("A1:O300").Select
ActiveSheet.PageSetup.printarea = "$A$1:$O$300" '設列印範圍

ActiveWindow.View = xlPageBreakPreview

p = 1
For I = 19 To 3000 Step 15 '3000筆資料,每頁15筆
   Rows(4 & ":" & I).Select '第四行開始設定行高
   Selection.RowHeight = 32
        If p > 20 Then GoTo B '請在此設定共有幾頁(例100筆/每頁20行=10頁)
           p = p + 1
           Cells(I - 2, 15) = "小計" 'k橍
           Cells(I - 1, 15) = "累計" '最後一行
           Cells(I - 2, 16) = "=SUM(R[-13]C[-5]:R[+1]C[-5])"  '小計
           Cells(I - 1, 16) = "=SUM(R4C11:R[]C[-5])" '累計
Next I



B:
  ActiveWindow.View = xlNormalView '標準模式


End Sub

--------------------------------
誰來教教我
如何讓小計、累計出現在固定的頁尾啦~~~
(就像頁首的功能一樣呀！)