改ページ毎合計　 次の文書

Sub ページ毎合計()
ページレイアウト確認
Sheets("sheet2").Select

'サブ合計の削除
Range("B2:B1000").Select
Selection.ClearContents
Cells(1, 1).Select

'Ｄｕｍｍｙ検索
i = 1
使用ROW数 = ActiveSheet.UsedRange.Rows.Count
合計STR位置 = 2
ページ合計 = WorksheetFunction.Sum(Range(Cells(合計STR位置, 1), Cells(使用ROW数, 1)))
Cells(使用ROW数, 2) = ページ合計

Do Until i > 使用ROW数
Range(Cells(i, 2), Cells(i, 2)).Select
i = i + 1
Loop
Cells(1, 1).Select

'ページ数
ページ数 = ActiveSheet.HPageBreaks.Count + 1 '全体のページ数

合計STR位置 = 2
i = 1
Do Until i > ページ数 - 1
改ページ位置 = ActiveSheet.HPageBreaks(i).Location.Row
合計END位置 = 改ページ位置 - 1
ページ合計 = WorksheetFunction.Sum(Range(Cells(合計STR位置, 1), Cells(合計END位置, 1)))
Cells(合計END位置, 2) = ページ合計
合計STR位置 = 合計END位置 + 1
i = i + 1
Loop
'最終ページ合計
ページ合計 = WorksheetFunction.Sum(Range(Cells(合計STR位置, 1), Cells(使用ROW数, 1)))
Cells(使用ROW数, 2)
　



← 左の文字をここへ入力後 登録ボタンをクリックしてください

(サイト管理者承認後掲載されます)