本帖最後由 jeff5424 於 2018-7-28 22:59 編輯
使用VBA或巨集進行
1.按"自動載入"會自動載入共15區指定溫度範圍亂數(已完成如下所示)
2.如第一區需求溫度-10度 溫度正負2度,指定區域C20:V34內溫度範圍亂數(已完成如下所示)
3.每一個溫度"上下"±0.5內如下所示(左右不用)
請各位高手大哥協助....謝謝
以下為Kubi 大大高手設計程式
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 |
發表於 2018-7-28 22:56
| 
