- 帖子
- 835
- 主題
- 6
- 精華
- 0
- 積分
- 915
- 點名
- 14
- 作業系統
- Win 10,7
- 軟體版本
- 2019,2013,2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2010-5-3
- 最後登錄
- 2024-11-6
|
4#
發表於 2013-11-17 23:49
| 只看該作者
本帖最後由 luhpro 於 2013-11-17 23:52 編輯
回復 3# a31075ha
Private Sub cbCreat_Click() ' 按鈕後執行, 此 Sub 程式碼開始
Dim rTar As Range ' 定義 rTar 為 儲存格 指標
Randomize ' 以目前時間為Rnd(亂數器) 計算時的基值.
For Each rTar In Selection ' 遍歷(亦即 rTar 會依序指向)集合中的每個元素, Selection 集合內則包含每個被 Mark 的儲存格
rTar = Int(6 * Rnd + 2) 指定 rTar 所指向的儲存格的值為 2 ~ 7 間的任一整數.
' Int() 傳回括弧內數字去掉小數後的整數, Rnd 傳回一個 大於等於 0 且 小於 1 的小數
' Int(6 * rnd) 會傳回 0 ~ 5 的整數, 再 + 2 就變成 2 ~ 7 了.
Next ' 切換 rTar 指向下一個元素, 直到所有元素都已套用過為止
End Sub ' 此 Sub 結束 |
|
