VBA实例10设计一个简单的动画（一）

首先我们要了解动画的原理：1.变化，即前后不一样。2，时间的延迟，延迟越低，动画越细腻。

Public Declare Sub Sleep Lib 'kernel32' (ByVal dwMilliseconds As Long)

Public Sub Fig_()

Dim i As Integer, t As Single

t = Timer

For i = 1 To 9

Range('c3:e5')(i).Interior.Color = RGB(167, 167, 13)

Sleep 1000

Next i

End Sub

10-1 代码截图及注释

最后按F5运行代码，你会看到如下效果：背景色会从1-9逐个染色。

10-2 动态效果如下

本实例知识点：

1. 单元格背景色如何设置

2. For……Next循环

3. Sleep延时的应用