標題: 設定指定數字範圍亂數 [打印本頁]

---

作者: jeff5424    時間: 2018-7-7 00:58     標題: 設定指定數字範圍亂數

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

---

作者: Kubi    時間: 2018-7-10 13:38

回復 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

複製代碼

---

作者: jeff5424    時間: 2018-7-10 20:23

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

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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)