Excel如何制作我爱中国效果？
Excel如何制作我爱中国效果？这里需要用到VBA编程了。
首先看一下效果，如果不能播放，请点击【我爱中国】观看
具体实现的步骤如下
首先，我们在Excel表格中如图按升序将数字输入表格，以方便在VBA中进行读取和处理操作。如图：
然后，开发工具-Visual Basic-双击“Microsoft Excel对象”下面的sheet1（sheet1），为表格sheet1添加代码
然后，在sheet1代码编辑窗口中添加如下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i, j, k, introw, intcol As Integer
For k = 1 To 191
For i = 1 To 28
For j = 1 To 33
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 = 1 To 23
For j = 1 To 12
If Sheets(1).Cells(i, j).Value = 100 And (k Mod 2 = 0) Then
Sheets(1).Cells(i, j).Interior.ColorIndex = 3
End If
If Sheets(1).Cells(i, j).Value = 100 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最后，返回Excel表格，在Sheet1工作表任意空白处单击，就可以看到“I❤中国”文字按笔画顺序变红，之后红色心形中心在“扑通扑通”闪烁。
本文使用的Excel文件下载
文件名：【4】我爱中国.xls
地址: https://n802.com/file/12101939-468580586
本文由 我爱Excel网 原创