VBA:Excel动画

Sub TestMe()    Dim cnt As Long    For cnt = 1 To 6        Wait1Second        WriteCircle 15, 1, 1        Wait1Second        WriteCircle 15, 1, 2        Wait1Second        WriteCircle 15, 2, 1        Wait1Second        WriteCircle 15, 2, 2    Next cntEnd SubSub Wait1Second()     Application.Wait (Now + #12:00:01 AM#)End SubSub WriteCircle(sizeX As Long, stepX As Long, stepY As Long)     Dim sizeY As Long: sizeY = sizeX    Dim y&, x&, r&, g&, b&    Dim myCell As Range    Worksheets(1).Cells.Clear    For x = 1 To sizeX Step stepX        For y = 1 To sizeY Step stepY            With Worksheets(1)                Set myCell = .Cells(x, y)                 If r >= 255 Then                    If g >= 255 Then                        b = b + 2                    Else                        g = g + 2                    End If                Else                    r = r + 2                End If                myCell.Interior.Color = RGB(r, g, b)            End With        Next    NextEnd Sub