excel表格随机抽取姓名,如果改为8*8的方格要怎样修改这些代码？

excel表格随机抽取姓名,如果改为8*8的方格要怎样修改这些代码？Dim a As Integer '定义公共变量

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Sub 随机()

Dim x As Integer

Dim y As Integer

a = 0

Randomize '初始化

10:

x = Rnd() * (7 - 2) + 2 '生成2至7的随机数，代表行数

y = Rnd() * (6 - 2) + 2 '生成2至6的随机数，代表列数

Range("b2:f7").Interior.ColorIndex = xlNone '去掉填充色

Cells(x, y).Interior.ColorIndex = 3 '填充为红色

DoEvents '释放程序控制权，允许其他事件

Sleep (10) '延时ms

DoEvents '释放程序控制权，允许其他事件

If a = 1 Then Exit Sub '如果按下“结束”钮则终止程序

GoTo 10

End Sub

Sub 结束()

a = 1 '结束标志
end sub

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub 随机()
Dim x As Integer
Dim y As Integer
a = 0
Randomize '初始化
10:
x = Rnd() * (9 - 2) + 2 '生成2至8的随机数，代表行数
y = Rnd() * (9 - 2) + 2 '生成2至8的随机数，代表列数
Range("b2:i9").Interior.ColorIndex = xlNone '去掉填充色
Cells(x, y).Interior.ColorIndex = 3 '填充为红色
DoEvents '释放程序控制权，允许其他事件
Sleep (10) '延时ms
DoEvents '释放程序控制权，允许其他事件
If a = 1 Then Exit Sub '如果按下“结束”钮则终止程序
GoTo 10
End Sub
Sub 结束()
a = 1 '结束标志
End Sub

我不会~~~但还是要微笑~~~：）

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息