VBA EXCEL - Bài 39. Animating Charts, Biểu đồ có hiệu ứng - Bui The Tam

Vẽ đồ thị hàm sin(x)
Chìa khóa cho hiệu ứng của chart là dùng một hay nhiều lệnh DoEvents. Lệnh này chuyển điều khiển cho hệ điều hành, nó làm cho chart được cập nhật. Thiếu DoEvents sự thay đổi của chart sẽ không được cập nhật bên trong vòng lặp For Next.

[@buithetam8634]

Sub AnimatingChart()
Dim i As Long
Range("A1") = 0
For i = 1 To 300
DoEvents
Range("A1") = Range("A1") + 0.015
DoEvents
Next i
Range("A1") = 0
End Sub