首先我們要了解動畫的原理：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 動態(tài)效果如下

本實例知識點：

1. 單元格背景色如何設置

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

3. Sleep延時的應用