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

vba制作的实例（VBA实例10设计一个简单的动画）Sleep 1000 Range("c3:e5")(i).Interior.Color = RGB(167 167 13) Dim i As Integer t As Single t = Timer For i = 1 To 9

我们都知道动画是很酷炫的东西，那么今天小编分享开始制作简单的动画效果！

首先我们要了解动画的原理：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逐个染色。

单元格背景色如何设置

For……Next循环

Sleep延时的应用