Page 1 of 1
ล็อก print area ได้ไหมครับ
Posted: Wed Jul 08, 2020 2:21 pm
by mr.zatan
ล็อก print area ได้ไหมครับ เพราะไฟล์ใช้กันหลายคน.
ด้วยความเคยชิน บางคนเวลาจะ Print หลงไปตั้ง print area ใหม่ เลยทำให้ Code ที่ใส่ไว้มันหายไป
Re: ล็อก print area ได้ไหมครับ
Posted: Wed Jul 08, 2020 6:52 pm
by snasui
สร้าง Range Name สำหรับ Print Area ไว้อีกชุดเมื่อ Run Code ให้นำ Range Name พวกนั้นมา Set Print Area เสมือนว่า Set Print Area ให้กลับไปเป็นค่าตั้งต้นครับ
ยกตัวอย่างชีตปัจจุบันผมตั้งชื่อ Range Name สำหรับค่าตั้งต้นของ Print Area เป็น NameArea1
แล้วเขียน Code ให้นำไปใช้ Set Print Area ทับที่ User กำหนดเอาไว้เป็น
ActiveSheet.PageSetup.PrintArea = Names("NameArea1").RefersTo
Re: ล็อก print area ได้ไหมครับ
Posted: Fri Jul 10, 2020 1:36 pm
by mr.zatan
Code: Select all
ActiveSheet.PageSetup.PrintArea = Names("NameArea1").RefersTo
เอาไปใส่ตรงไหนครับ
Re: ล็อก print area ได้ไหมครับ
Posted: Fri Jul 10, 2020 6:03 pm
by puriwutpokin
mr.zatan wrote: Fri Jul 10, 2020 1:36 pm
Code: Select all
ActiveSheet.PageSetup.PrintArea = Names("NameArea1").RefersTo
เอาไปใส่ตรงไหนครับ
เขียนเป็น VBA ครับ ต้องสร้าง Module แล้วว่างคำสั่งครับ
ลองศึกษาดูจากกระทู้เก่าๆ หรือ Record Macro ดูเบื้องต้นครับ ติดตรงไหนมาถามกันต่อครับ และไฟล์ต้อง Save เป็นนามสกุล *.xls,*.xlsm,*.xlsb อย่างใดอย่างหนึ่งครับ