excel表格怎么利用VBA制作闪烁的我爱中国效果?
时间:2021-06-14 来源:互联网
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判断最后一个单元格是否为空?
相关阅读更多 +
-
三国群英传策定九州星石怎么搭配-三星石搭配推荐 2025-09-06
-
电脑本地连接设置教程:简单几步轻松搞定网络配置 2025-09-06
-
从零开始手把手教你建立个人博客的完整指南 2025-09-06
-
异星探险家合成表怎么用-异星探险家手游合成玩法详解 2025-09-06
-
鹅鸭杀呆呆鸟怎么算作胜利-呆呆鸟提升胜率方法 2025-09-06
-
网站死链检测全攻略:快速排查与修复方法详解 2025-09-06
最近更新