Note: The other languages of the website are Google-translated. Back to English

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

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

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

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

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


ถ้าคุณต้องการวางเนื้อหาของเซลล์ในส่วนหัวหรือส่วนท้ายของแผ่นงานปัจจุบันรหัส 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 คีย์ในการเรียกใช้รหัสนี้กล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนให้คุณเลือกเซลล์ที่คุณต้องการใส่เนื้อหาลงในส่วนหัวdoc-insert-cell-value-to-header1

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

หมายเหตุ:

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 เซ็นเตอร์เฮดเดอร์ / CenterFooter ในรหัส


บางครั้งคุณต้องการแทรกส่วนหัวหรือส่วนท้ายที่มีเนื้อหาของเซลล์ที่เลือกลงในแผ่นงานทั้งหมดของสมุดงานเปิดของคุณด้วยรหัสด้านบนคุณจะต้องทำซ้ำครั้งแล้วครั้งเล่า ในกรณีนี้รหัส 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 คีย์ในการรันโค้ดนี้กล่องโต้ตอบจะปรากฏขึ้นเพื่อเตือนให้คุณเลือกเซลล์ที่คุณต้องการใส่เนื้อหาในส่วนท้ายของเวิร์กบุ๊กทั้งหมด

doc-insert-cell-value-to-header1

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

doc-insert-cell-value-to-header1

หมายเหตุ:

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 ในรหัสด้านบนหากคุณต้องการให้ส่วนหัวหรือส่วนท้ายอยู่ในตำแหน่งที่แตกต่างกัน


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

Kutools สำหรับ Excel, ที่มีมากกว่า
300
ฟังก์ชั่นที่มีประโยชน์ทำให้งานของคุณง่ายขึ้น 

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

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

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

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

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

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



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

30
วัน โปรดดาวน์โหลดและทดลองใช้ฟรีทันที

สมุดงานแยก doc

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

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

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


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณโดย
80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • กว่า
    300
    คุณสมบัติอันทรงพลัง
    . รองรับ Office/Excel
    2007-2019 และ 365
    . รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ คุณสมบัติครบถ้วน
    30
    วันทดลองใช้ฟรี รับประกันคืนเงินภายใน 60 วัน
kte แท็บ 201905

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณโดย
    50%
    และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (8)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันต้องการแทรกช่วงวันที่ของบัญชีเงินเดือนที่ใช้งานอยู่ลงในแผ่นงานหลายแผ่น ผู้ใช้เปิดแผ่นงานวันที่จ่ายเงิน ป้อนช่วงวันที่ และก่อนที่เธอจะพิมพ์ จะอัปเดตแผ่นงานทั้งหมดในสมุดงาน นี่คือวิธีที่ฉันสามารถแทรกหลายเซลล์ลงในช่วงที่มีโค้ดน้อยกว่า 2010 ที่เข้ากันได้: Private Sub Workbook_BeforePrint(Cancel As Boolean) Dim WorkRng As Range On Error Resume Next For Each ws In Application.ActiveWorkbook.Worksheets ws.PageSetup RightHeader = Range("'Payroll Date'!A1")).Value & vbCr & Range("'Payroll Date'!A2")).Value Next End Sub.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันต้องการแทรกสี่เซลล์ในส่วนหัว VB นี้มีไว้สำหรับเซลล์เดียวเท่านั้น ฉันจะทำอย่างไร. ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณสามารถลองเชื่อมค่าของเซลล์ rht สี่เซลล์เป็นเซลล์เดียว แล้วใช้เซลล์เดียวเป็นส่วนหัว
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี มีวิธีใดบ้างที่คุณสามารถเพิ่มค่าเซลล์ซึ่งพิจารณาจากตัวกรองที่นำไปใช้ ตัวอย่างเช่น... A1 = วันจันทร์ A2 = วันอังคาร A3 = วันพุธ การใช้โค้ด VBA เพื่อแสดงเซลล์ A1 จะทำงานในขั้นต้น แต่เมื่อฉันใช้ตัวกรองกับวันในสัปดาห์ ค่าเซลล์ "บนสุด" จะไม่ใช่ A1 อีกต่อไป มีวิธีรับตัวแปรหรือไม่? ขอบคุณมาก,
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เมื่อใช้ "โค้ด VBA: ใส่ค่าเซลล์ที่ระบุในส่วนหัวของเวิร์กชีตทั้งหมด" ฉันต้องการให้ค่าถูกจัดรูปแบบ: Tahoma, ตัวหนา, ในขนาดฟอนต์ 12
จะเพิ่มสิ่งนี้ในรหัสของคุณได้อย่างไร?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี

ดูเหมือนว่าจะใช้ได้เพียงครั้งเดียว
เกิดอะไรขึ้นถ้าค่าของเซลล์เปลี่ยนแปลง?
มีวิธีการเชื่อมโยงเซลล์เพื่อให้ส่วนหัวเปลี่ยนแปลงเมื่อค่าของเซลล์เปลี่ยนแปลงหรือไม่

ฉันมีสมุดงานที่ฉันมีสามแผ่น

แผ่นที่ 1 ติดป้าย "Deletion Sheet" - แผ่นที่เราส่งไปที่โกดังพร้อมข้อมูลว่าจะเอาอะไรมาสั่ง
แผ่นที่ 2 มีป้ายกำกับว่า "OA" - การตอบรับคำสั่งซื้อของฉันไปยังลูกค้าซึ่งดึงข้อมูลส่วนใหญ่จากแผ่นงานแรก รวมถึงหมายเลขคำสั่งซื้อที่ฉันต้องมีในส่วนหัว ดังนั้นฉันจึงพยายามเชื่อมโยงส่วนหัวกับเซลล์ในหน้านี้ด้วยหมายเลขคำสั่งซื้อ (F5) ซึ่งได้ค่ามาจาก (C7) ในแผ่นงานแรก ("แผ่นงานการลบ")
แผ่นที่ 3 ระบุว่า "ใบแจ้งหนี้ - ใบแจ้งหนี้ซึ่งดึงข้อมูลเดียวกันส่วนใหญ่จากแผ่นงานแรกซึ่งจะต้องมีส่วนหัวเพื่อรวมค่า (F5) ของแผ่นงานนี้ที่นำมาจาก (C7) ใน "แผ่นการลบ"
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ดูเหมือนว่าจะไม่สร้างลิงก์แบบไดนามิก กล่าวคือ ค่าที่ป้อนลงในส่วนหัวจะไม่เปลี่ยนแปลงเมื่อค่าของเซลล์เปลี่ยนแปลง ดังนั้นจุดประสงค์ของรหัส VBA คืออะไรเมื่อการคัดลอก / วางจะทำเช่นเดียวกัน?
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีคุณนีล
หากคุณต้องการเชื่อมโยงค่าของเซลล์กับส่วนหัวหรือส่วนท้ายแบบไดนามิก โปรดใช้รหัส VBA ต่อไปนี้:

หมายเหตุ: คุณควรใส่รหัสลงในรหัสแผ่นงานไม่ใช่โมดูลปกติ
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WorkRng As Range
Dim xStR As String
On Error Resume Next
xStR = "A1" '
Set WorkRng = Intersect(Application.ActiveSheet.Range("A1"), Target)
If WorkRng Is Nothing Then Exit Sub
Application.ActiveSheet.PageSetup.RightHeader = WorkRng.Range("A1").Value
End Sub


ได้โปรดลองดู หวังว่ามันจะช่วยคุณได้
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL