Excel 请问如何在页眉中引用某个单元格中的内容
答案:3 悬赏:60 手机版
解决时间 2021-03-31 16:04
- 提问者网友:龅牙恐龙妹
- 2021-03-31 04:28
Excel 请问如何在页眉中引用某个单元格中的内容
最佳答案
- 五星知识达人网友:杯酒困英雄
- 2021-03-31 05:01
1、进入VBA,输入
Sub Myrange()
ActiveSheet.PageSetup.CenterHeader = "" & ActiveCell.Value
End Sub
2、点击将引用的单元格(作为页眉的中间项目)----执行下Myrange这个宏,然后再看你的打印预览:
2.1例如:页眉为空
2.2执行下Myrange这个宏,选定的单元格为C2,内容为“利息”
2.3结果:
Sub Myrange()
ActiveSheet.PageSetup.CenterHeader = "" & ActiveCell.Value
End Sub
2、点击将引用的单元格(作为页眉的中间项目)----执行下Myrange这个宏,然后再看你的打印预览:
2.1例如:页眉为空
2.2执行下Myrange这个宏,选定的单元格为C2,内容为“利息”
2.3结果:
全部回答
- 1楼网友:西岸风
- 2021-03-31 06:14
直接设置好像不行,可以用VBA做到,假设要引用A1的内容且居中:
CTRL+F11,在左边双击ThisWorkBook,在右边的代码窗口输入代码,完成后如下:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = Range("A1").Text
.RightHerder=""
End Sub
p.s.:页眉左边与右边你可以自己加入需要的内容
CTRL+F11,在左边双击ThisWorkBook,在右边的代码窗口输入代码,完成后如下:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = Range("A1").Text
.RightHerder=""
End Sub
p.s.:页眉左边与右边你可以自己加入需要的内容
- 2楼网友:冷風如刀
- 2021-03-31 05:46
在页眉中引用某个单元格中的内容,要用VBA:
Sub 设置页眉()
With ActiveSheet.PageSetup
.LeftHeader = Range("A1") '页眉 左内容
.CenterHeader = Range("A2") '页眉 中内容
.RightHeader = Range("A2") '页眉 右内容
End With
End Sub
Sub 设置页眉()
With ActiveSheet.PageSetup
.LeftHeader = Range("A1") '页眉 左内容
.CenterHeader = Range("A2") '页眉 中内容
.RightHeader = Range("A2") '页眉 右内容
End With
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯