Office中国论坛/Access中国论坛

标题: 关于舒尔特方格的问题 [打印本页]

作者: ahczzyl 时间: 2008-12-2 08:56
标题: 关于舒尔特方格的问题
请教用EXCEL如何制作舒尔特方格,舒尔特方格:5行5列方格,一共25个格子,随机填入1-25这25个数字,不重复.

作者: pureshadow 时间: 2008-12-2 13:26
Sub test()
Dim mr As Range
For Each mr In Range("a1:e5")
Do
mr = Int(Rnd() * 25 + 1)
Loop Until Application.CountIf(Range("a1:e5"), mr) = 1
Next mr
End Sub

作者: ahczzyl 时间: 2008-12-2 17:25
高手就是高手,谢谢了,测试通过了

作者: ahczzyl 时间: 2008-12-2 17:35
这代码还是有些问题,执行多次,而结果一样,能不能执行一次,就换一种随机内容?谢谢了

作者: pureshadow 时间: 2008-12-2 18:50
测试过的，没有任何问题，每次的结果都是不一样的。
这段代码只是生成结果，没有写清除的，只要在前面加一句
Range("a1:e5").clearcontent就可以了

作者: ahczzyl 时间: 2008-12-3 11:02
谢谢,你说的没错,真的非常感谢

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