VBA一覧

Excelのページフッター変更VBA

【要件】
ExcelのBookに含まれるすべてのSheetのページフッターを一括で修正したい。
※ExcelのSheetごとにフッター設定をするのは手間がかかるため。

【実装方法】
例)すべてのSheetのページフッター(左)に設定されている文字列「2016」を「2009」に変更する。

Sub editFooter()
    Dim i As Integer
    Dim wkb As Workbook
    Set wkb = ThisWorkbook

    For i = 1 To wkb.Sheets.Count
        wkb.Sheets(i).PageSetup.LeftFooter = Replace(wkb.Sheets(i).PageSetup.LeftFooter, "2016", "2009")
    Next
End Sub