- シートに下図のようなデータが入力されています。
- 各年の合計を求めて、合計した結果をヘッダーに表示してみます。
合計の計算はワークシート関数のSUM関数を利用すると、
Application.WorksheetFunction.Sum(Range("C2:C13"))
と書くことができます。 - 表示形式はFormat関数を利用して、
Format(Application.WorksheetFunction.Sum(Range("C2:C13")), "#,##0")
としました。 - ヘッダーの指定や文字列とを結合すると、下表のようになりました。
Sub myHeader()
With ActiveSheet.PageSetup
.LeftHeader = "2012年PV合計" & Chr(10) & _
Format(Application.WorksheetFunction.Sum(Range("C2:C13")), "#,##0")
.CenterHeader = "2013年PV合計" & Chr(10) & _
Format(Application.WorksheetFunction.Sum(Range("C14:C25")), "#,##0")
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub - このVBAのコードを実行すると、印刷プレビューが表示され、ヘッダーを確認することができました。
- For〜Nextで計算範囲をループして加算した例です。
実行結果は同じですので、省略します。
Sub myHeader2()
Dim i As Long
Dim ans1 As Double, ans2 As Double
For i = 2 To 13
ans1 = ans1 + Cells(i, 3).Value
Next i
For i = 14 To 25
ans2 = ans2 + Cells(i, 3).Value
Next i
With ActiveSheet.PageSetup
.LeftHeader = "2012年PV合計" & Chr(10) & Format(ans1, "#,##0")
.CenterHeader = "2013年PV合計" & Chr(10) & Format(ans2, "#,##0")
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub