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

发布网友 发布时间：2022-04-23 05:26

我来回答

共3个回答

热心网友 时间：2022-04-29 20:26

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

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

热心网友 时间：2022-04-29 21:44

用万能的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，点击打印预览，结果如图：

热心网友 时间：2022-04-29 23:19

如果想打印时每页显示顶端标题行：点菜单“页面设置”——工作表——顶端工作行，按右边的图标，点选需要的行就可以了。
如果只是想编辑时总能看到顶端标题行，选定标题行下面一行——点菜单“窗口”——冻结窗体就可以了。