Excel Forum

Posted: **Sun May 18, 2025 8:46 am**

จากไฟล์ที่แนบมา
ต้องการลดมาตราส่วนในชีทนั้นลงที่ละ 1 ต้องปรับโค๊ดอย่างไรครับ
(คลิกที่ปุ่ม หนึ่งครั้ง ลดลง 1 เช่นจากเดิม เป็น 100 ก็ลดเป็น 99 ถ้าคลิกอีก จาก 99 ก็เป็น 98)

Code: Select all

Sub ZoomSheet()
    With ActiveSheet.PageSetup
    .Zoom = 98
    End With
End Sub

Posted: **Sun May 18, 2025 10:48 am**

ตัวอย่าง Code ครับ

Code: Select all

Sub ZoomSheet()
    Static x As Long
    x = x + 1
    With ActiveSheet.PageSetup
        If x >= 90 Then x = 0
        .Zoom = 100 - x
    End With
End Sub

หากต้องการให้โปรแกรมจดจำค่าเดิมเมื่อเปิดไฟล์ขึ้นมาใหม่ควรกำหนดค่า x ลงในเซลล์ใด ๆ แล้วอ้างอิงจากเซลล์นั้นเข้ามาใช้แทน x ครับ

Posted: **Sun May 25, 2025 7:45 am**

ขอบคุณครับ

Excel Forum

VBCode ต้องการลดมาตราส่วนในชีทนั้นลงที่ละ 1 ต้องปรับโค๊ดอย่างไรครับ

VBCode ต้องการลดมาตราส่วนในชีทนั้นลงที่ละ 1 ต้องปรับโค๊ดอย่างไรครับ

Re: VBCode ต้องการลดมาตราส่วนในชีทนั้นลงที่ละ 1 ต้องปรับโค๊ดอย่างไรครับ

Re: VBCode ต้องการลดมาตราส่วนในชีทนั้นลงที่ละ 1 ต้องปรับโค๊ดอย่างไรครับ