Snasui Excel Forum

Posted: **Fri Oct 05, 2012 3:13 am**

ผมได้ลองดูการเขียนโปรแกรม excel ผมใช้การบันทึกด้วยแมโครเพื่อให้แสดงมุมมองแบบเต็มจอ คือ เปิดงานครั้งแรก จะเป็นแบบเต็มจอ แต่พอกดปุ่ม Esc ก็จะกลับมาในมุมมองหน้าจอปกติ และเมื่อ sheet อื่นดู ของผมก็ยังอยู่ในหน้าจอปกติ ที่ต้องการจะเป้นลักษระที่พอเลือก sheet ใดๆ ก็ตาม ก็จะกลับไปแสดงแบบเต็มจออีก ผมรบกวรขอคำแนะนำว่าผมต้องเพิ่ม code ในส่วนไหนบ้าง ซึ่ง code ที่ผมลองใช้ ณ ตอนนี้ คือ

"Sub Auto_open()
ActiveWindow.DisplayWorkbookTabs = False
Sheets("Home").Select
Application.DisplayFullScreen = True
ActiveWindow.WindowState = xlMaximized
Application.DisplayFullScreen = True
End Sub"

โดย sheet "Home" เป็นหน้าเริ่มต้นโปรแกรมครับ

Posted: **Fri Oct 05, 2012 6:50 am**

ให้ Double Click ที่ ThisWorkbook แล้วนำ Code ด้านล่างไปวางครับ

Code: Select all

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Application.DisplayFullScreen = True
End Sub

ควรโพสต์ Code ให้เป็น Code เพื่อสะดวกในการอ่านและนำไป ดูตัวอย่างที่นี่ครับ viewtopic.php?f=3&t=1187

Posted: **Tue Mar 12, 2013 12:21 am**

ครับ ขอบคุณครับ ผมทำได้แล้วครับ

Snasui Excel Forum

ขอคำแนะนำเกี่ยวกับการเขียน code full screen

ขอคำแนะนำเกี่ยวกับการเขียน code full screen

Re: ขอคำแนะนำเกี่ยวกับการเขียน code full screen

Re: ขอคำแนะนำเกี่ยวกับการเขียน code full screen