- 帖子
- 163
- 主題
- 1
- 精華
- 0
- 積分
- 170
- 點名
- 0
- 作業系統
- Window 7
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-9-5
- 最後登錄
- 2022-7-20
|
2#
發表於 2018-7-10 13:38
| 只看該作者
回復 1# jeff5424
請參考。- 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 i = 1 To UBound(arr)
- For j = 1 To UBound(arr, 2)
- arr(i, j) = nt + Round(Rnd * tpm, 1)
- Next j
- Next i
- Cells(v, 3).Resize(UBound(arr), UBound(arr, 2)) = arr
- v = v + 18
- Next r
- End Sub
|
|
