Page 1 of 1
VBA ย่อหน้าจอแล้วอยากให้แสดงเต็มจอ
Posted: Sun Jan 06, 2013 11:25 pm
by tutape
ผมได้ลองบันทึกแมโครการย่อหน้าจอแล้วเมื่อเรียกหน้าจอเดิมกลับมาอยากให้แสดงผลแบบเต็มจอ พอนำโค้ดไปวางที่ ThisWorkbook ปรากฎว่าคำสังไม่แสดงผล ผมจะต้องแก้โค้ดหรือปรับโค้ดอย่างไรครับ โค้ดที่ผมบันทึกได้ คือ
Code: Select all
Application.WindowState = xlNormal
Application.WindowState = xlMinimized
Application.DisplayFullScreen = True
รบกวนแนะนำด้วยครับ
Re: VBA ย่อหน้าจอแล้วอยากให้แสดงเต็มจอ
Posted: Mon Jan 07, 2013 9:00 am
by snasui
tutape wrote:พอนำโค้ดไปวางที่ ThisWorkbook ปรากฎว่าคำสังไม่แสดงผล
ให้ยก Code มาทั้งหมดครับ จะได้เห็นว่าวางไว้ที่ Event ใด
Re: VBA ย่อหน้าจอแล้วอยากให้แสดงเต็มจอ
Posted: Tue Jan 08, 2013 10:24 pm
by tutape
snasui wrote: tutape wrote:พอนำโค้ดไปวางที่ ThisWorkbook ปรากฎว่าคำสังไม่แสดงผล
ให้ยก Code มาทั้งหมดครับ จะได้เห็นว่าวางไว้ที่ Event ใด
Code: Select all
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
ActiveSheet.DisplayPageBreaks = False
Application.DisplayFullScreen = True
ActiveWindow.DisplayWorkbookTabs = False
Application.WindowState = xlNormal
Application.WindowState = xlMinimized
Application.DisplayFullScreen = True
End Sub
ผมไปใส่ไว้ตาม code ด้านบนครับ แต่ว่าผมหลายคำสั่งไปหน่อย ถ้ามีข้อเสนอแนะอย่างไรในการเขียน code รบกวนชี้แนะด้วยครับ
Re: VBA ย่อหน้าจอแล้วอยากให้แสดงเต็มจอ
Posted: Tue Jan 08, 2013 10:33 pm
by snasui
ลองปรับสูตรเป็นตามด้านล่างครับ
Code: Select all
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Application.WindowState = xlMaximized
End Sub
Re: VBA ย่อหน้าจอแล้วอยากให้แสดงเต็มจอ
Posted: Tue Mar 12, 2013 12:26 am
by tutape
ขอบคุณครับ ตรงตามที่ต้องการเลยครับ