วิธีใส่ค่าเซลล์ในส่วนหัว / ส่วนท้ายใน 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, ที่มีมากกว่า 300 ฟังก์ชั่นที่มีประโยชน์ทำให้งานของคุณง่ายขึ้น | ||
หลังจาก ติดตั้งฟรี Kutools สำหรับ Excel โปรดทำดังนี้:
1 คลิก Kutools พลัส > สมุดงาน > แทรกข้อมูลสมุดงาน. ดูภาพหน้าจอ:
2 ใน แทรกข้อมูลสมุดงาน โต้ตอบตรวจสอบข้อมูลที่คุณต้องการแทรกด้านล่าง ข้อมูล และตรวจสอบ ส่วนหัว or ฟุตบอล ตามที่คุณต้องการ.
เคล็ดลับ: คุณสามารถแทรกข้อมูลที่ตำแหน่งสามตำแหน่งของส่วนหัวหรือส่วนท้าย: กึ่งกลางซ้ายหรือขวา
3 คลิก Ok. จากนั้นคุณสามารถไปที่ รายละเอียด > เค้าโครงหน้ากระดาษ เพื่อดูส่วนหัว
ด้วยแทรกข้อมูลสมุดงานคุณยังสามารถแทรกข้อมูลไฟล์ลงในเซลล์หรือช่วงของเซลล์ได้ คลิกที่นี่เพื่อทราบข้อมูลเพิ่มเติมเกี่ยวกับยูทิลิตี้นี้
แทรกข้อมูลสมุดงานที่เซลล์ / ส่วนหัว / ส่วนท้าย
บทความที่เกี่ยวข้อง:
วิธีแทรกชื่อไฟล์หรือเส้นทางลงในเซลล์ / ส่วนหัวหรือส่วนท้ายใน Excel
วิธีแทรกและลบส่วนหัวส่วนท้ายและรูปภาพส่วนหัวใน Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
