如何将工作簿的某一单元格用来作为页眉

veyafg · 发表于 2007-4-24 19:03

如何将工作簿的某一单元格用来作为页眉内容，当然，可能是工作表1中的内容来用作其它工作表的页眉。

liujy · 发表于 2007-4-24 19:12

好问题！我也曾经这样想过，但实现不了。请那位老大路过的时候看一下。谢谢了！

LangQueS · 发表于 2007-4-24 19:23

修改录制宏得到的代码：

Sub 定义指定单元内容为页眉()
BBB = Sheets("表1").Range("A2")
    With ActiveSheet.PageSetup
        .CenterHeader = BBB
    End With
End Sub

LangQueS · 发表于 2007-4-24 19:26

做个附件：

mQlrUS8S.rar (7.35 KB, 下载次数: 221)

liujy · 发表于 2007-4-24 19:26

QUOTE:

以下是引用LangQueS在2007-4-24 19:23:23的发言：

修改录制宏得到的代码：

Sub 定义指定单元内容为页眉()
BBB = Sheets("表1").Range("A2")
    With ActiveSheet.PageSetup
        .CenterHeader = BBB
    End With
End Sub

谢谢LangQueS兄弟！我怎么把学习VBA的重要方式——录制宏得到的代码给忘记了。[em04][em04]

三十而立 · 发表于 2007-4-24 21:51

那页脚怎么实现呢

alfen0000 · 发表于 2007-4-24 23:25

厉害阿，大侠

LangQueS · 发表于 2007-4-25 01:48

QUOTE:

以下是引用三十而立在2007-4-24 21:51:11的发言：

那页脚怎么实现呢

可以也录制个宏再修改。

将4楼附件中的： .CenterHeader = BBB
修改为： .CenterFooter = BBB

[此贴子已经被作者于2007-4-25 1:53:15编辑过]

veyafg · 发表于 2007-4-25 18:14

高手，就是高！

不知道能不能不用到宏？

[此贴子已经被作者于2007-4-25 18:15:39编辑过]

LangQueS · 发表于 2007-4-25 21:57

QUOTE:

以下是引用veyafg在2007-4-25 18:14:14的发言：

高手，就是高！

不知道能不能不用到宏？

用宏是比较简单的办法，不知楼主是否有什么特殊需求？

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