www.jbmf.net > 求VBA高手解答!引用单元格作为页眉并设置页眉字体问题

求VBA高手解答!引用单元格作为页眉并设置页眉字体问题

用一个变量,如内容 x="abcd",字号 y="72" 就是:ActiveSheet.PageSetup.RightHeader= "&"&y&x

Sub test() Application.PrintCommunication = False With ActiveSheet.PageSetup .LeftHeader = "" '页眉左设置为:空 .CenterHeader = "&F" '页眉中设置为:文件名 .RightHeader = "" '页眉右设置为:空 .LeftFooter = "&B 机密 &B" '页脚

sub pagecenter() activesheet.pagesetup.centerheader = range("a1") & "市的天气预报" end sub 被激活的工作表设置页眉

你可以用Workbook_SheetSelectionChange时间,即选择区域改变是执行,也就是其他单元格点下就行了~ Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) With ActiveSheet.PageSetup .RightHeader = "&""Arial""&10&A " & Cells(4, 4) & " Page &P/&N" End With End Sub

1、进入VBA,输入 Sub Myrange() ActiveSheet.PageSetup.CenterHeader = "" & ActiveCell.Value End Sub2、点击将引用的单元格(作为页眉的中间项目)----执行下Myrange这个宏,然后再看你的打印预览:2.1例如:页眉为空2.2执行下Myrange这个宏,选定的单元格为C2,内容为“利息”2.3结果:

你说的是固定首行吧?如下代码:With ActiveSheet.PageSetup .PrintTitleRows = "$1:$1" .PrintTitleColumns = "" End With

使用这段代码ActiveDocument.Sections(1).Headers(1).Range.Tables(1).Cell(1,1).range.Text得到页眉的表格第一个单元格的文字.

视图--页面布局--添加页眉.在普通视图里看不到页眉.

先设好页眉日期,再修改系统日期.或者用VBA代码引用A1单元格内容: With ActiveSheet.PageSetup .LeftHeader = cells(1,1) End With

cells(1,1).value2如此才可以

相关搜索:

网站地图

All rights reserved Powered by www.jbmf.net

copyright ©right 2010-2021。
www.jbmf.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com