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

[µo°Ý] ³]©w«ü©w½d³ò¶Ã¼Æ¥¿­t0.5¤º

[µo°Ý] ³]©w«ü©w½d³ò¶Ã¼Æ¥¿­t0.5¤º

¥»©«³Ì«á¥Ñ 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

³]©w«ü©w½d³ò¶Ã¼Æ¥¿­t0.5¤º.zip (51.86 KB)

¦^´_ 1# jeff5424

­ì¥ý§Aªº°}¦C¬O¥Ñ¥ª¦Ü¥k¡B¥Ñ¤W¨ì¤U¥h½s¿èÅܼơA
§ÚÀ°§A§â¤W¨ì¤U½s¿èÅܼƪº¤è¦¡µy·L½Õ¾ã¤@¤U¡A
­×§ï¦¨·|¨Ì¾Ú¤W¤@­Óªº¼Æ­È¡A
°µ¥¿­t0.5ªº½Õ¾ã¡A
µ{¦¡½X¦p¤U¡A
½Ð°Ñ¦Ò¡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 j = 1 To UBound(arr, 2)
  9.             arr(1, j) = nt + Round(Rnd * tpm, 1)
  10.             For i = 2 To UBound(arr)
  11.                 arr(i, j) = arr(i - 1, j) + Round(0.5 - Rnd, 1)
  12.             Next i
  13.         Next j
  14.         Cells(v, 3).Resize(UBound(arr), UBound(arr, 2)) = arr
  15.         v = v + 18
  16.     Next r
  17. End Sub
½Æ»s¥N½X
³]©w«ü©w½d³ò¶Ã¼Æ¥¿­t0.5¤º.rar (53.82 KB)

TOP

¦^´_ 2# a5007185

«D±`·PÁªü¦õ¤j¤j
¸g´ú¸Õ¥i¥¿±`¨Ï¥Î
¦A¤@¦¸·PÁ§AªºÀ°¦£

TOP

¦^´_ 2# a5007185
ªü¦õ¤j¤j
»Ý¨D·Å«×¥¿­t®t2«×,¦ý³Ì«á·Å«×¥¿­t®t³¡¤À·|¶W¹L2«×
³Â·Ð¦AÀ°§Ú­×§ïµ{§Ç..ÁÂÁÂ

³]©w«ü©w½d³ò¶Ã¼Æ¥¿­t0.5¤º¦ý·|¶W¹L¥¿­t®t.rar (50.82 KB)

TOP

¦^´_ 4# jeff5424

¦pªG­pºâ¥X¨Óªºµ²ªG¶W¹L½d³ò¡A
¥L·|¦Û¤v¦b¶]¥X¤@­Ó¼Æ­È¡C

180805_³]©w«ü©w½d³ò¶Ã¼Æ¥¿­t0.5¤º.rar (50.9 KB)

TOP

¦^´_ 5# a5007185
¦A¦¸·PÁªü¦õ¤j¤j
¸g´ú¸Õ¥i¥¿±`¨Ï¥Î
ÁÂÁ§AªºÀ°¦£

    :loveliness:

TOP

        ÀR«ä¦Û¦b : ¥¬¬I¦p¼½ºØ¡A¥HÅw³ß¤ß´þ¼íºØ¤l¡A¤~·|µoªÞ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD