【教學】Excel - 玩玩亂數



贊助商連結


leonchou
2003-06-28, 12:53 AM
問題:如何隨機做出200到800間的數字30個。

方法一: RANDBETWEEN函數

將此公式複製到30個儲存格中--
=RANDBETWEEN(200,800)

註: 必須使用增益集的「分析工具箱」才有這個RANDBETWEEN函數。
如何? [工具] > [增益集] > [分析工具箱]

方法二: 亂數產生器

在使用了分析工具箱後,也可以用「亂數產生器」來達到相同需求。
[工具] > [資料分析] > [亂數產生器] >
"亂數個數":輸入 30
"分配"  :選「均等分配」
參數-介於 :輸入 200 和 800
"輸出選項":選擇要放置亂數的位置
其他選項不需設定 > [確定]

如此你可以不用公式而得到 30 個 200~800 的亂數。

方法三: VBA

'取代手動Enable(增益集--分析工具箱)
With AddIns("分析工具箱")
If Not .Installed Then .Installed = True
End With

'方法3-1 (結果是公式)
ActiveCell.Formula = "=RANDBETWEEN(1,10)"

'方法3-2 (結果是常數)
Application.Run "ATPVBAEN.XLA!Random", ActiveCell, , , 1, , 1, 10

PS1.若方法3-2不能Run,請依上述方式將[VBA分析工具箱]Enable起來.
PS2.若想了解方法3-2的參數,請自行操作/錄製[工具--資料分析--亂數產生器].

贊助商連結


沙拉油
2003-06-28, 09:03 AM
小弟冒昧補充一點
用 rand 也可以產生區間亂數,這樣就不必安裝分析工具箱了
底下的公式可以產生200∼800間的亂數。

=INT(RAND()*(800-199))+200

86372019
2003-06-28, 10:10 PM
有感激,又偷學了一招