Chúng tôi đã lấy tập dữ liệu về doanh số hàng tháng trong 3 năm liên tiếp:2020, 2021 và 2022. Chúng tôi sẽ tạo một biểu đồ tự động thay đổi.

Bước 1 – Thiết lập biểu đồ với các cột trợ giúp
- Chèn ba cột "Bán hàng" trợ giúp.

Lưu ý :Bạn có thể đánh dấu các cột trợ giúp để hiển thị rõ hơn.
- Di chuyển đến ô trống.
- Điều hướng đến Chèn tab.
- Dưới Biểu đồ phần, chọn Chèn Biểu đồ đường hoặc vùng và chọn Dòng xếp chồng .

- Nhấp chuột phải vào biểu đồ và nhấp vào Chọn dữ liệu .

- Chọn nguồn dữ liệu hộp thoại bật ra.
- Chọn Thêm từ Bài viết huyền thoại (Bộ truyện) .

- Bạn sẽ thấy Chuỗi chỉnh sửa cửa sổ.
- Trong Tên sê-ri hộp, chọn Bán hàng (2020) và trong các giá trị Chuỗi hộp, chọn phạm vi dữ liệu $F$5:$F$16 .
- Nhấn OK .

- Lặp lại để chọn tất cả “Doanh số ” cột và các cột trợ giúp tương ứng.

- Hơn nữa, trong Nhãn Trục ngang (Danh mục) , hãy chuyển tới Chỉnh sửa .

- Sau đó, Nhãn Trục hộp thoại bật ra. Chọn phạm vi dữ liệu từ $B$5:$B$16 . Nhấp vào OK .

Cuối cùng, nhấn OK trong phần Chọn nguồn dữ liệu cửa sổ.

Đọc thêm: Cách tạo cuộc đua biểu đồ thanh hoạt hình trong Excel
Bước 2 – Định dạng biểu đồ
- Tạo Tiêu đề biểu đồ , Tiêu đề trục , và Truyền thuyết ở phía dưới. Những thứ này có sẵn từ Thành phần biểu đồ.

Biểu đồ của bạn sẽ trông giống như hình ảnh bên dưới.

Bước 3 – Sử dụng mã VBA
- Đi tới Nhà phát triển và chọn Visual Basic .

- Chọn Chèn và chọn Mô-đun .

- Trong Mô-đun 1 , bạn sẽ thấy Chung cái hộp.
- Đặt VBA sau mã ở đó và lưu nó.
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 đầu tiên. Chúng tôi đặt Hằng số dưới dạng SR đại diện cho Hàng bắt đầu . Trong trường hợp của chúng tôi, đó là 5 . LR và RN cũng là các biến tham chiếu đến giá trị của Hàng cuối cùng và Số hàng tương ứng.
LR =Phạm vi(“C” &SR).End(xlDown).Row→ lệnh xóa tất cả các giá trị của cột được liên kết (F:H ).
Phạm vi(“F” &SR, “H” &LR).ClearContents→ chọn phạm vi ô, bắt đầu hiển thị giá trị ô theo từng hàng và điền vào các cột trống của F tới H .
Chúng tôi đã đặt Độ trễ thời gian đến 1 thứ hai, điều này sẽ giúp chúng tôi hiển thị dữ liệu trong 1 giây độ trễ, mang lại cảm giác năng động cho biểu đồ.
Bước 4 – Nhập nút để tạo hoạt ảnh
- Thêm nút bằng cách sử dụng Điều khiển biểu mẫu trong bảng tính của bạn.
- Đổi tên nó thành Hoạt hình.
- Nhấp chuột phải vào Hoạt ảnh và chọn Gán macro từ Menu ngữ cảnh .

- Gán macro hộp thoại xuất hiện.
- Chọn Tên macro dưới dạng Biểu đồ hoạt hình .
- Nhấn OK .

- Biểu đồ hoạt hình đã sẵn sàng. Nhấp vào Hoạt ảnh nút.

Phần thực hành
Chúng tôi đã cung cấp phần thực hành trên mỗi tờ ở phía bên phải để bạn có thể thực hành các bước.

Tải xuống Sách bài tập thực hành
Bài viết liên quan
- Cách tạo hiệu ứng văn bản trong Excel
- Hoạt ảnh VBA trong UserForm