暱稱: 阿佐 頭銜: 上班無聊打怪去
中學生
- 帖子
- 108
- 主題
- 1
- 精華
- 0
- 積分
- 113
- 點名
- 0
- 作業系統
- Win 10
- 軟體版本
- Office 2016
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 臺灣
- 註冊時間
- 2017-9-7
- 最後登錄
- 2019-2-27
 
|
2#
發表於 2018-7-29 01:11
| 只看該作者
回復 1# jeff5424
原先你的陣列是由左至右、由上到下去編輯變數，
我幫你把上到下編輯變數的方式稍微調整一下，
修改成會依據上一個的數值，
做正負0.5的調整，
程式碼如下，
請參考。- Sub test()
- Randomize
- Dim arr(1 To 15, 1 To 20)
- v = 20
- For r = 2 To 16
- tpm = Cells(r, 3).Value * 2 + 0.1
- nt = Cells(r, 2).Value - Cells(r, 3).Value
- For j = 1 To UBound(arr, 2)
- arr(1, j) = nt + Round(Rnd * tpm, 1)
- For i = 2 To UBound(arr)
- arr(i, j) = arr(i - 1, j) + Round(0.5 - Rnd, 1)
- Next i
- Next j
- Cells(v, 3).Resize(UBound(arr), UBound(arr, 2)) = arr
- v = v + 18
- Next r
- End Sub
 設定指定範圍亂數正負0.5內.rar (53.82 KB)
|
|
