Excel
VBA

すべてのシートのページフッタを書き換える

More than 3 years have passed since last update.

あとから「この仕様書、下にコピーライトを印刷してほしい」などとほざかれたときのお供に。

Public Sub フッタ書き換え()
    Dim i As Long

    For i = 1 To Worksheets.count
        With Worksheets(i)
            ' 例えば、フッタの右側を書き換える
            .PageSetup.RightFooter = "All Rights Reserved, Copyright (C)hogehoge"
        End With
    Next
End Sub