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

วิธีแทรกหมายเลขหน้าลงในเซลล์ / ส่วนหัว / ส่วนท้ายใน Excel

เมื่อคุณพิมพ์ไฟล์ Excel คุณอาจต้องใส่หมายเลขหน้าลงในหน้าเพื่อให้ไฟล์ที่พิมพ์ออกมาเรียบร้อยและอ่านง่าย ในบทความนี้ฉันจะแนะนำเคล็ดลับง่ายๆในการแทรกหมายเลขหน้าลงในเซลล์ส่วนหัวหรือส่วนท้ายให้กับคุณ

แทรกหมายเลขหน้าลงในส่วนหัว / ส่วนท้ายในแผ่นงานเดียว

แทรกหมายเลขหน้าลงในส่วนหัว / ส่วนท้ายในแผ่นงานหลายแผ่น

แทรกหมายเลขหน้าลงในเซลล์ด้วยรหัส VBA

ลบหมายเลขหน้าทั้งหมดพร้อมกันใน Excel


ลูกศรสีฟ้าฟองขวา แทรกหมายเลขหน้าลงในส่วนหัว / ส่วนท้ายในแผ่นงานเดียว

โดยปกติเราสามารถแทรกหมายเลขหน้าลงในส่วนหัวหรือส่วนท้ายได้อย่างรวดเร็วโดยใช้ไฟล์ ส่วนหัวและส่วนท้าย โปรดทำดังนี้:

1. ไปที่แผ่นงานที่คุณต้องการแทรกหมายเลขหน้าลงในส่วนหัวหรือส่วนท้าย

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

doc แทรกหมายเลขหน้า 1

3. คลิกส่วนหัวหรือส่วนท้ายที่คุณต้องการแทรกหมายเลขหน้าจากนั้นคลิก a ออกแบบ แท็บด้วย เครื่องมือส่วนหัวและส่วนท้าย จะปรากฏใน Ribbon จากนั้นคลิก ออกแบบ > เลขหน้าดูภาพหน้าจอ:

doc แทรกหมายเลขหน้า 2

4. และคุณสามารถดูตัวยึดได้ &[หน้า] ปรากฏในส่วนที่เลือกจากนั้นคลิกที่ใดก็ได้นอกพื้นที่ส่วนหัวหรือส่วนท้ายเพื่อแสดงหมายเลขหน้า ดูภาพหน้าจอ:

doc แทรกหมายเลขหน้า 3

5. ตอนนี้คุณสามารถรีเซ็ตกลับสู่มุมมองปกติได้โดยคลิก รายละเอียด > ปกติและเมื่อคุณพิมพ์แผ่นงานนี้คุณจะเห็นหมายเลขหน้าที่ถูกแทรกลงในส่วนหัวหรือส่วนท้ายที่คุณเลือก

หมายเหตุ: หากคุณต้องการให้หมายเลขหน้าที่แสดงเป็นรูปแบบ 1 จาก 15, 2 จาก 15 คุณต้องป้อนข้อมูลนี้โดยตรง & [เพจ] ของ & [เพจ] ลงในช่องฟิลด์ส่วนหัวหรือส่วนท้ายดูภาพหน้าจอ:

doc แทรกหมายเลขหน้า 4


ลูกศรสีฟ้าฟองขวา แทรกหมายเลขหน้าลงในส่วนหัว / ส่วนท้ายในแผ่นงานหลายแผ่น

วิธีการด้านบนสามารถช่วยคุณในการแทรกหมายเลขหน้าลงในแผ่นงานหนึ่งแผ่นหากคุณต้องการแทรกหมายเลขหน้าลงในแผ่นงานทั้งหมดของสมุดงานเพื่อให้ทุกหน้ามีหมายเลขตามลำดับโปรดทำดังนี้:

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

doc แทรกหมายเลขหน้า 5

2. ใน ตั้งค่าหน้ากระดาษ โปรดคลิก ส่วนหัว / ท้ายกระดาษ จากนั้นคลิกที่ ส่วนหัวที่กำหนดเอง or ส่วนท้ายที่กำหนดเอง เพื่อไปตั้งค่าส่วนหัวหรือส่วนท้ายที่คุณต้องการดูภาพหน้าจอ:

doc แทรกหมายเลขหน้า 6

3. และใน ส่วนหัว or ฟุตบอล โปรดกำหนดตำแหน่งที่ใส่หมายเลขหน้าโดยคลิกภายในไฟล์ ส่วนซ้าย:, ส่วนศูนย์:,หรือ ส่วนขวา: ตามที่คุณต้องการจากนั้นคลิก แทรกหมายเลขหน้า ไอคอนและตัวยึดตำแหน่ง &[หน้า] ปรากฏขึ้น ดูภาพหน้าจอ:

doc แทรกหมายเลขหน้า 7

หมายเหตุ ใส่ข้อมูลนี้ & [เพจ] ของ & [เพจ] ลงในช่องฟิลด์ส่วนหัวหรือส่วนท้ายหากคุณชอบหมายเลขหน้าที่แสดงเป็น 1 จาก 45, 2 จาก 45 ...

4. จากนั้นคลิก OK > OK เพื่อปิดกล่องโต้ตอบเมื่อคุณพิมพ์เวิร์กบุ๊กนี้ในตัวอย่างก่อนพิมพ์คุณจะเห็นหมายเลขหน้าทั้งหมดถูกแทรกลงในส่วนหัวหรือส่วนท้ายตามลำดับ


ลูกศรสีฟ้าฟองขวา แทรกหมายเลขหน้าลงในเซลล์ด้วยรหัส VBA

เป็นเรื่องง่ายที่คุณจะแทรกหมายเลขหน้าลงในส่วนหัวหรือส่วนท้าย แต่ถ้าคุณต้องการแทรกหมายเลขหน้าลงในเซลล์เวิร์กชีตไม่มีวิธีโดยตรงที่คุณจะทำได้ รหัส VBA ต่อไปนี้อาจช่วยคุณแก้ปัญหานี้ได้

1. คลิกเซลล์ที่คุณต้องการแสดงหมายเลขหน้าของเซลล์นี้

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

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

รหัส VBA: ใส่หมายเลขหน้าปัจจุบันลงในเซลล์:

Sub pagenumber()
'updateby Extendoffice 20160506
    Dim xVPC As Integer
    Dim xHPC As Integer
    Dim xVPB As VPageBreak
    Dim xHPB As HPageBreak
    Dim xNumPage As Integer
    xHPC = 1
    xVPC = 1
    If ActiveSheet.PageSetup.Order = xlDownThenOver Then
        xHPC = ActiveSheet.HPageBreaks.Count + 1
    Else
        xVPC = ActiveSheet.VPageBreaks.Count + 1
    End If
    xNumPage = 1
    For Each xVPB In ActiveSheet.VPageBreaks
        If xVPB.Location.Column > ActiveCell.Column Then Exit For
        xNumPage = xNumPage + xHPC
    Next
    For Each xHPB In ActiveSheet.HPageBreaks
        If xHPB.Location.Row > ActiveCell.Row Then Exit For
        xNumPage = xNumPage + xVPC
    Next
    ActiveCell = "Page " & xNumPage & " of " & Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub

4. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และหมายเลขหน้าของเซลล์นี้จะแสดงในเซลล์ที่เลือกดูภาพหน้าจอ:

doc แทรกหมายเลขหน้า 8


ลูกศรสีฟ้าฟองขวา ลบหมายเลขหน้าทั้งหมดพร้อมกันใน Excel

หากต้องการลบหมายเลขหน้าทั้งหมดคุณสามารถใช้ขั้นตอนต่อไปนี้:

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

doc แทรกหมายเลขหน้า 9

2. ใน ตั้งค่าหน้ากระดาษ คลิกตกลง ส่วนหัว / ท้ายกระดาษ แล้วเลือก (ไม่มี) จาก ส่วนหัว or ฟุตบอล รายการแบบเลื่อนลงดูภาพหน้าจอ:

doc แทรกหมายเลขหน้า 10

3. จากนั้นคลิก OK หมายเลขหน้าทั้งหมดจะถูกลบออกจากสมุดงานพร้อมกัน

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

🤖 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!
This comment was minimized by the moderator on the site
Hay forma de convertir esta sub en una función?
This comment was minimized by the moderator on the site
Hola,el codigo si me funciono, sin embargo al momento de imprimir, siempre me sale 1 de 5 y es que mi encabezado lo tengo como área de impresión en todas mis paginas, ¿hay alguna forma de lograr que al momento de imprimir, se pueda cambiar la pagina, en la misma pestaña?
This comment was minimized by the moderator on the site
May I know how I should modify above VBA that allows me to execute this to range of cells on a workbook and with 1 short cut key to apply all selected cells?
This comment was minimized by the moderator on the site
May I know if I have range of cells that I want to put in page numbers, what should I change? The current VBA only allows me to change one by one.
This comment was minimized by the moderator on the site
terima kasih, kawan
This comment was minimized by the moderator on the site
Hola, hay un error en la formula porque cuando ejecuto (F5) el primer valor numérico de "Pagina XX de XX" no cambia. Solo hace el conteo de páginas el segundo valor. Podrian revisar... Gracias
This comment was minimized by the moderator on the site
I tried the VBA macro, but I'm getting a subscript out of range error... Did I do something wrong?
This comment was minimized by the moderator on the site
Hello I used the Insert page number into cell with VBA code above and it works a charm. My sheet could be either 2 pages long (2 down and 1 across), 4 pages long (2 down and 2 across) or 6 pages long (2 down and 3 across). I have inserted the code in each cell of the 6 that require page number to be printed (by selecting the cells each in turn and running the VBA), cell addresses are H1, H35, T1, T35, AF1, AF35. Now I would like to add a button to refresh these page numbers without affecting whichever cell may be active when the relevant user may choose to run it, currently I have to select each cell in turn again and run the VBA :( Assistance would be hugely appreciated! Antoinette
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations