vba怎么设置页眉页脚

存在很多工作表的时候，如何统一设置页码而不改变各个工作各自的缩放比例和纵向横向及其他设置。Sheets(Array("Sheet2","Sheet3")).SelectS... 存在很多工作表的时候，如何统一设置页码而不改变各个工作各自的缩放比例和纵向横向及其他设置。
Sheets(Array("Sheet2", "Sheet3")).Select
Sheets("Sheet2").Activate
With ActiveSheet.PageSetup
.LeftFooter = ""
.CenterFooter = "&P"
.RightFooter = ""
End With
上面代码只能设置sheet2和sheet3，并且是从sheet2开始设置的，我是用录制宏录制出来的，请问怎么修改然后可以设置当前所有工作表呢？
表的数量是不确定的。。。不是指sheet1 sheet2 sheet3 展开

 我来答

1个回答

#合辑# 面试问优缺点怎么回答最加分？

mfkinfo
推荐于2016-09-02 · TA获得超过6348个赞

知道大有可为答主

回答量：4553

采纳率：83%

帮助的人：947万

我也去答题访问个人页

关注

展开全部

Sheets(Array("Sheet1","Sheet2", "Sheet3")).Select

Sheets("Sheet1").Activate

试试

追问

这样也只是3个表啊，表的数量是不确定的

追答

Public Sub SheetsPageSetup()
‘设置当前文档里所有表格页面
Application.ScreenUpdating = False

Dim oCurSheet As String
oCurSheet = ActiveSheet.Name

Dim intSheets As Integer
intSheets = ThisWorkbook.Worksheets.Count

For cx = 1 To intSheets
    Sheets(cx).Activate
    
    With ActiveSheet.PageSetup
            .LeftFooter = ""
            .CenterFooter = "&P"
            .RightFooter = ""
    End With
Next
 Sheets(oCurSheet).Select

Application.ScreenUpdating = True
End Sub