返回列表 上一主題 發帖

設定指定數字範圍亂數

設定指定數字範圍亂數

使用VBA或巨集進行                                                                                      
1.按"自動載入"會自動載入共15區指定溫度範圍亂數(取小數點第1位)  
2.如第一區需求溫度-10度 溫度正負2度,指定區域C20:V34內溫度範圍亂數(取小數點第1位)  
請各位高手大哥協助....謝謝  

設定指定範圍亂數.rar (26.48 KB)

回復 1# jeff5424

請參考。
  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 i = 1 To UBound(arr)
  9.             For j = 1 To UBound(arr, 2)
  10.                 arr(i, j) = nt + Round(Rnd * tpm, 1)
  11.             Next j
  12.         Next i
  13.         Cells(v, 3).Resize(UBound(arr), UBound(arr, 2)) = arr
  14.         v = v + 18
  15.     Next r
  16. End Sub
複製代碼

TOP

本帖最後由 jeff5424 於 2018-7-10 20:24 編輯

非常感謝Kubi大大
經測試可正常使用]
...再一次謝謝

TOP

        靜思自在 : 忘功不忘過,忘怨不忘恩。
返回列表 上一主題