如何让VBA添加的日期立即刷新？

Question

我使用以下代码为工作表添加页眉和页脚，

Sub Header()
    With ActiveSheet.PageSetup
        
        .LeftHeader = ""
        .CenterHeader = "xxxxxxxxxx Corp."
        .RightHeader = ""
        .LeftFooter = "Page:" & Chr(10) & "Prepared by/Date:" & Chr(10) & "Reviewed by/Date:"
        .CenterFooter = "&[Tab]" & Chr(10) & "&[File]"
        .RightFooter = "&[Time]" & Chr(10) & "&[Date]"
    End With
End Sub

但日期和时间不会自动更新。我必须手动点击它，它总是这样显示（点击之前）。

宏运行后可以立即刷新吗？

我总是在宏运行后自己点击它。

Answer 1

你的意思是这样吗

.RightFooter = "&[" & VBA.Time & "" & Chr(10) & " & " & VBA.Date & ""

这将在您运行代码时插入当前日期和时间。