วิธีใส่ค่าเซลล์ในส่วนหัว / ส่วนท้ายใน Excel

เราสามารถแทรกส่วนหัวหรือส่วนท้ายที่มีเส้นทางไฟล์ชื่อไฟล์วันที่ปัจจุบันหรือข้อมูลอื่น ๆ ได้อย่างง่ายดายด้วยคุณลักษณะของ Excel แต่บางครั้งเราต้องการใช้ค่าของเซลล์เป็นส่วนหัวหรือส่วนท้ายใน Excel เราจะใส่เนื้อหาของเซลล์ลงในส่วนหัวหรือส่วนท้ายในสมุดงานได้อย่างไร?

ใส่ค่าเซลล์ในส่วนหัวหรือส่วนท้ายของแผ่นงานด้วยรหัส VBA

ใส่ค่าเซลล์ในส่วนหัวหรือส่วนท้ายของแผ่นงานทั้งหมดด้วยรหัส VBA

แทรกข้อมูลไฟล์ลงในส่วนหัว / ส่วนท้ายด้วย Kutools for Excel

ใส่ค่าเซลล์ในส่วนหัวหรือส่วนท้ายของแผ่นงานด้วยรหัส VBA

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

1. ใช้งานเวิร์กชีตของคุณซึ่งคุณต้องการแทรกลำดับหรือส่วนท้ายด้วยค่าเซลล์จากนั้นกดไฟล์ ALT + F11 และจะเปิดไฟล์ หน้าต่าง Microsoft Visual Basic for Applications.

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

รหัส VBA: ใส่ค่าเซลล์ที่ระบุในส่วนหัวของแผ่นงาน

Sub HeaderFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftHeader = WorkRng.Range("A1").Value
End Sub

3. จากนั้นกด F5 คีย์ในการเรียกใช้รหัสนี้กล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนให้คุณเลือกเซลล์ที่คุณต้องการใส่เนื้อหาลงในส่วนหัว

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

หมายเหตุ:

1. หากคุณต้องการใช้เนื้อหาของเซลล์เป็นส่วนท้ายของแผ่นงานที่ใช้งานอยู่คุณสามารถใช้รหัสนี้:

รหัส VBA: ใส่ค่าเซลล์ที่ระบุไว้ในส่วนท้ายของแผ่นงาน

Sub FooterFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftFooter = WorkRng.Range("A1").Value
End Sub

2. คุณยังสามารถใช้รหัสด้านบนเพื่อแทรกค่าของเซลล์กับส่วนหัว / ส่วนท้ายด้านขวาหรือส่วนหัว / ส่วนท้ายตรงกลางได้เพียงแค่แทนที่ ส่วนหัวด้านซ้าย / ด้านซ้าย กับ หัวขวา / เท้าขวา or เซ็นเตอร์เฮดเดอร์ / เซ็นเตอร์ฟุตเตอร์ ในรหัส

ใส่ค่าเซลล์ในส่วนหัวหรือส่วนท้ายของแผ่นงานทั้งหมดด้วยรหัส VBA

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

1. เปิดใช้งานสมุดงานของคุณซึ่งคุณต้องการแทรกเส้นประหรือส่วนท้ายด้วยค่าเซลล์จากนั้นกดไฟล์ ALT + F11 และจะเปิดไฟล์ หน้าต่าง Microsoft Visual Basic for Applications.

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

รหัส VBA: ใส่ค่าเซลล์ที่ระบุไว้ในส่วนท้ายของแผ่นงานทั้งหมด

Sub AddFooterToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
    ws.PageSetup.LeftFooter = WorkRng.Range("A1").Value
Next
End Sub

3. จากนั้นกด F5 คีย์ในการรันโค้ดนี้กล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนให้คุณเลือกเซลล์ที่คุณต้องการใส่เนื้อหาในส่วนท้ายของเวิร์กบุ๊กทั้งหมด

4. จากนั้นคลิก OKค่าเซลล์ที่เลือกนี้ได้ถูกเพิ่มลงในส่วนท้ายซ้ายของเวิร์กชีตทั้งหมด คุณสามารถดูส่วนท้ายได้โดยคลิก เนื้อไม่มีมัน > พิมพ์. ดูภาพหน้าจอ:

หมายเหตุ:

1. หากคุณต้องการใช้เนื้อหาของเซลล์เป็นส่วนหัวของสมุดงานทั้งหมดคุณสามารถใช้รหัสนี้:

รหัส VBA: ใส่ค่าเซลล์ที่ระบุในส่วนหัวของแผ่นงานทั้งหมด

Sub AddHeaderToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
    ws.PageSetup.LeftHeader = WorkRng.Range("A1").Value
Next
End Sub

2. ทดแทน RightHeader / Footer or CenterHeader / Footer for LeftHeader / Footer ในรหัสด้านบนหากคุณต้องการให้ส่วนหัวหรือส่วนท้ายอยู่ในตำแหน่งที่แตกต่างกัน

แทรกข้อมูลไฟล์ลงในส่วนหัว / ส่วนท้ายด้วย Kutools for Excel

ถ้าคุณต้องการแทรกข้อมูล filer ลงในส่วนหัวหรือส่วนท้ายเช่นชื่อแผ่นงาน / สมุดงานเส้นทางสมุดงานเป็นต้นคุณสามารถใช้ Kutools สำหรับ Excel's แทรกข้อมูลสมุดงาน ยูทิลิตี้หากคุณติดตั้ง Kutools for Excel

หลังจาก ติดตั้งฟรี Kutools สำหรับ Excel โปรดทำดังนี้:

1 คลิก Kutools พลัส > สมุดงาน > แทรกข้อมูลสมุดงาน. ดูภาพหน้าจอ:

2 ใน แทรกข้อมูลสมุดงาน โต้ตอบตรวจสอบข้อมูลที่คุณต้องการแทรกด้านล่าง ข้อมูล และตรวจสอบ ส่วนหัว or ฟุตบอล ตามที่คุณต้องการ.

เคล็ดลับ: คุณสามารถแทรกข้อมูลที่ตำแหน่งสามตำแหน่งของส่วนหัวหรือส่วนท้าย: กึ่งกลางซ้ายหรือขวา

3 คลิก Ok. จากนั้นคุณสามารถไปที่ รายละเอียด > เค้าโครงหน้ากระดาษ เพื่อดูส่วนหัว

ด้วยแทรกข้อมูลสมุดงานคุณยังสามารถแทรกข้อมูลไฟล์ลงในเซลล์หรือช่วงของเซลล์ได้ คลิกที่นี่เพื่อทราบข้อมูลเพิ่มเติมเกี่ยวกับยูทิลิตี้นี้

การสาธิต: แทรกข้อมูลเวิร์กบุ๊กลงในเซลล์/ส่วนหัว/ส่วนท้าย

เคล็ดลับหากคุณต้องการแยกสมุดงานออกเป็นไฟล์สมุดงาน / pdf หรือไฟล์ csv หลายไฟล์แยกกันอย่างรวดเร็วโปรดลองใช้ Kutools for Excel's แยกสมุดงาน ดังที่แสดงในภาพหน้าจอต่อไปนี้ ฟังก์ชั่นเต็มรูปแบบโดยไม่มีข้อ จำกัด ใน 30 วัน โปรดดาวน์โหลดและทดลองใช้ฟรีทันที

บทความที่เกี่ยวข้อง:

วิธีแทรกชื่อไฟล์หรือเส้นทางลงในเซลล์ / ส่วนหัวหรือส่วนท้ายใน Excel

วิธีแทรกและลบส่วนหัวส่วนท้ายและรูปภาพส่วนหัวใน Excel