Office中国论坛/Access中国论坛

标题: 请问如何做到随机抽取不重复的值出来的呢? [打印本页]

作者: suzhan 时间: 2004-12-15 18:49
标题: 请问如何做到随机抽取不重复的值出来的呢?
[attach]8151[/attach]

请问如何做到随机抽取不重复的值出来的呢?

要求. 从各组分别随机抽取不重复的三个值出来.

作者: 老鬼 时间: 2004-12-15 20:50
这是我以前请教别人给我的例子Dim DrawArray(10) As Boolean

Dim RandSeedNum As Integer

Dim FillRange As RangeSet FillRange = Range("A1:A5")

FillRange.ClearContents

Erase DrawArray()For Each Fillcell In FillRange

RandSeedNum = Int((10 * Rnd) + 1)

Do While DrawArray(RandSeedNum)

RandSeedNum = Int((10 * Rnd) + 1)

Loop

DrawArray(RandSeedNum) = True

Fillcell.Value = RandSeedNum

NextEnd Sub

作者: suzhan 时间: 2004-12-15 23:30
如何用?

作者: 老鬼 时间: 2004-12-16 03:40
请看附件：[attach]8162[/attach]

作者: test2000 时间: 2004-12-16 06:01
very good

作者: suzhan 时间: 2004-12-16 17:29
老鬼就是老鬼,谢谢! 不过好睇唔顺眼你的头像.

作者: chenwintek 时间: 2005-4-2 19:35
非常实用，谢谢！

作者: nxjswt 时间: 2005-9-15 05:34
不错!!!

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