Tạo hiệu ứng biểu đồ Excel bằng macro được tính thời gian:Hướng dẫn từng bước

Hoạt hình biểu đồ trong Excel làm cho dữ liệu trở nên sống động bằng cách hiển thị các thay đổi theo thời gian, làm cho bản trình bày trở nên hấp dẫn hơn và giúp người xem hiểu được xu hướng và mô hình. Biểu đồ động thu hút sự chú ý, kể những câu chuyện dữ liệu hấp dẫn và giúp bạn dễ dàng nhìn thấy xu hướng. Excel không có tính năng hoạt ảnh biểu đồ tích hợp sẵn; bạn có thể đạt được điều đó bằng cách sử dụng macro được tính giờ với độ trễ được tính giờ và đơn giản.

Trong hướng dẫn này, chúng tôi sẽ hướng dẫn cách tạo hiệu ứng biểu đồ trong Excel bằng macro theo thời gian.

Macro hẹn giờ là gì?

Macro được tính giờ sử dụng độ trễ hoặc tạm dừng tích hợp giữa các hành động của nó. Macro này thêm một điểm dữ liệu vào biểu đồ của bạn, tạm dừng trong một phần giây rồi thêm điểm tiếp theo, lặp lại cho đến khi biểu đồ được hiển thị đầy đủ. Trình tự này mang lại sự xuất hiện của hoạt ảnh!

Biểu đồ động rất phù hợp cho:

• Bài thuyết trình: Tiết lộ thông tin từng bước một, thu hút khán giả của bạn.
• Báo cáo: Làm nổi bật sự phát triển, xu hướng hoặc so sánh dữ liệu theo cách đáng nhớ.
• Trang tổng quan: Thêm các hiệu ứng động cập nhật khi dữ liệu thay đổi.

Bước 1:Chuẩn bị dữ liệu và biểu đồ của bạn

Hãy xem xét tập dữ liệu bán hàng hàng tháng để hiển thị hoạt ảnh của biểu đồ.

• Chọn phạm vi ô (ví dụ:A1:B7).
• Đi tới Chèn tab>> từ Biểu đồ >> chọn Biểu đồ cột (hoặc loại biểu đồ ưa thích của bạn).

• Đặt biểu đồ ở bất kỳ đâu trên trang tính của bạn và chú ý đến số Biểu đồ.

Bước 2:Mở Trình soạn thảo VBA

• Đi tới Nhà phát triển tab>> chọn Visual Basic (hoặc nhấn ALT + F11 ).
• Nhấp vào Chèn menu>> chọn Mô-đun .

Lưu ý: Nếu bạn không thấy Nhà phát triển tab trong Excel, hãy kích hoạt nó. Đi tới Tệp>> Tùy chọn>> Tùy chỉnh dải băng>> đánh dấu Nhà phát triển>> Được .

Bước 3:Thêm Macro hoạt ảnh (Sử dụng macro định giờ)

Hãy thêm macro định giờ để chạy các hành động với khoảng dừng ngắn giữa mỗi bước, tạo hiệu ứng hoạt ảnh mượt mà.

• Chèn mã VBA sau vào mô-đun mới tạo.

Mã 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

Giải thích:

• Mã này xóa dữ liệu biểu đồ trước tiên.
• Thêm một điểm dữ liệu nữa vào biểu đồ với mỗi vòng lặp.
• Mã này sử dụng kỹ thuật "macro theo thời gian":sau mỗi lần cập nhật, nó sẽ tạm dừng một thời gian ngắn bằng cách sử dụng chức năng Tạm dừng trước khi tiếp tục đến điểm dữ liệu tiếp theo.
• Độ trễ này tạo nên sinh động cho biểu đồ, cho phép bạn xem dữ liệu được xây dựng từng bước thay vì xuất hiện ngay lập tức.
• Nó sử dụng DoEvents để giúp Excel phản hồi nhanh và cập nhật màn hình.

Bước 4:Chạy ảnh động

• Lưu và đóng trình soạn thảo VBA để quay lại Excel.
• Đi tới Nhà phát triển tab>> chọn Macro .
• Trong Macro hộp thoại;
  • Chọn AnimateChart .
  • Nhấp vào Chạy .

Thêm nút để chạy hoạt ảnh:

• Đi tới Nhà phát triển tab>> chọn Chèn >> Nút chọn (Kiểm soát biểu mẫu) .
• Vẽ nút trên trang tính của bạn.
• Gán AnimateChart macro vào nó để dễ dàng phát lại!
• Nhấp vào OK .

• Đổi tên nút thành Biểu đồ sinh động .

• Nhấp vào Biểu đồ hoạt hình nút.
• Xem bản dựng biểu đồ của bạn, từng điểm một, hoạt hình ngay trong Excel.

Bước 5:Mẹo tùy chỉnh

Điều chỉnh tốc độ hoạt ảnh:

• Thay đổi Tạm dừng 0,5 thành giá trị nhỏ hơn hoặc lớn hơn:
  • Tạm dừng 0,2 để có hoạt ảnh nhanh.
  • Tạm dừng 1 để có hiệu ứng chậm hơn.

Tham khảo biểu đồ chính xác:

• Nếu bạn có nhiều biểu đồ, hãy tìm số biểu đồ của bạn:
  • Nhấp vào biểu đồ của bạn và xem Hộp tên (bên trái thanh công thức).
    Nếu nó nói, “Biểu đồ 2”, thì hãy sử dụng ChartObjects(2) trong mã.
  • Hoặc sử dụng tên biểu đồ:

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

Mẹo khắc phục sự cố

• Macro không chạy: Bật macro:
  • Tệp> Tùy chọn> Trung tâm tin cậy> Cài đặt trung tâm tin cậy> Cài đặt macro> Bật tất cả macro.
• Biểu đồ không cập nhật: Hãy đảm bảo rằng bạn đang đề cập đến đúng đối tượng biểu đồ và tên trang tính.
• Excel bị treo hoặc treo: Luôn sử dụng chức năng Tạm dừng với DoEvents , không phải Application.Wait .

Kết luận

Bằng cách làm theo các bước trên, bạn có thể tạo hoạt ảnh cho biểu đồ trong Excel bằng macro được tính giờ. Biểu đồ động trong Excel có thể chuyển đổi dữ liệu tĩnh thành những câu chuyện trực quan hấp dẫn. Thử nghiệm thời gian, loại biểu đồ và bộ dữ liệu để tạo hoạt ảnh hoàn hảo cho bạn. Bằng thực hành, bạn sẽ tạo được các trang tổng quan hoạt hình phức tạp giúp dữ liệu của bạn trở nên sống động.