----------------------------------------
要求：使用VAB，自动生成上面的图形，
注一：单元格，里面是一个小圆圈
注二：小圆圈要一秒钟画一个，最后全部画出来，会构成 [四边形+对角线]
注三：不能使用其它的延时函数，只能使用 Application.OnTime 来控制每秒时间
---------------------------------------
新手来学习下，老手也看过来哈

这个画法太简单的，做成一笔画出图形吧

Option Explicit
Dim ptr As Long
Dim dat(0 To 68) As Long
Sub 宏1()
Dim i As Long, j As Long
If ptr = 0 Then
Range("a1:m13").ClearContents
Range("a1:m13").HorizontalAlignment = xlCenter
Range("a1:m13").ClearContents
For i = 1 To 13
For j = 1 To 13
If i = 1 Or i = j Or i + j = 14 Or i = 13 Or j = 1 Or j = 13 Then
dat(ptr) = i * 16 + j
ptr = ptr + 1
End If
Next j
Next i
ptr = 0
End If
If ptr <= UBound(dat) Then
i = dat(ptr) \ 16
j = dat(ptr) Mod 16
ptr = ptr + 1
Cells(i, j) = "●"
DoEvents
Application.OnTime Now() + 1 / 24 / 3600, "宏1"
End If
End Sub