请问怎样复制工作表的页眉页脚？

lea · 发表于 2003-7-15 17:05

怎样在工作表之间复制页眉页脚呢？比如我做6月份的应收应付表时，就直接把5月份的应收应付表copy一份再填上6月份的数据，但是页眉页脚并没有同时copy过来，要怎么办呢？请教：）

lea · 发表于 2003-7-16 08:59

呵呵，偶是初生菜鸟，，虽然很不好意思，还是厚厚脸皮来问一下：这些程序应该写在哪里啊，呵呵？

lea · 发表于 2003-7-16 09:33

哦哦哦，我知道了，在宏里试过，pass！多谢多谢，呵呵

XXW0409 · 发表于 2003-7-18 15:01

有一个简单实用的方法：5月份的表页眉、页脚是已经设置好的，将5月份的表复制一粉份到6月份，此时页眉、页脚无法复制过来，很简单，将5月份的表置为当前工作表，在“文件”下拉菜单中单击页面设置，在确定，然后在将6月份的表置为当前工作表，在“编辑”下拉菜单中单击“重复页面设置”即可。

sqac · 发表于 2003-7-15 21:05

Sub 复制工作表页眉页脚()
'本示例将sheet1中的页眉页脚复制到sheet2中
Dim sourceSheet As Worksheet
Dim objectSheet As Worksheet
Set sourceSheet = Worksheets("sheet1") '来源工作表
Set objectSheet = Worksheets("sheet2") '目标工作表
objectSheet.PageSetup.LeftHeader = sourceSheet.PageSetup.LeftHeader
objectSheet.PageSetup.CenterHeader = sourceSheet.PageSetup.CenterHeader
objectSheet.PageSetup.RightHeader = sourceSheet.PageSetup.RightHeader
objectSheet.PageSetup.LeftFooter = sourceSheet.PageSetup.LeftFooter
objectSheet.PageSetup.CenterFooter = sourceSheet.PageSetup.CenterFooter
objectSheet.PageSetup.RightFooter = sourceSheet.PageSetup.RightFooter
End Sub

五百年/太阳 · 发表于 2013-1-6 15:27

good,
5楼方法好！

		自动登录	找回密码
密码			免费注册

[讨论] 请问怎样复制工作表的页眉页脚？