Snasui Excel Forum

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

:D[quote="tutape"]อยากให้ไฟล์งานทุกชีทไม่ว่าจะย่อ/ขยายไว้เท่าไหร่ แต่เมื่อเปิดชีทนั้นใหม่อีกครั้งจะให้ย่อ/ขยายให้เป็น 100% เสมอ[/quote]สามารถนำ Code ไปเขียนใน Event ซึ่งวาง Code ใน ThisWorkbook ตามตัวอย่างด้านล่างครับ
[code]Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveWindow.Zoom = 100
End Sub
[/code]

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

คือผมอยากให้ไฟล์งานทุกชีทไม่ว่าจะย่อ/ขยายไว้เท่าไหร่ แต่เมื่อเปิดชีทนั้นใหม่อีกครั้งจะให้ย่อ/ขยายให้เป็น 100% เสมอ ผมได้นำโค้ดด้านล่างไปวางใน ThisWorkbook ซึ่งผมลองแกะเอง แต่พอวางแล้วลองเปิดแต่ละชีทดูก็ไม่เห็นเปลี่ยนแปลง ไม่แน่ใจว่าโค้ดที่ผมแกะผิดพลาดตรงไหนบ้าง หรือถ้าไม่ใช่ช่วยแนะนำด้วยครับ
[code]Private Sub Zoom100()
ActiveWindow.Zoom = 100
End Sub[/code]