Xoá Header & Footer (1 người xem)

[luckylucke_2009]

Nhờ A/C nghiên cứu giúp có cách nào xoá header & footer nhanh hơn đoạn code của tôi hơi chậm. Cám ơn!

Sub xoa_hf()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
    End With
Next
MsgBox "Xong!"
End Sub

 

[ndu96081631]

Nhờ A/C nghiên cứu giúp có cách nào xoá header & footer nhanh hơn đoạn code của tôi hơi chậm. Cám ơn!

Sub xoa_hf()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
    With [COLOR=#ff0000]ActiveSheet[/COLOR].PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
    End With
Next
MsgBox "Xong!"
End Sub

Thì code vậy thôi chứ còn sao nữa
Có điều chổ màu đỏ là sai ---> Thay bằng Sh mới đúng

Sub xoa_hf()
   Dim Sh As Worksheet
   For Each Sh In ThisWorkbook.Worksheets
      With [COLOR=#ff0000]Sh[/COLOR].PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
      End With
   Next
   MsgBox "Xong!"
End Sub