页眉页脚问题

ャ想想ャ

求教！各位大侠！
如附件中，设置页眉和页脚是否也可以定义相应的格式？
1、页眉中的日期使用当前日期，格式是“05/08/19"
2、页脚中相应的代码COU050819，引用sheet2中的A1单元格
3、页脚中相应的date in和date out日期，引用Sheet2中的A2和A3单元格日期，同样格式”dd/mm/yy"
排版样式如附表中。

请大家指教，谢谢！

liulang0808

Sub test()

    With ActiveSheet.PageSetup

        .RightHeader = Format(Date, "dd/mm/yy") & Chr(10) & "&T"
        .LeftFooter = _
        "BLK  afafafadfaefafafaffafeafafeefafaf" & Chr(10) & "        COU070819 Status all" & Chr(10) & "        Date in " & Format(Sheets(2).[b2], "dd/mm/yy") & "  Date out " & Format(Sheets(2).[b3], "dd/mm/yy") & Chr(10) & ""

    End With


End Sub

ャ想想ャ

liulang0808 发表于 2019-8-5 21:46
Sub test()

    With ActiveSheet.PageSetup

请问版主能教一下这个chr的用法吗？或者有没有相关的精华文章，可以供小妹学习一下？谢谢。

我是来讨说法的

ャ想想ャ 发表于 2019-8-5 21:56
请问版主能教一下这个chr的用法吗？或者有没有相关的精华文章，可以供小妹学习一下？谢谢。

chr是个内置的函数，按F1可以看帮助

ャ想想ャ

我是来讨说法的 发表于 2019-8-6 08:54
chr是个内置的函数，按F1可以看帮助

您好，老师。
请问我的代码为什么会有问题？可否指教一下？
rightheader：不知道为什么没办法修改字体格式和大小，不知道哪里写的不对。
leftfooter：标注的日期格式无法显示，只能显示成”DD-MM-YY“，不能显示成"DD/MM/YY".

谢谢。
With Sheet1.PageSetup
        .LeftHeader = "&G"
        .CenterHeader = _
        "&""Arial,常规""&10Shangri-La Hotel, Nanchang" & Chr(10) & "" & Chr(10) & "OPMS-GRP Group Rooming List" & Chr(10) & ""
         .RightHeader = "&""Arial,常规""&7&"Format(Date, "dd/mm/yy") "& Chr(10) & "&T
                     .LeftFooter = _
        "&""Arial,常规""&7Filter   ***From Stay Date " & Format(Sheet2.[b2], "dd/mm/yy") & " ***To Stay Date " & Format(Sheet2.[b3], "dd/mm/yy") & Chr(10) & "          Room Class All  Room Type All  Payment Method All" & Chr(10) & "          Block code " & Sheet2.[b1]
        .CenterFooter = "&""Arial,常规""&7Page &P of &N" & Chr(10) & "" & Chr(10) & ""
        .RightFooter = "&""Arial,常规""&7grprmist" & Chr(10) & "" & Chr(10) & ""

    End With

ャ想想ャ

liulang0808 发表于 2019-8-5 21:46
Sub test()

    With ActiveSheet.PageSetup

您好，按照您给的代码，为什么我无法实现希望的格式呢？能帮看下楼上的代码吗？谢谢！

ャ想想ャ

有人能帮助解决这个问题不？感觉帖子沉下去了。。。。

liulang0808

ャ想想ャ 发表于 2019-8-6 22:00
您好，老师。
请问我的代码为什么会有问题？可否指教一下？
rightheader：不知道为什么没办法修改字体 ...

楼主可以录制一段设置页眉页脚的代码，然后对比看看的