Chúng tôi lấy bộ dữ liệu doanh số hàng tháng cho 3 năm liên tiếp: 2020, 2021 và 2022. Chúng tôi sẽ tạo biểu đồ tự động thay đổi.
Bước 1 – Thiết lập biểu đồ với cột phụ trợ
- Chèn ba cột phụ trợ “Sales”.
Lưu ý: Bạn có thể làm nổi bật các cột phụ trợ để dễ hình dung.
- Di chuyển đến một ô trống.
- Điều hướng đến tab Insert.
- Dưới phần Charts, chọn Insert Line or Area Chart và chọn Stacked Line.
- Nhấp chuột phải vào biểu đồ và nhấp vào Select Data.
- Hộp thoại Select Data Source hiện ra.
- Chọn Add từ Legend Entries (Series).
- Bạn sẽ thấy cửa sổ Edit Series.
- Trong hộp Series Name, chọn Sales (2020), và trong hộp Series values, chọn phạm vi dữ liệu $F$5:$F$16.
- Nhấn OK.
- Lặp lại để chọn tất cả các cột “Sales” và các cột phụ trợ tương ứng.
- Hơn nữa, trong Horizontal (Category) Axis Labels, chuyển đến Edit.
- Sau đó, hộp thoại Axis Labels hiện ra. Chọn phạm vi dữ liệu từ $B$5:$B$16. Nhấp OK.
Cuối cùng, nhấn OK trong cửa sổ Select Data Source.
Xem thêm: Cách tạo biểu đồ thanh đua động trong Excel
Bước 2 – Định dạng biểu đồ
- Tạo Tiêu đề biểu đồ, Tiêu đề trục, và Chú thích ở dưới. Chúng có sẵn từ Chart Elements.
Biểu đồ của bạn sẽ trông giống như hình ảnh dưới đây.
Bước 3 – Sử dụng mã VBA
- Đi đến tab Developer và chọn Visual Basic.
- Chọn tab Insert và chọn Module.
- Trong Module 1, bạn sẽ thấy hộp General.
- Đặt mã VBA sau vào đó và lưu lại.
Sub AnimationChart() Const SR As Long = 5 Dim LR As Long Dim RN As Long LR = Range("C" & SR).End(xlDown).Row Range("F" & SR, "H" & LR).ClearContents DoEvents Application.Wait (Now + TimeValue("00:00:1")) For RN = SR To LR DoEvents Range("F" & RN, "H" & RN).Value = Range("C" & RN, "E" & RN).Value Application.Wait (Now + TimeValue("00:00:1")) DoEvents Next RN End Sub
Phân tích mã
Chúng tôi khai báo các biến trước. Chúng tôi đặt Hằng số là SR đại diện cho Hàng bắt đầu. Trong trường hợp của chúng tôi, nó là 5. LR và RN cũng là các biến tham chiếu đến giá trị của Hàng cuối và Số hàng tương ứng.
LR = Range(“C” & SR).End(xlDown).Row→ lệnh xóa tất cả các giá trị của cột liên quan (F: H).
Range(“F” & SR, “H” & LR).ClearContents→ chọn phạm vi ô, bắt đầu hiển thị giá trị ô hàng bởi hàng và lấp đầy các cột trống từ F đến H.
Chúng tôi đặt Độ trễ thời gian là 1 giây, giúp hiển thị dữ liệu với độ trễ 1 giây, tạo cảm giác động cho biểu đồ.
Bước 4 – Thêm nút để tạo hoạt ảnh
- Thêm nút sử dụng Form Controls trong trang tính của bạn.
- Đổi tên thành Animation.
- Nhấp chuột phải vào nút Animation và chọn Assign Macro từ Menu ngữ cảnh.
- Hộp thoại Assign Macro xuất hiện.
- Chọn Macro name là AnimationChart.
- Nhấn OK.
- Biểu đồ động đã sẵn sàng. Nhấp vào nút Animation.
Phần thực hành
Chúng tôi đã cung cấp phần thực hành ở mỗi trang tính ở bên phải để bạn có thể thực hành các bước.
Tải xuống Workbook thực hành
Các bài viết liên quan
- Cách tạo hiệu ứng chữ trong Excel
- Hoạt ảnh VBA trong UserForm
Nhận miễn phí Bài tập Excel nâng cao với lời giải!