2010年6月14日 星期一

Re: [算表] EXCEL 隨機 不重複 (整數)亂數

作者: chungyuandye (養花種魚數月亮賞星星) 看板: Office
標題: Re: [算表] EXCEL 隨機 不重複
時間: Wed Oct 8 21:03:12 2008

※ 引述《lynnlnn (乘輕航機等你)》之銘言:
: 軟體:EXCEL 2003
: 版本:
: 1-60格不重複 每個數字只能出現1次 每個數字都要出現過
: 隨機分派到表格 取整數代表順序
: 用=INT(RAND()*(59)+1)
: 發現會重複出現 且每點一次亂數又會換
: 請問如何解決重複出現的問題 如何鎖定亂數表


洗牌法
Sub test()
Dim x(1 To 60) As Integer
For i = 1 To 60
x(i) = i
Next
For j = 1 To 1000
a1 = Int(Rnd() * 60) + 1
a2 = Int(Rnd() * 60) + 1
temp = x(a1)
x(a1) = x(a2)
x(a2) = temp
Next
For l = 1 To 60
Cells(l, 1) = x(l)
Next
End Sub

排序法
A1=rand(), b1=rank(a1,$a$1:a$60)
拖拉放, b1:b60就是1-60隨機分派


--
我打研究室走過 那獨坐電腦前的容顏如苦瓜的糾結
靈感不來 長壽的煙霧不散
研究室如小小的寂寞的城 恰如商管的電梯向晚

http://chungyuandye.blogspot.com

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 218.173.129.184
推 JieJuen:詳解~! 推!  10/09 01:42

2 則留言: