如何设置excel使其每页顶端标题不同,顶端标题中有中文页码?

发布网友发布时间：2022-04-26 10:14

共3个回答

热心网友时间：2022-06-08 09:50

设置excel使其每页顶端标题不同，顶端标题中有中文页码的方法：
【1】这个很简单。在“视图”选项卡中将工作薄视图改为“页面布局”，在每一页的页眉处有一行字“单击可添加页眉”。单击，然后把“百度知道报表（）”然后把光标定为在（）中，点击插入页面元素选项卡中有一个“页码”，就可以了。只要这一页上有非空的单元格，自动就会在（）中填充页码了。但是这个页码只能是阿拉伯数字的，至于要用汉字，目前是没有办法解决的。
【2】如果是在页眉中设置转化成中文比较麻烦，在标题行中设置就简单多了。
代码可以这样来写：先获得表格的所有行数，然后A3纸一页多少行，用总行数除以一页的行数就得到需要打印多少页了，这个就是循环打印的次数。代码执行打印时，先设置第一页的打印区域并将标题行中的页数替换为中文的（一），再从已打印区域的下一行开始设置第二页的打印区域，重复执行若干次就可以了。
设置好打印区域后运行下面代码，代码在03版本调试通过，试试：
Option Base 1
Sub PrintOut()
'数组中设置了可显示40页中文页码，视需要添加
MyArr = Array("一", "二", "三", "四", "五", "六", "七", "八", "九", "十", "十一", "十二", "十三", "十四", "十五", "十六", "十七", "十八", _
"十九", "二十", "二十一", "二十二", "二十三", "二十四", "二十五", "二十六", "二十七", "二十八", "二十九", "三十", "三十一", "三十二", "三十三", _
"三十四", "三十五", "三十六", "三十七", "三十八", "三十九", "四十")
For p = 1 To ActiveSheet.HPageBreaks.Count + 1
Range("a1") = "百度知道报表 (" & MyArr(p) & ")" '标题自己修改下
ActiveWindow.SelectedSheets.PrintOut From:=p, To:=p
Next
End Sub

热心网友时间：2022-06-08 09:50

这个很简单。在“视图”选项卡中将工作薄视图改为“页面布局”，在每一页的页眉处有一行字“单击可添加页眉”。你就单击，然后把“百度知道报表（）”然后把光标定为在（）中，点击插入页面元素选项卡中有一个“页码”，就可以了。只要你这一页上有非空的单元格，自动就会在（）中填充页码了。但是这个页码只能是阿拉伯数字的，至于你要用汉字，目前是没有办法解决的

热心网友时间：2022-06-08 09:51

方法一、
1.页面设置--页眉/页脚--自定义页眉；
2.页眉“中”写入：第“插入页码”页共“插入页数”页（注：以上“插入页码”“插入页数”为按钮，或者复制这段文字：“第&[页码]页共&[总页数]页”放入页眉）；
3.利用“回车”和“空格”将“页码”一点点的移动至所需要的位置即可。