存在很多工作表的时候，如何统一设置页码而不改变各个工作各自的缩放比例和纵向横向及其他设置。
Sheets(Array("Sheet2", "Sheet3")).Select
Sheets("Sheet2").Activate
With ActiveSheet.PageSetup
.LeftFooter = ""
.CenterFooter = "&P"
.RightFooter = ""
End With
上面代码只能设置sheet2和sheet3，并且是从sheet2开始设置的，我是用录制宏录制出来的，请问怎么修改然后可以设置当前所有工作表呢？
表的数量是不确定的。。。不是指sheet1 sheet2 sheet3
vba怎么设置页眉页脚
答案:2 悬赏:50 手机版
解决时间 2021-03-15 16:36
- 提问者网友：骑士
- 2021-03-14 21:07
最佳答案
- 五星知识达人网友：几近狂妄
- 2021-03-14 22:09
sub pagecenter() activesheet.pagesetup.centerheader = range("a1") & "市的天气预报" end sub 被激活的工作表设置页眉
全部回答
- 1楼网友：末日狂欢
- 2021-03-14 23:06
Sheets(Array("Sheet1","Sheet2", "Sheet3")).Select
Sheets("Sheet1").Activate
试试
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯