Page 1 of 1
code VBa ใส่ข้อความส่วนท้ายของหน้า
Posted: Mon Aug 25, 2025 11:37 am
by tigerwit
จาไฟล์ที่แนบมา
Code: Select all
Sub SetFooterFont()
Dim strFooter As String
Application.ScreenUpdating = False
' Sheet1.Activate
strFooter = Sheet2.Range("B2")
ActiveSheet.PageSetup.RightFooter = "&""TH Sarabun New,nomal""&16" & strFooter
Application.ScreenUpdating = False
End Sub
ต้องการใส่ข้อความท้ายหน้าโดยดึงมาจากชีท main เซล B2 B3 B4 เรียงลงมาสามแถว
ต้องปรับดค๊ดอย่างไรครับ
Re: code VBa ใส่ข้อความส่วนท้ายของหน้า
Posted: Mon Aug 25, 2025 11:58 am
by snasui
ตัวอย่างการปรับ Code ครับ
Code: Select all
'Other
strFooter = Sheet2.Range("B2") & vbLf & Sheet2.Range("B3") & vbLf & _
Sheet2.Range("B4")
'Other
Re: code VBa ใส่ข้อความส่วนท้ายของหน้า
Posted: Wed Aug 27, 2025 12:26 pm
by tigerwit
ขอบคุณครับ
Re: code VBa ใส่ข้อความส่วนท้ายของหน้า
Posted: Wed Sep 03, 2025 8:22 pm
by tigerwit
สอบถามเพิ่มเติม กรณีที่เรากำหนดท้ายากระดาษไว้ชิดขวาตาม Code แนะนำ
บรรทัดทั้งสามจะชิดขวาทั้งหมด จะสามารถเพิ่ม Code ให้การแสดงท้ายกระดาษที่อยู่ด้านขวา
ให้แสดงผลแบบอยู่กึ่งกลาง อย่างในภาพ ได้หรือไม่ครับ
Re: code VBa ใส่ข้อความส่วนท้ายของหน้า
Posted: Wed Sep 03, 2025 8:41 pm
by snasui
ตัวอย่างการปรับ Code ครับ
Code: Select all
strFooter = Sheet2.Range("B2") & String(8, " ") & _
vbLf & Sheet2.Range("B3") & _
vbLf & Sheet2.Range("B4") & String(12, " ") & vbLf
การจัดตำแหน่งใน Footer ไม่สามารถใช้ Center ได้โดยตรง จึงใช้การเว้นวรรคแทนครับ
สามารถทดลองปรับจำนวนช่องว่างให้เหมาะกับความกว้างของข้อความและขนาดกระดาษ