[已解决]一个工作薄里的其中几个工作表改页脚

神七飞天

Private Sub CommandButton1_Click()
   With Sheets("T3乙")
   .PageSetup.LeftFooter = Sheets("T2").Range("A25") & "            " & Sheets("T2").Range("C25")
   .PageSetup.CenterFooter = Sheets("T2").Range("D25") & "             " & Sheets("T2").Range("G25")
   .PageSetup.RightFooter = Sheets("T2").Range("H25")
   End With
     With Sheets("T3甲")
   .PageSetup.LeftFooter = Sheets("T2").Range("A25") & "            " & Sheets("T2").Range("C25")
   .PageSetup.CenterFooter = Sheets("T2").Range("D25") & "             " & Sheets("T2").Range("G25")
   .PageSetup.RightFooter = Sheets("T2").Range("H25")
     End With
End Sub
能不能简化的，因为我还有几个表，要是按这样写会很长，不是整个工作薄里的所有表要改，是其中几个，所有的要改还好点，加个变量就行了，这样的就不知道怎么弄了。

最佳答案

月排行榜 / 总排行榜

bb75308973

2012-3-22 17:55

没附件不好弄
不过这里提示你
用For循环遍历每一个表
然后循环里面来个IF判断工作表名,排除你不要改的表,或者包括你要改的表就好了!这样更改页脚的代码就只有三条了

1. Private Sub CommandButton1_Click()
   
2. Dim sh As Worksheet
   
3. For Each sh In Sheets
   
4.     If sh.Name = "T3乙" And sh.Name = "T3甲" Then '这里你加上你要改的表或者If sh.Name <> "T3丁" And sh.Name <> "T3丙" Then 排除你不要改的表
   
5.          With sh
   
6.         .PageSetup.LeftFooter = Sheets("T2").Range("A25") & "            " & Sheets("T2").Range("C25")
   
7.         .PageSetup.CenterFooter = Sheets("T2").Range("D25") & "             " & Sheets("T2").Range("G25")
   
8.         .PageSetup.RightFooter = Sheets("T2").Range("H25")
   
9.         End With
   
10.     End If
    
11. Next
    
12. End Sub
    

复制代码

跳转到最佳答案楼层

bb75308973

没附件不好弄
不过这里提示你
用For循环遍历每一个表
然后循环里面来个IF判断工作表名,排除你不要改的表,或者包括你要改的表就好了!这样更改页脚的代码就只有三条了

1. Private Sub CommandButton1_Click()
   
2. Dim sh As Worksheet
   
3. For Each sh In Sheets
   
4.     If sh.Name = "T3乙" And sh.Name = "T3甲" Then '这里你加上你要改的表或者If sh.Name <> "T3丁" And sh.Name <> "T3丙" Then 排除你不要改的表
   
5.          With sh
   
6.         .PageSetup.LeftFooter = Sheets("T2").Range("A25") & "            " & Sheets("T2").Range("C25")
   
7.         .PageSetup.CenterFooter = Sheets("T2").Range("D25") & "             " & Sheets("T2").Range("G25")
   
8.         .PageSetup.RightFooter = Sheets("T2").Range("H25")
   
9.         End With
   
10.     End If
    
11. Next
    
12. End Sub
    

复制代码

神七飞天

谢谢，以后我要多想想。