[[20080124131428]]　『ヘッダーやフッターにそのページ内にある列の合計（自動計算）を入れることはできませんか』 (pin）　ページの最後に飛ぶ

『ヘッダーやフッターにそのページ内にある列の合計（自動計算）を入れることはできませんか』 (pin）

 これですね。
[[20080122121546]]『ヘッダーやフッターにページの合計（自動計算）を入れることはできませんか？』（pin）

 マクロを書くことになると思います。
 A10セルに合計が表示されていて、フッター中央に表示する例です。　(Hatch)
Sub ft00()
    Dim Sh As Worksheet
    Set Sh = Worksheets("Sheet2")
    Sh.PageSetup.CenterFooter = Sh.Range("A10").Value
    Sh.PrintPreview
End Sub

(Hatch)さん、ありがとうございます。
A列に数値が入力されていて数ページにまたがる場合、
１ページの合計をそのページのフッターに入れたいのです。できますか？

 1ページ目にどのセル範囲が印刷されるのかが分かれば
 マクロの中で計算させればよいと思います。
 複数ページにわたるとなると、各ページごとに計算して印刷を繰り返せば
 できるとは思うのですが・・・
 また、シート内の各列とフッターの合計の位置を合わせるとか結構手間が
 かかりそうな気もしないではありません。。。

 一層のこと、印刷用のシートを作成して、各ページ下に合計を表示するように
 マクロを作成された方が早いと思ったりもします。　　 (Hatch)

コメント返信：

[ 一覧(最新更新順) ]

[[20080124131428]] 『ヘッダーやフッターにそのページ内にある列の合計（自動計算）を入れることはできませんか』 (pin） ページの最後に飛ぶ

[[20080124131428]]　『ヘッダーやフッターにそのページ内にある列の合計（自動計算）を入れることはできませんか』 (pin）　ページの最後に飛ぶ