a5007185

回復 1# jeff5424

原先你的陣列是由左至右、由上到下去編輯變數，
我幫你把上到下編輯變數的方式稍微調整一下，
修改成會依據上一個的數值，
做正負0.5的調整，
程式碼如下，
請參考。

1. Sub test()
   
2.     Randomize
   
3.     Dim arr(1 To 15, 1 To 20)
   
4.     v = 20
   
5.     For r = 2 To 16
   
6.         tpm = Cells(r, 3).Value * 2 + 0.1
   
7.         nt = Cells(r, 2).Value - Cells(r, 3).Value
   
8.         For j = 1 To UBound(arr, 2)
   
9.             arr(1, j) = nt + Round(Rnd * tpm, 1)
   
10.             For i = 2 To UBound(arr)
    
11.                 arr(i, j) = arr(i - 1, j) + Round(0.5 - Rnd, 1)
    
12.             Next i
    
13.         Next j
    
14.         Cells(v, 3).Resize(UBound(arr), UBound(arr, 2)) = arr
    
15.         v = v + 18
    
16.     Next r
    
17. End Sub

複製代碼

設定指定範圍亂數正負0.5內.rar (53.82 KB)

下載次數: 3

2018-7-29 01:11

a5007185

回復 4# jeff5424

如果計算出來的結果超過範圍，
他會自己在跑出一個數值。

180805_設定指定範圍亂數正負0.5內.rar (50.9 KB)

下載次數: 4

2018-8-5 01:06