Snasui Excel Forum

Posted: **Wed Oct 24, 2012 1:07 am**

คือผมอยากให้ไฟล์งานทุกชีทไม่ว่าจะย่อ/ขยายไว้เท่าไหร่ แต่เมื่อเปิดชีทนั้นใหม่อีกครั้งจะให้ย่อ/ขยายให้เป็น 100% เสมอ ผมได้นำโค้ดด้านล่างไปวางใน ThisWorkbook ซึ่งผมลองแกะเอง แต่พอวางแล้วลองเปิดแต่ละชีทดูก็ไม่เห็นเปลี่ยนแปลง ไม่แน่ใจว่าโค้ดที่ผมแกะผิดพลาดตรงไหนบ้าง หรือถ้าไม่ใช่ช่วยแนะนำด้วยครับ

Code: Select all

Private Sub Zoom100()
    ActiveWindow.Zoom = 100
End Sub

Posted: **Wed Oct 24, 2012 6:41 am**

tutape wrote:อยากให้ไฟล์งานทุกชีทไม่ว่าจะย่อ/ขยายไว้เท่าไหร่ แต่เมื่อเปิดชีทนั้นใหม่อีกครั้งจะให้ย่อ/ขยายให้เป็น 100% เสมอ

สามารถนำ Code ไปเขียนใน Event ซึ่งวาง Code ใน ThisWorkbook ตามตัวอย่างด้านล่างครับ

Code: Select all

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    ActiveWindow.Zoom = 100
End Sub

Snasui Excel Forum

code VBA ให้ ย่อ/ขยาย 100%

code VBA ให้ ย่อ/ขยาย 100%

Re: code VBA ให้ ย่อ/ขยาย 100%