excel表格随机抽取姓名,如果改为8*8的方格要怎样修改这些代码?
发布网友
共1个回答
热心网友
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
追问确定有个方格？
