首先我們要了解動(dòng)畫(huà)的原理：1.變化，即前后不一樣。2，時(shí)間的延遲，延遲越低，動(dòng)畫(huà)越細(xì)膩。

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運(yùn)行代碼，你會(huì)看到如下效果：背景色會(huì)從1-9逐個(gè)染色。

10-2 動(dòng)態(tài)效果如下

本實(shí)例知識(shí)點(diǎn)：

1. 單元格背景色如何設(shè)置

2. For……Next循環(huán)

3. Sleep延時(shí)的應(yīng)用