ไปยังเนื้อหาหลัก

วิธีระบุวันที่หรือรูปแบบวันที่และเวลาในส่วนหัวหรือส่วนท้าย?

ผู้เขียน: Xiaoyang แก้ไขล่าสุด: 2020-05-29

โดยปกติเมื่อคุณแทรกวันที่หรือเวลาลงในส่วนหัวหรือส่วนท้ายด้วย & [วันที่] or &[เวลา] รหัสรูปแบบวันที่หรือเวลาจะขึ้นอยู่กับการตั้งค่าภูมิภาคที่ควบคุมโดย Windows ในกรณีนี้คุณจะเปลี่ยนรูปแบบวันที่หรือวันที่ตามความต้องการของคุณเองในส่วนหัวหรือส่วนท้ายได้อย่างไรตามภาพหน้าจอต่อไปนี้

วันที่ในรูปแบบ doc ในส่วนหัว 1

ระบุรูปแบบวันที่หรือวันที่ในส่วนหัวหรือส่วนท้ายด้วยรหัส VBA

ลูกศรสีฟ้าฟองขวา ระบุรูปแบบวันที่หรือวันที่ในส่วนหัวหรือส่วนท้ายด้วยรหัส VBA

ที่นี่ฉันจะแนะนำรหัส VBA ง่ายๆสำหรับคุณในการแก้ปัญหานี้ใน Excel โปรดทำดังนี้:

1. เปิดใช้งานแผ่นงานของคุณที่คุณต้องการแทรกและจัดรูปแบบวันที่ในส่วนหัวหรือส่วนท้ายแล้วคลิก เค้าโครงหน้ากระดาษ ปุ่มที่มุมล่างขวาของสมุดงานเพื่อเปิดใช้งานมุมมองเค้าโครงหน้าดูภาพหน้าจอ:

วันที่ในรูปแบบ doc ในส่วนหัว 2

2. กด ALT + F11 ใน Excel เพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

3. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.

รหัส VBA: แทรกและจัดรูปแบบวันที่ในส่วนหัวหรือส่วนท้าย:

Sub add_date_header()
ActiveSheet.PageSetup.CenterHeader = Format(Date, "mmmm dd, yyyy")
End Sub

หมายเหตุ: ในรหัสด้านบนคุณสามารถเปลี่ยนไฟล์ เซ็นเตอร์เฮดเดอร์ ไปยัง ส่วนหัวด้านซ้าย, เซ็นเตอร์ฟุตเตอร์…และรูปแบบวันที่ mmmm dd ปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปปป” ยังสามารถเปลี่ยนแปลงได้ตามที่คุณต้องการ

4. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และรูปแบบวันที่ที่คุณระบุได้ถูกแทรกลงในส่วนหัวหรือส่วนท้ายพร้อมกัน ดูภาพหน้าจอ:

วันที่ในรูปแบบ doc ในส่วนหัว 3

เคล็ดลับ: หากคุณต้องการแทรกรูปแบบวันที่เวลาของคุณเองลงในส่วนหัวหรือส่วนท้ายโปรดใช้รหัสด้านล่าง:

Sub Change_Format()
  ActiveSheet.PageSetup.CenterHeader = Format(Now, "MMMM DD, YYYY HH:MM:SS")
End Sub

และคุณจะได้รับผลลัพธ์ดังต่อไปนี้:

วันที่ในรูปแบบ doc ในส่วนหัว 4

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์  |   VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่   |  สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์   |  ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก:  12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (8)
No ratings yet. Be the first to rate!
Estefania
Estefania
This comment was minimized by the moderator on the site
Hi, how can I change to upper case the month? I tried a few things but doesn't work :(
Reply
0
0
skyyang
skyyang     Estefania
This comment was minimized by the moderator on the site
Hello, Estefania
To make the month in the date appear in uppercase, you can use the UCase function in VBA to convert the month to uppercase. Here’s how you can modify your code:
Sub add_date_header()
    ActiveSheet.PageSetup.CenterHeader = UCase(Format(Date, "mmmm dd, yyyy"))
End Sub


Please have a try, hope it can help you!
Reply
Report
0
0
jtlw
jtlw
This comment was minimized by the moderator on the site
How to specify date (1day advance date) format in header or footer?
Reply
0
0
skyyang
skyyang     jtlw
This comment was minimized by the moderator on the site
Hello,
To add the date 1day advanced totay, please apply the following code:
Sub SetAdvancedDateInHeader()
    Dim ws As Worksheet
    Set ws = ActiveSheet
    Dim tomorrow As Date
    tomorrow = Date + 1
    ws.PageSetup.CenterHeader = Format(tomorrow, "mm/dd/yyyy")
End Sub


Please have a try, hope it can help you!
Reply
Report
0
0
C Harvey
C Harvey
This comment was minimized by the moderator on the site
How can I add a text string immediately before my date (in a custom format? I would like my header to be e.g. "Printed 20 May 2021 14:06:30". My current VBA code is:Sub Change_Format()
ActiveSheet.PageSetup.RightHeader = Format(Now, "DD MMM YYYY HH:MM:SS")
End Sub
Reply
0
0
Kasra
Kasra
This comment was minimized by the moderator on the site
Hi, Thank You
Can I ask you how can I change the font and size of "Date" by VBA?
I mean with same code that you wrote for insert date into header by VBA.
Thanks
Reply
0
0
Paula McSorley
Paula McSorley
This comment was minimized by the moderator on the site
I use a dynamic print range in my spreadsheet and generate PDFs. Oddly enough, when I execute the above VBA code snippet, it resets the dynamic print range for my current worksheet to a static range. Is there any way to avoid that?
Reply
0
0
Judy Kunz
Judy Kunz
This comment was minimized by the moderator on the site
This doesn't seem to work anymore.
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations