วิธีพิมพ์แถวซ้ำ ๆ ที่ด้านล่างของทุกหน้าที่พิมพ์ใน Excel

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

พิมพ์แถวซ้ำ ๆ ที่ด้านล่างด้วยรหัส VBA

พิมพ์แถวซ้ำ ๆ ที่ด้านล่างด้วยรหัส VBA

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

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

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างโต้ตอบคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่างโมดูล

รหัส VBA: แทรกแถวที่ระบุลงในส่วนท้ายของทุกหน้าที่พิมพ์

Sub MyFooter()
	Dim xTxt As String
	Dim xAddress As String
	Dim xRg As Range
	Dim xCell As Range
	On Error Resume Next
	xAddress = ActiveWindow.RangeSelection.Address
	Set xRg  = Application.InputBox("Select the row you will insert repeatedly at the bottom:", "Kutools for Excel", xAddress, , , , , 8)
	If xRg Is Nothing Then Exit Sub
		For Each xCell In xRg
			xTxt = xTxt & xCell.Value & " "
		Next
		ActiveSheet.PageSetup.LeftFooter = xTxt
	End Sub

3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส จากนั้นกล่องโต้ตอบ Kutools for Excel จะปรากฏขึ้นโปรดเลือกแถวที่คุณต้องการพิมพ์ซ้ำ ๆ ที่ด้านล่างของทุกหน้าที่พิมพ์จากนั้นคลิกปุ่ม OK ปุ่ม

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

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