各位版友大家好
最近再写一个抽奖程式
方法是每个序号对到一个乱数，最后取乱数最大值的该序号做为得奖人
但总觉得得奖人常常重复，不知道是不是乱数的问题?
目前乱数是使用(前面都有先呼叫Randomize)
Rnd()
有试过 Rnd(Time)
不知道还有没有其他可以更乱的方法?
另一个想请教的问题是有没有办法降低excel的运跑速度?
(长官嫌这样抽奖太快显示没有刺激感...)
目前是增加垃圾回圈
但是常常显示的部分会当掉，所以有点不知道怎么办
感谢大家!

第二个问题 可使用application.wait 的方法可以达到等一秒(或您指定的时间) 再继续进行下去

如果跑垃圾循环会感觉当机无反应，可于循环内加入doevents看看

Rnd(Rnd())呢？

rnd的那个引数跟乱不乱完全无关 怎么会有人有这种误解抱歉，只要>0都是取出下一个虚拟乱数，跟乱不乱无关rnd(1)或rnd(8)或rnd()完全一样而rnd()值在[0, 1)之间 所以rnd(rnd())跟rnd()完全一样

抱歉没有表达清楚，更乱是希望他的下一个引数出现机率更加不同谢谢1,2楼大大我会再试试看