excel表格怎么利用VBA制作闪烁的我爱中国效果?

VBA是Excel自动化的重要组成部分，Excel表格用于表示或展示数据，VBA则是对数据进行处理。今天我们就来看看使用vba制作闪烁的我爱中国文字的教程。

软件名称：Office 2016专业增强版 中文免费正式版(附安装教程) 64位软件大小：1.05GB更新时间：2019-04-22立即下载

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 kCells.ClearFormatsEnd Sub

4、返回Excel表格，在Sheet1工作表任意空白处单击，就可以看到I❤中国文字按笔画顺序变红，之后红色心形中心在扑通扑通闪烁。至此大功告成啦。

以上就是EXCEL用VBA制作我爱中国的教程，希望大家喜欢，请继续关注PHP爱好者。

相关推荐：

excel中VBA怎么设置共享工作簿权限?

excel怎么使用vba快速重命名未打开的文件?

excel怎么使用vba判断最后一个单元格是否为空?