Question

关于Excel中VBA代码理解？

Sub GetAllCells()

Dim cell As Range

Const RedIndex = 1 （什么意思？）

Application.ScreenUpdating = False '禁止屏幕更新

Dim a(20) As Integer （以下11行代码表示什么意思？）
Dim i As Integer
Dim j As Integer
For i = 1 To 20
Randomize
l:
a(i) = Int(40 * Rnd + 1)
For j = 1 To i - 1
If a(j) = a(i) Then GoTo l
Next j
Next i

For Each cell In Selection
If cell.Value = a(1) Then cell.Interior.ColorIndex = RedIndex
If cell.Value = a(2) Then cell.Interior.ColorIndex = RedIndex
Next cell
Application.ScreenUpdating = True '恢复屏幕更新
End Sub
想请教这一串代码的意思

Answer 1

const 是声明常量
意思大概是，生成20个不相同的随机数，随机数的范围是1到40之间的整数。
然后判断单元格的值，是否为前两个随机数的值一致，如果一致则设置单元格颜色，色卡1我不知道什么颜色，现在用手机，没法查看。
其实这个代码有意思的是，根本没有必要做20组随机数，既然只用两个，根本没有必要取20个。多取那十八个是让电脑练习循环么？

Answer 2

Const RedIndex = 1 （什么意思？）
这是定义常量，以后凡是遇到RedIndex 的地方，都表示整数1，编程时候这样做的好处是，以后如果需要修改为2的时候只改这一个地方就好了。

Dim a(20) As Integer （以下11行代码表示什么意思？）
Dim i As Integer
Dim j As Integer
For i = 1 To 20
Randomize
l:
a(i) = Int(40 * Rnd + 1)
For j = 1 To i - 1
If a(j) = a(i) Then GoTo l
Next j
Next i
这段代码的功能是在数组a中产生20个不同的随机数（1-40之间）

For Each cell In Selection
If cell.Value = a(1) Then cell.Interior.ColorIndex = RedIndex
If cell.Value = a(2) Then cell.Interior.ColorIndex = RedIndex
Next cell
这4行代码的功能是，对选择范围内单元格，如果值和数组a中前两个相同，就设置填充颜色为红色。此时数组a中是随机数数，实际上就是随机填充部分单元格的颜色。

Answer 3

Const RedIndex = 1 填充颜色的代号，比如1 为 黑色
下面数组a，就是产生随机数，如果和表格里的数字一样，就填充颜色，填充什么颜色？就是上面的颜色代码1.