excel表格怎么利用VBA制作闪烁的我爱中国效果?
百度经验 发布时间：2019-02-14 16:13:00 作者：gaocegao123 
我要评论
我要评论excel表格怎么利用VBA制作闪烁的我爱中国效果？excel表格中想要制作一个闪烁的我爱中国的文字，该怎么制作呢？下面我们就来看看使用vba制作的教程，需要的朋友可以参考下
（福利推荐：你还在原价购买阿里云服务器？现在阿里云0.8折限时抢购活动来啦！4核8G企业云服务器仅2998元/3年，立即抢购>>>：9i0i.cn/aliyun）
VBA是Excel自动化的重要组成部分，Excel表格用于表示或展示数据，VBA则是对数据进行处理。今天我们就来看看使用vba制作闪烁的我爱中国文字的教程。
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❤中国”文字按笔画顺序变红，之后红色心形中心在“扑通扑通”闪烁。至此大功告成啦。
以上就是EXCEL用VBA制作我爱中国的教程，希望大家喜欢，请继续关注程序员之家。
相关推荐：
相关文章
- 路灯不仅在夜晚为行人照明，现今更成为一道独特的风景。今天小编就为大家详细分享利用excel vba编程在窗体上画路灯方法，不会的朋友可以参考本文，希望能对大家有所帮助2016-08-22
- 喇叭花,一种很坚韧也很美丽的花,所以,喇叭花是我最喜爱的花卉。这篇教程是向程序员之家的朋友分享excel vba编程画喇叭花方法，不会的朋友可以参考本文，来看看吧2016-08-22
- 有时在编写VBA程序时，会发现没有与Excel函数相对应的VBA指令，在此情况下，只能想办法通过引用Excel函数来达到目地，下面小编就为大家介绍在excel表格中vba使用day函数方2016-08-22
- 这篇教程是向程序员之家的朋友分享excel vba制作一个数字时钟方法，教程真的很不错，值得大家学习，推荐到程序员之家，喜欢的朋友可以参考本文，来看看吧2016-08-19
- excel表格中的日期怎么通过vba计算日期所在季度？excel表格中有很多日期，想知道这些日期都是哪个季度的，该怎么办呢？下面我们就来看看求出日期所在季度的教程，需要的朋2016-08-19
- excel如何使用vba函数计算指定间隔月后的日期？很多朋友并不是很清楚，所以下面小编就为大家详细介绍一下，不会的朋友可以参考本文，希望能对大家有所帮助2016-08-19
- 今天小编为大家分享利用excel vba编程在窗体上画盆子方法，教程很不错，值得大家学习，推荐到程序员之家，一起来学习吧2016-08-19
- 这篇教程主要是向程序员之家的朋友分享excel vba编程制作一个恶作剧小程序方法，教程比较基础，但很不错，推荐过来，一起来学习吧2016-08-17
- excel怎么借助vba画一个简笔画西红柿？excel中可以使用vba变成来绘制一些图形，今天我们就来看看绘制一个简笔画番茄的教程，很简单，需要的朋友可以参考下2016-08-17
- 这篇教程是向程序员之家的朋友分享excel vba编程怎么画西红柿方法，教程很不错，值得大家学习，推荐过来，一起来学习吧2016-08-17
最新评论