Excel 365 Dynamic Dashboards : Rev 09 อยากขยายกราฟภาพไหนให้คลิกที่ภาพนั้น

Excel สู้ Power BI ไม่ได้ตรงที่ Excel ขาดความสามารถในการย่อขยายภาพกราฟหรือตารางที่ต้องการดูให้มีขนาดเต็มจอ (Responsive) ทำให้เมื่อดูหลายภาพพร้อมกันจะมีขนาดเล็กจนอาจมองแต่ละส่วนยากขึ้น แต่เมื่อใช้ VBA มาช่วยจะหมดปัญหานี้ทันที

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

รหัส VBA ที่ช่วยทำหน้าที่นี้

Sub ShowCategory()
Sheets("Categories").Select
ActiveWindow.Zoom = 100
Application.Goto Reference:="ShowPic"
ActiveWindow.Zoom = True
Application.Goto Reference:="R1C1"

ActiveWindow.DisplayGridlines = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
Application.DisplayFullScreen = True
End Sub

Sub Show12Months()
Sheets("Months").Select
ActiveWindow.Zoom = 100
Application.Goto Reference:="ShowMonths"
ActiveWindow.Zoom = True
Application.Goto Reference:="R1C1"

ActiveWindow.DisplayGridlines = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
Application.DisplayFullScreen = True
End Sub

Sub ShowProducts()
Sheets("Months").Select
ActiveWindow.Zoom = 100
Application.Goto Reference:="ShowProduct"
ActiveWindow.Zoom = True
Application.Goto Reference:="R1C1"

ActiveWindow.DisplayGridlines = False
Application.DisplayFormulaBar = False
ActiveWindow.DisplayHeadings = False
Application.DisplayFullScreen = True
End Sub

Sub ShowDashboards()
Sheets("Dashboards").Select
End Sub

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

หลักการที่ใช้ในการขยายภาพกราฟ ไม่ได้ทำให้กราฟนั้นๆขยายขนาดออกมาหรอกครับ แต่ใช้วิธีเตรียมชีทที่มีภาพกราฟที่ขยายขนาดเอาไว่ก่อน พอคลิกที่กราฟก็จะพาไปยังชีทนั้น ... ใช้รหัสแค่นี้เอง

Sheets("ชื่อชีทที่ต้องการไป").Select

ส่วนรหัสอื่นที่มีเพิ่มไว้ให้จัดหน้าจอให้ขยายเต็มที่กันไว้เผื่อว่ายังไม่ได้ขยายหน้าจอไว้ก่อน 

☝️ รหัส VBA ข้างต้นแทบไม่จำเป็นต้องเขียนเอง เพียงแค่ฝึกใช้ Macro Recorder บันทึกการคลิกเลือกคำสั่งบนเมนูก็จะได้รหัส VBA ที่ต้องการใช้ให้เอง

ผมอธิบายไว้ในหลักสูตรเคล็ดการเพิ่มผลงาน ลดความซับซ้อนของงานด้วย Excel VBA+Macro ซึ่งเปิดให้สมัครเรียนออนไลน์ฟรีได้ที่เว็บ XLSiam.com