³]©w«ü©w¼Æ¦r½d³ò¶Ã¼Æ

jeff5424

¨Ï¥ÎVBA©Î¥¨¶°¶i¦æ                                                                                      
1.«ö"¦Û°Ê¸ü¤J"·|¦Û°Ê¸ü¤J¦@15°Ï«ü©w·Å«×½d³ò¶Ã¼Æ(¨ú¤p¼ÆÂI²Ä1¦ì)  
2.¦p²Ä¤@°Ï»Ý¨D·Å«×-10«× ·Å«×¥¿­t2«×,«ü©w°Ï°ìC20:V34¤º·Å«×½d³ò¶Ã¼Æ(¨ú¤p¼ÆÂI²Ä1¦ì)  
½Ð¦U¦ì°ª¤â¤j­ô¨ó§U....ÁÂÁ  

Kubi

¦^´_ 1# jeff5424

½Ð°Ñ¦Ò¡C

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

½Æ»s¥N½X

jeff5424

«D±`·PÁÂKubi¤j¤j
¸g´ú¸Õ¥i¥¿±`¨Ï¥Î]
...¦A¤@¦¸ÁÂÁÂ