对所有工作表进行页面设置，这样写为什么不对？

jlwsb

1. Sub 对所有工作表进行页面设置()
   
2. 
   
3.     Worksheets.Select
   
4.     With ActiveSheet.PageSetup       '活动工作表.页面设置
   
5.         .Orientation = xlLandscape     '横向
   
6.         '.FirstPageNumber = True       '起始页码 = -1
   
7.         .LeftMargin = 14.173228        '页边距左 = 0.5 厘米
   
8.         .RightMargin = 14.173228      '页边距右 = 0.5 厘米
   
9.         .TopMargin = 14.173228        '页边距上 = 0.5 厘米
   
10.         .BottomMargin = 14.173228   '页边距下 = 0.5 厘米
    
11.         .HeaderMargin = 0                 '页边距页眉 = 0 厘米
    
12.         .FooterMargin = 0                  '页边距页脚 = 0 厘米
    
13.         .CenterHorizontally = True      '居中方式-水平 = 真
    
14.         '.CenterVertically = False        '居中方式-垂直 = 假
    
15.         .PaperSize = xlPaperA4          '纸张大小 = A4
    
16.     End With
    
17. 
    
18. End Sub

复制代码

手动操作：选中所有工作表，页面设置，成功


可是 写成代码 后，就只有第一个 工作表 进行了页面设置，其他的都没有变。

用代码对每一个工作表挨个进行页面设置 可以成功，但是感觉 速度慢了点，

有什么好办法吗？

半百

试试

wengjl

Sub 对所有工作表进行页面设置()
    for i=1 to worksheets.count
    Worksheets(i).Select
    With ActiveSheet.PageSetup       '活动工作表.页面设置
        .Orientation = xlLandscape     '横向
        '.FirstPageNumber = True       '起始页码 = -1
        .LeftMargin = 14.173228        '页边距左 = 0.5 厘米
        .RightMargin = 14.173228      '页边距右 = 0.5 厘米
        .TopMargin = 14.173228        '页边距上 = 0.5 厘米
        .BottomMargin = 14.173228   '页边距下 = 0.5 厘米
        .HeaderMargin = 0                 '页边距页眉 = 0 厘米
        .FooterMargin = 0                  '页边距页脚 = 0 厘米
        .CenterHorizontally = True      '居中方式-水平 = 真
        '.CenterVertically = False        '居中方式-垂直 = 假
        .PaperSize = xlPaperA4          '纸张大小 = A4
    End With
    next i
End Sub

ykcbf1100

表循环比较靠谱一点。

taller

jlwsb

taller 发表于 2023-1-21 02:12

你这编辑器很好

taller

jlwsb 发表于 2023-1-21 11:40
你这编辑器很好

Sublime Text