如何用VBA在excel表格中制作闪烁的我爱中国效果？

它是Excel自动化的重要组成部分。Excel表格用于表示或显示数据，而VBA处理数据。今天我们来看看用vba制作闪烁我爱汉字的教程。

软件名称：Office 2016专业增强版2021.04中文免费官方版(带安装教程)64位软件大小：1.05GB更新时间：2021年4月15日立即下载1。首先，我们按照图中所示的升序将数字输入到Excel表格中，以便于在VBA阅读和处理。图片：

2.按键盘上的“Alt F11”进入VBA环境。双击Microsoft Excel对象下的工作表1(工作表1)，将代码添加到工作表1中。

3.在sheet1代码编辑窗口中添加以下代码：

私有子工作表_选择更改(按值目标作为范围)如果工作表(1)为i=4到26，则Dim i，j，k，introw，intcol作为整数。细胞(I，j)。值=k然后应用。等待(现在时间值(' 00:00:01') * 0.5)工作表(1)。单元格(I，j). interior . color index=3 End If Next j Next I Next k对于k=1到6的应用。等待(现在时间值(' 00:00:01 ')/1.5)I=5到23j=6到12 If Sheets(1)。细胞(I，j)。值=1000 And (k Mod 2=0)然后是Sheets(1)。单元格(I，j).内部.颜色索引=3如果工作表(1)结束。细胞(I，j)。值=1000 And (k Mod 2=1)然后是Sheets(1)。单元格(I，j). interior . color index=0 End If Next j Next I Next kcell。清晰格式发送子

4.返回Excel，点击Sheet1的任意空白处，可以看到“I China”字符按照笔画顺序变红，然后红色心形中心“扑通扑通”一声闪烁。至此，你就完了。

以上是VBA EXCEL制作的《我爱中国》教程。希望大家喜欢。请继续关注。

相关建议：

如何在excel中设置VBA共享工作簿的权限？

如何在excel中用vba快速重命名未打开的文件？

excel如何用vba判断最后一个单元格是否为空？