- 帖子
- 13
- 主題
- 2
- 精華
- 0
- 積分
- 15
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- office2016
- 閱讀權限
- 10
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2018-8-12
- 最後登錄
- 2018-10-11
|
請教各位先進,小弟正在做模擬驗證,使用亂數產生器產生數據進行模擬驗證,
我在VBA上寫了一段程式產生了巨集按鈕可以在A1:A7產生一週的亂數,可是
我想要在每按一次巨集按鈕就再自動往下產生一週(A8:A14)的亂數該如何
編寫呢?
Sub Project1_Click()
Dim rTar As Range
Randomize
For Each rTar In Range("A1:A7")
rTar = Int((21 - 1) * Rnd + 1) * 0.01
Next
End Sub |
|
發表於 2018-8-12 21:18
| 
