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的參數,請自行操作/錄製[工具--資料分析--亂數產生器].
方法一: 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的參數,請自行操作/錄製[工具--資料分析--亂數產生器].