时间戳

首页 > 解决方案 > 使用变量/计数器设置 Excel PageSetup.CenterHeader

excel - 使用变量/计数器设置 Excel PageSetup.CenterHeader

问题描述

在我的 xlsx 文件中，我有一页包含此字段的日期、时间、运营商、目的地，按日期/时间排序每次更改日期时，我都会插入 HPageBreaks

如何使用正确的数据打印中心标题？我尝试了 1K 没有 rigth 的方式，最后是在我的 Printarea.range 中设置一个变量，第一天减去一天，然后标题将是变量数据加上页码，显然它不起作用。有可能做我想的''有什么建议吗？

Titledata = 1th date to print - 1
With ActiveSheet.PageSetup
TitleData = TitleData + 1
    .CenterHeader = "&C Elenco servizi del " & Format(TitleData + "&P", "dd-mmm")
    .Orientation = xlLandscape
    .PrintArea = rgn.Address
    .PrintTitleRows = ActiveSheet.Rows(1).Address
    .Zoom = False
    .FitToPagesTall = False
    .FitToPagesWide = False
End With

标签： excelvbaprinting

解决方案

我写这篇文章是为了向您展示如何将日期增加 1 天。如果您需要增加月份，只需在 Dateadd 函数中将“d”更改为“m”

这将对工作簿中的每个工作表执行此操作，每个新工作表都会增加 x。您可以使用 sh.index 而不是 x 变量来执行此操作。

我希望这有助于一些人向您展示什么是可能的。

Sub Day_increase_header()
x = 0
For Each sh In Sheets

With sh.PageSetup
TitleData = Date
    .CenterHeader = "&C Elenco servizi del " & Format(DateAdd("d", x, TitleData), "dd-mmm")
    .Orientation = xlLandscape
    '.PrintArea = rgn.Address
    .PrintTitleRows = ActiveSheet.Rows(1).Address
    .Zoom = False
    .FitToPagesTall = False
    .FitToPagesWide = False
End With
x = x + 1
Next sh
End Sub

推荐阅读