¥»©«³Ì«á¥Ñ jeff5424 ©ó 2018-7-28 22:59 ½s¿è
¨Ï¥ÎVBA©Î¥¨¶°¶i¦æ
1.«ö"¦Û°Ê¸ü¤J"·|¦Û°Ê¸ü¤J¦@15°Ï«ü©w·Å«×½d³ò¶Ã¼Æ(¤w§¹¦¨¦p¤U©Ò¥Ü)
2.¦p²Ä¤@°Ï»Ý¨D·Å«×-10«× ·Å«×¥¿t2«×,«ü©w°Ï°ìC20:V34¤º·Å«×½d³ò¶Ã¼Æ(¤w§¹¦¨¦p¤U©Ò¥Ü)
3.¨C¤@Ó·Å«×"¤W¤U"¡Ó0.5¤º¦p¤U©Ò¥Ü(¥ª¥k¤£¥Î)
½Ð¦U¦ì°ª¤â¤jô¨ó§U....ÁÂÁÂ
¥H¤U¬°Kubi ¤j¤j°ª¤â³]pµ{¦¡
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 |