怎样设定EXCEL整个工作簿的顶端标题栏

Posted 2023-04-28

非常谢谢以上之回答者，是打印时需要，但我想知道的是我有很多个工作表，但顶端的标题栏内容都不一样，有没有什么办法可以一次性的设定标题栏了，而不用一个个的设定

用万能的VBA可以实现。代码如下：

Sub Macro1()

Dim mys

For Each mys In ActiveWorkbook.Sheets

    mys.Select

    With ActiveSheet.PageSetup

        

        .CenterHeader = "XX公司项目进度表"

    End With

Next

End Sub

该宏的功能是：遍历当前工作簿的每个工作表，将每个工作表的页眉设置为"XX公司项目进度表"。

运行该宏后，点击SHEET2，点击打印预览，结果如图：

参考技术A 顶端标题行只能一个个工作表设置.
如果工作表特别多,可以使用下面的代码将当前工作簿的所有工作表的顶端标题行设置为$1:$1

Sub test()
For Each s In ThisWorkbook.Sheets
s.PageSetup.PrintTitleRows = "$1:$1"
Next
End Sub本回答被提问者采纳 参考技术B 如果想打印时每页显示顶端标题行：点菜单“页面设置”——工作表——顶端工作行，按右边的图标，点选需要的行就可以了。
如果只是想编辑时总能看到顶端标题行，选定标题行下面一行——点菜单“窗口”——冻结窗体就可以了。追问

非常谢谢以上之回答者，是打印时需要，但我想知道的是我有很多个工作表，但顶端的标题栏内容都不一样，有没有什么办法可以一次性的设定标题栏了，而不用一个个的设定

参考技术C 顶端标题行只能一个个工作表设置.
如果工作表特别多,可以使用下面的代码将当前工作簿的所有工作表的顶端标题行设置为$1:$1

Sub test()
For Each s In ThisWorkbook.Sheets
s.PageSetup.PrintTitleRows = "$1:$1"
Next
End Sub
回答的很好，这个需要选中所有工作表，在标签处单击右键选择“查看代码”，将上述代码复制到出现的空白框里，运行后，返回就可以了。 参考技术D 页面设置 之 工作表 为顶端标题行

excel怎样恢复未保存的工作簿文件？

1、首先，我们打开我们的电脑，然后我们打开我们电脑上面的excel，之后我们点击左上角的文件；

2、弹出的界面，我们点击版本管理下方的下拉箭头；

3、弹出的界面，我们点击恢复未保存的工作簿；

4、弹出的界面，如果里面有保存前的工作簿的话，我们点击选中，然后点击打开就可以了。

参考技术A 在文件里面，打开最近的文档