1、首先，我们在Excel表格中如图按升序将数字输入表格，以方便在VBA中进行读取和处理操作。如图：
2、进入VBA环境，可以按键盘上的“Alt+F11”进入。双击“Microsoft Excel对象”下面的sheet1（sheet1），为表格sheet1添加代码
3、在sheet1代码编辑窗口中添加如下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i, j, k, introw, intcol As Integer
For k = 1 To 184
For i = 4 To 26
For j = 2 To 31
If Sheets(1).Cells(i, j).Value = k Then
Application.Wait (Now + TimeValue("00:00:01") * 0.5)
Sheets(1).Cells(i, j).Interior.ColorIndex = 3
End If
Next j
Next i
Next k
For k = 1 To 6
Application.Wait (Now + TimeValue("00:00:01") / 1.5)
For i = 5 To 23
For j = 6 To 12
If Sheets(1).Cells(i, j).Value = 1000 And (k Mod 2 = 0) Then
Sheets(1).Cells(i, j).Interior.ColorIndex = 3
End If
If Sheets(1).Cells(i, j).Value = 1000 And (k Mod 2 = 1) Then
Sheets(1).Cells(i, j).Interior.ColorIndex = 0
End If
Next j
Next i
Next k
Cells.ClearFormats
End Sub
4、返回Excel表格，在Sheet1工作表任意空白处单击，就可以看到“I❤中国”文字按笔画顺序变红，之后红色心形中心在“扑通扑通”闪烁。至此大功告成啦。
