Excel 365 Dynamic Dashboards : Rev 08 พอเปิดแฟ้มจะไปที่หน้า Dashboards พร้อมใช้งานได้ทันที ไม่ว่าคราวก่อนเคยค้างไว้ที่หน้าไหน

แฟ้มตัวอย่างนี้เปิดขึ้นมาด้วย Excel พอ Enable Macro แล้ว จะมองไม่ออกว่าเป็น Excel ระบบจะจัดการซ่อนเมนูและช่อง Formula bar จัดหน้าแสดงผลให้เต็มจอและรอไว้ที่หน้า Dashboards ให้พร้อมใช้งานได้ทันที

แฟ้มนี้ใช้ VBA ควบคุมการเปิดแฟ้มและเมื่อย้อนเข้าไปดูหน้า Dashboards เมื่อไหร่ก็จะปรับภาพบนหน้าจอให้เห็นเต็มจอเสมอ

รหัส VBA ที่ทำงานเมื่อเปิดแฟ้ม เป็น Event Workbook_Open
Private Sub Workbook_Open()
ActiveWindow.DisplayGridlines = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
Application.DisplayFullScreen = True
Application.Calculation = xlAutomatic

Application.Goto Reference:="Show1"
ActiveWindow.Zoom = True
Application.Goto Reference:="Corner"
Application.Goto Reference:="Home"
End Sub

Show1 เป็นพื้นที่ตารางในหน้า Dashboards ที่ตั้งไว้เพื่อจัดขนาดให้ Zoom เต็มพื้นที่นี้เสมอ จากนั้นจะเลื่อนไปที่เซลล์ชื่อ Corner ซึ่งก็คือเซลล์ A1 ให้ตารางเลื่อนกลับมาตรงนี้ เสร็จแล้วก็ไปรอที่เซลล์ชื่อ Home เพื่อพร้อมใช้งาน

Application.Calculation = xlAutomatic ปรับระบบคำนวณให้ Auto เสมอเผื่อว่าใครไปใช้ Manual ค้างไว้ 

รหัส VBA เมื่อเข้าไปหน้า Dashboards คล้ายกัน
Private Sub Worksheet_Activate()
ActiveWindow.DisplayGridlines = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
Application.DisplayFullScreen = True

Application.Goto Reference:="Show1"
ActiveWindow.Zoom = True
Application.Goto Reference:="Corner"
Application.Goto Reference:="Home"
End Sub

Download ตัวอย่างได้จาก
https://drive.google.com/file/d/1ZprMysufIf20iNgCQqtrAwRcN5XfIzh1/view?usp=sharing

+++++++++++++++++++++++++++++

เชิญเรียนวิธีการใช้ VBA + Macro ได้ที่ลิงก์นี้
https://xlsiam.com/course/work-simplification-with-excel-expert-vba-macro/

โดยสมัครเรียนออนไลน์ ฟรี ได้จากเว็บ XLSiam.com ครับ