学习Excel技术，关注微信公众号：
excelperfect
在一些科幻片中，经常会看到屏幕上出现一片不断变幻的数字，很有科技感。使用Excel也能模拟出这样的效果，如下图1所示。
图1
下面介绍在Excel中创建这种效果的一种方法。
1.在单元格区域A1:AP1中，随机输入0至9之间的任一数字，如下图2所示。可以使用RANDBETWEEN函数来生成这些数字，然后将其转换为不变的数值。
图2
2.在单元格区域A1:AP32中，输入公式：
=INT(RAND()*10)
生成0至9之间的随机数。
3.按Alt F11键，打开VBE，插入一个标准模块，输入代码：
#If VBA7 Then
Public Declare PtrSafe Sub Sleep Lib "kernel32" (ByValdwMilliseconds As Long) '64位系统
#Else
Public Declare Sub Sleep Lib "kernel32" (ByValdwMilliseconds As Long) '32位系统
#End If
Sub MatrixNumberRain()
Dim i As Long
i = 1
Do While i <= 40
DoEvents
Range("AR1").Value = i
i = i 1
Sleep 50
Loop
End Sub
上述代码在单元格AR1中输入数字1至40，每个数字之间延迟50毫秒。
4.设置条件格式。
（1）选择单元格区域A2:AP32，单击功能区“开始”选项卡“样式”组中的“条件格式——新建规则”，新建条件格式规则如下图3所示。
在“为符合此公式的值设置格式”中的公式为：
=MOD(AR1,15)=MOD(ROW() A
格式设置为字体显示白色。
图3
（2）选择单元格区域A2:AP32，单击功能区“开始”选项卡“样式”组中的“条件格式——新建规则”，新建条件格式规则如下图4所示。
在“为符合此公式的值设置格式”中的公式为：
=MOD(AR1,15)=MOD(ROW() A
格式设置为字体显示亮绿色。
图4
（3）选择单元格区域A2:AP32，单击功能区“开始”选项卡“样式”组中的“条件格式——新建规则”，新建条件格式规则如下图5所示。
在“为符合此公式的值设置格式”中的公式为：
=OR(MOD(AR1,15)=MOD(ROW() A1 2,15),MOD(AR1,15)=MOD(ROW() A1 3,15),MOD(AR1,15)=MOD(ROW() A1 4,15),MOD(AR1,15)=MOD(ROW() A1 5,15))
格式设置为字体显示墨绿色。
图5
5.选择单元格区域A1:AP32，将其背景色设置为黑色。
此时，运行MatrixNumberRain过程，出现上图1所示的数字雨效果。
注：这是trumpexcel.com上介绍的一种方法，还可以使用其它方法实现。
欢迎在下面留言，完善本文内容，让更多的人学到更完美的知识。
欢迎到知识星球：完美Excel社群，进行技术交流和提问，获取更多电子资料。
