ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

¦^´_ 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

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD