Office中国论坛/Access中国论坛

标题: [求助]VBA自动着色与自动对比的问题 [打印本页]

作者: pajkxy 时间: 2008-9-5 11:57
标题: [求助]VBA自动着色与自动对比的问题
[attach]31926[/attach]
请帮忙修改下面的语句，能达到运算需要（B列至F列有一组原有的自然数内容为1-35，需要VBA生成一列随机数进行比较，如果与B列至F列最后7行任意一列相同就停止运行，请您指教。）

Sub tt()
For i = 2 To 100
Cells(i, 11) = Int(35 * Rnd + 1)
Cells(i, 12) = Int(35 * Rnd + 1)
Cells(i, 13) = Int(35 * Rnd + 1)
Cells(i, 14) = Int(12 * Rnd + 1)
Cells(i, 15) = Int(12 * Rnd + 1)
Next
End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)