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

suzhan · 发表于 2004-12-15 18:49:00

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

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

老鬼 · 发表于 2004-12-15 20:50:00

这是我以前请教别人给我的例子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:00

如何用?

老鬼 · 发表于 2004-12-16 03:40:00

请看附件：

test2000 · 发表于 2004-12-16 06:01:00

very good

suzhan · 发表于 2004-12-16 17:29:00

老鬼就是老鬼,谢谢! 不过好睇唔顺眼你的头像.

chenwintek · 发表于 2005-4-2 19:35:00

非常实用，谢谢！

nxjswt · 发表于 2005-9-15 05:34:00

不错!!!

帐号		自动登录	找回密码
密码			注册

群介绍
Excel中国官方交流群2群 (331511605)
Excel中国官方群 (243419633)
Office China for Exc (498717031)
Excel交流群(纯技术) (324568243)

主题相关群

地区相关群[您还没设置居住地]

[基础应用] 请问如何做到随机抽取不重复的值出来的呢?

本帖子中包含更多资源

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)