【教學】Excel - 玩玩亂數
 

[color=blue]問題：如何隨機做出200到800間的數字30個。[/color]

[color=red]方法一： RANDBETWEEN函數[/color]

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

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

[color=red]方法二： 亂數產生器[/color]

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

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

[color=red]方法三： VBA[/color]

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

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

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

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

小弟冒昧補充一點
用 rand 也可以產生區間亂數，這樣就不必安裝分析工具箱了
底下的公式可以產生200∼800間的亂數。

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

有感激，又偷學了一招