Excel实战技巧95：创建数字雨效果

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($AR$1,15)=MOD(ROW()+A$1,15)

格式设置为字体显示白色。

图3

（2）选择单元格区域A2:AP32，单击功能区“开始”选项卡“样式”组中的“条件格式——新建规则”，新建条件格式规则如下图4所示。

在“为符合此公式的值设置格式”中的公式为：

=MOD($AR$1,15)=MOD(ROW()+A$1+1,15)

格式设置为字体显示亮绿色。

图4

（3）选择单元格区域A2:AP32，单击功能区“开始”选项卡“样式”组中的“条件格式——新建规则”，新建条件格式规则如下图5所示。

在“为符合此公式的值设置格式”中的公式为：

=OR(MOD($AR$1,15)=MOD(ROW()+A$1+2,15),MOD($AR$1,15)=MOD(ROW()+A$1+3,15),MOD($AR$1,15)=MOD(ROW()+A$1+4,15),MOD($AR$1,15)=MOD(ROW()+A$1+5,15))

格式设置为字体显示墨绿色。

图5

5.选择单元格区域A1:AP32，将其背景色设置为黑色。

此时，运行MatrixNumberRain过程，出现上图1所示的数字雨效果。

注：这是trumpexcel.com上介绍的一种方法，还可以使用其它方法实现。