ทำให้แผนภูมิ Excel เคลื่อนไหวด้วยมาโครตั้งเวลา:คำแนะนำทีละขั้นตอน

ภาพเคลื่อนไหวแผนภูมิใน Excel ทำให้ข้อมูลมีชีวิตชีวาด้วยการแสดงการเปลี่ยนแปลงเมื่อเวลาผ่านไป ทำให้การนำเสนอน่าสนใจยิ่งขึ้น และช่วยให้ผู้ดูเข้าใจแนวโน้มและรูปแบบ แผนภูมิแบบเคลื่อนไหวดึงดูดความสนใจ บอกเล่าเรื่องราวข้อมูลที่น่าสนใจ และทำให้มองเห็นแนวโน้มได้ง่าย Excel ไม่มีฟีเจอร์ภาพเคลื่อนไหวแผนภูมิในตัว คุณสามารถทำได้โดยใช้มาโครแบบกำหนดเวลาที่มีการหน่วงเวลาแบบง่ายๆ

ในบทช่วยสอนนี้ เราจะแสดงวิธีทำให้แผนภูมิเคลื่อนไหวใน Excel ด้วยมาโครแบบกำหนดเวลา

มาโครแบบตั้งเวลาคืออะไร

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

แผนภูมิแบบเคลื่อนไหวเหมาะสำหรับ:

• การนำเสนอ: เปิดเผยข้อมูลทีละขั้นตอน ทำให้ผู้ชมมีส่วนร่วม
• รายงาน: เน้นการเติบโตของข้อมูล แนวโน้ม หรือการเปรียบเทียบด้วยวิธีที่น่าจดจำ
• แดชบอร์ด: เพิ่มเอฟเฟกต์ไดนามิกที่จะอัปเดตเมื่อข้อมูลเปลี่ยนแปลง

ขั้นตอนที่ 1:เตรียมข้อมูลและแผนภูมิของคุณ

ลองพิจารณาชุดข้อมูลยอดขายรายเดือนเพื่อแสดงภาพเคลื่อนไหวของแผนภูมิ

• เลือกช่วงเซลล์ (เช่น A1:B7)
• ไปที่ แทรก แท็บ>> จาก แผนภูมิ >> เลือก แผนภูมิคอลัมน์ (หรือประเภทแผนภูมิที่คุณต้องการ)

• วางแผนภูมิไว้ที่ใดก็ได้บนแผ่นงานของคุณและสังเกตหมายเลขแผนภูมิ

ขั้นตอนที่ 2:เปิดตัวแก้ไข VBA

• ไปที่นักพัฒนาซอฟต์แวร์ แท็บ>> เลือก Visual Basic (หรือกด ALT + F11 ).
• คลิก แทรก เมนู>> เลือก โมดูล .

หมายเหตุ: หากคุณไม่เห็น นักพัฒนาซอฟต์แวร์ แท็บใน Excel ให้เปิดใช้งาน ไปที่ไฟล์>> ตัวเลือก>> ปรับแต่งริบบิ้น>> ทำเครื่องหมาย นักพัฒนาซอฟต์แวร์>> ตกลง .

ขั้นตอนที่ 3:เพิ่มแอนิเมชั่นมาโคร (โดยใช้มาโครแบบตั้งเวลา)

มาเพิ่มมาโครแบบกำหนดเวลาที่ดำเนินการโดยหยุดชั่วคราวสั้นๆ ระหว่างแต่ละขั้นตอน เพื่อสร้างเอฟเฟกต์ภาพเคลื่อนไหวที่ราบรื่น

• แทรกโค้ด VBA ต่อไปนี้ลงในโมดูลที่สร้างขึ้นใหม่

รหัส VBA:

Sub AnimateChart()
 Dim i As Integer
 Dim ChartData As Range
 Dim ChartSeries As Series
 
 Set ChartData = Sheets("Dataset").Range("B2:B7")
 Set ChartSeries = Sheets("Dataset").ChartObjects(1).Chart.SeriesCollection(1)
 
 ' Clear initial data
 ChartSeries.Values = ""
 
 For i = 1 To ChartData.Rows.Count
 ChartSeries.Values = Sheets("Sheet1").Range("B2").Resize(i, 1)
 
 ' Wait using DoEvents for smoother update
 Pause 0.5 ' Pause half second
 
 DoEvents ' Keep Excel responsive
 Next i
End Sub
'Custom Pause function using Timer
Sub Pause(seconds As Single)
 Dim start As Single
 start = Timer
 Do While Timer < start + seconds
 DoEvents
 Loop
End Sub

คำอธิบาย:

• โค้ดนี้จะล้างข้อมูลแผนภูมิก่อน
• เพิ่มจุดข้อมูลอีกหนึ่งจุดลงในแผนภูมิโดยแต่ละวง
• โค้ดนี้ใช้เทคนิค "มาโครตามเวลา":หลังจากการอัปเดตแต่ละครั้ง โค้ดจะหยุดชั่วคราวโดยใช้ฟังก์ชันหยุดชั่วคราว ก่อนที่จะดำเนินการต่อไปยังจุดข้อมูลถัดไป
• ความล่าช้านี้เป็นสิ่งที่ทำให้แผนภูมิเคลื่อนไหว ทำให้คุณเห็นข้อมูลที่สร้างขึ้นทีละขั้นตอน แทนที่จะปรากฏขึ้นทันที
• ใช้ DoEvents เพื่อให้ Excel ตอบสนองและอัปเดตการแสดงผล

ขั้นตอนที่ 4:เรียกใช้แอนิเมชั่น

• บันทึกและปิดโปรแกรมแก้ไข VBA เพื่อกลับสู่ Excel
• ไปที่นักพัฒนาซอฟต์แวร์ แท็บ>> เลือก มาโคร .
• ในมาโคร กล่องโต้ตอบ;
  • เลือก AnimateChart .
  • คลิก เรียกใช้ .

เพิ่มปุ่มเพื่อเรียกใช้ภาพเคลื่อนไหว:

• ไปที่ นักพัฒนา แท็บ>> เลือก แทรก >> เลือก ปุ่ม (การควบคุมแบบฟอร์ม) .
• วาดปุ่มบนแผ่นงานของคุณ
• กำหนด AnimateChart มาโครเพื่อให้เล่นซ้ำได้ง่าย!
• คลิก ตกลง .

• เปลี่ยนชื่อปุ่มเป็น ทำให้แผนภูมิเคลื่อนไหว .

• คลิกแผนภูมิเคลื่อนไหว ปุ่ม.
• ดูการสร้างแผนภูมิของคุณทีละจุดแบบเคลื่อนไหวใน Excel

ขั้นตอนที่ 5:เคล็ดลับการปรับแต่ง

ปรับความเร็วของภาพเคลื่อนไหว:

• เปลี่ยน Pause 0.5 เป็นค่าที่น้อยลงหรือมากขึ้น:
  • หยุด 0.2 ชั่วคราวเพื่อภาพเคลื่อนไหวที่รวดเร็ว
  • หยุด 1 ชั่วคราวเพื่อให้เอฟเฟกต์ช้าลง

อ้างอิงแผนภูมิที่ถูกต้อง:

• หากคุณมีหลายแผนภูมิ ให้ค้นหาหมายเลขแผนภูมิของคุณ:
  • คลิกแผนภูมิของคุณแล้วดูที่ กล่องชื่อ (ด้านซ้ายของแถบสูตร)
    หากมีข้อความว่า “Chart 2” ให้ใช้ ChartObjects(2) ในโค้ด
  • หรือใช้ชื่อแผนภูมิ:

Set ChartSeries = Sheets("Sheet1").ChartObjects("Chart 2").Chart.SeriesCollection(1)

เคล็ดลับการแก้ปัญหา

• มาโครไม่ทำงาน: เปิดใช้งานมาโคร:
  • ไฟล์> ตัวเลือก> ศูนย์ความเชื่อถือ> การตั้งค่าศูนย์ความเชื่อถือ> การตั้งค่ามาโคร> เปิดใช้งานมาโครทั้งหมด
• แผนภูมิไม่อัปเดต: ตรวจสอบให้แน่ใจว่าคุณอ้างถึงวัตถุแผนภูมิและชื่อชีตที่ถูกต้อง
• Excel ค้างหรือค้าง: ใช้ฟังก์ชันหยุดชั่วคราวกับ DoEvents เสมอ ไม่ใช่ Application รอ .

บทสรุป

ด้วยการทำตามขั้นตอนข้างต้น คุณสามารถทำให้แผนภูมิเคลื่อนไหวใน Excel ด้วยมาโครที่กำหนดเวลาได้ แผนภูมิแบบเคลื่อนไหวใน Excel สามารถแปลงข้อมูลคงที่ให้เป็นเรื่องราวภาพที่น่าสนใจ ทดลองใช้เวลา ประเภทแผนภูมิ และชุดข้อมูลเพื่อสร้างภาพเคลื่อนไหวที่สมบูรณ์แบบสำหรับคุณ ด้วยการฝึกฝน คุณจะสามารถสร้างแดชบอร์ดภาพเคลื่อนไหวที่ซับซ้อนซึ่งจะทำให้ข้อมูลของคุณมีชีวิตชีวา