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

[µo°Ý] ±N¤@©T©w­ÈÀH¾÷¤À°t¨ì«ü©wÄæ¦ì

[µo°Ý] ±N¤@©T©w­ÈÀH¾÷¤À°t¨ì«ü©wÄæ¦ì

½Ð±Ð¦U¦ì¤j¤j , ¥Ñ©ó¤p§Ì¥¿¦b°µ¼ÒÀÀ¬ã¨s¹J¨ì¤F¥H¤Uªº°ÝÃD , ½Ð¦U¦ì¤j¤jÀ°¦£«ü¾ÉVBA¸Ó¦p¦ó½s¼g©O ? ·P®¦ .

·Q­n±NProject1  Demandªº©T©w­ÈÀH¾÷¤À°t¨ì10­ÓSKU¤¤.

¤p¤B

¥»©«³Ì«á¥Ñ n7822123 ©ó 2018-8-26 17:13 ½s¿è

¦^´_ 1# PaulDing

ÀH¾÷¤À°t¨ì10­ÓÄæ¦ìªº¦X­nµ¥©ó111¶Ü?
¦pªG¯à´y­z²M·¡¤@ÂI¡A©ÎªÌÁ|¤@­Ó½d¨Òµ²ªG¡A§O¤H¤~ª¾¹D§Aªº»Ý¨D

TOP

google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2018-8-26 18:02 ½s¿è

¦^´_ 2# n7822123

ÀH«K°µ¤F¤@­Ó¡A¤£ª¾¹D¦³¨S²Å¦X§Aªº»Ý¨D
test1.rar (13.78 KB)
  1. Sub test1()
  2. ¶Ã¼Æ¤ñ¨Ò½d³ò = 0.3
  3. RN = Sheets(1).UsedRange.Rows.Count
  4. ReDim Sum(RN - 1)
  5. For R = 1 To RN - 1
  6.   Sum(i) = Cells(R + 1, 3)
  7.   ave = Sum(i) / 10
  8.   For C = 1 To 9
  9.     Cells(R + 1, C + 3) = Fix(((Rnd * 2) - 1) * (ave * ¶Ã¼Æ¤ñ¨Ò½d³ò) + ave)
  10.   Next C
  11.   Cells(R + 1, 13) = "=sum(RC[-9]:RC[-1])"
  12.   Cells(R + 1, 13) = Sum(i) - Cells(R + 1, 13)
  13. Next R
  14. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2018-8-26 18:26 ½s¿è

¦^´_ 1# PaulDing


­è­èµo²{§AªºS.N. ¦bBÄæ¡A­×§ï¤@¤Uµ{¦¡½X
¦pªG­n¥Î¨ç¼Æ°µªº¸Ü °Ñ¦Ò hcm19522 ¤j¤j§Y¥i

test1.rar (13.85 KB)
  1. Sub test1()
  2. ¶Ã¼Æ¤ñ¨Ò½d³ò = 0.3
  3. RN = Sheets(1).UsedRange.Rows.Count
  4. ReDim Sum(RN - 1)
  5. For R = 1 To RN - 1
  6.   Sum(R) = Cells(R + 1, 4)
  7.   ave = Sum(R) / 10
  8.   For C = 1 To 9
  9.     Cells(R + 1, C + 4) = Fix(((Rnd * 2) - 1) * (ave * ¶Ã¼Æ¤ñ¨Ò½d³ò) + ave)
  10.   Next C
  11.   Cells(R + 1, 14) = "=sum(RC[-9]:RC[-1])"
  12.   Cells(R + 1, 14) = Sum(R) - Cells(R + 1, 14)
  13. Next R
  14. End Sub
½Æ»s¥N½X

TOP

¦^´_ 2# n7822123

¤F¸Ñ¤F. ¤U¦¸§Ú·|ª`·Nªº , ¬O¦X­nµ¥©ó­ì¨Óªº111.
¤p¤B

TOP

hcm19522 µoªí©ó 2018-8-26 17:43


ÁÂÁÂhcm¤j¤jªºÀ°¦£.
¤p¤B

TOP

¦^´_  PaulDing


­è­èµo²{§AªºS.N. ¦bBÄæ¡A­×§ï¤@¤Uµ{¦¡½X
¦pªG­n¥Î¨ç¼Æ°µªº¸Ü °Ñ¦Ò hcm19522 ¤j¤j§Y ...
n7822123 µoªí©ó 2018-8-26 18:22


ÁÂÁÂn¤jªºÀ°¦£
¤p¤B

TOP

¦^´_  PaulDing


­è­èµo²{§AªºS.N. ¦bBÄæ¡A­×§ï¤@¤Uµ{¦¡½X
¦pªG­n¥Î¨ç¼Æ°µªº¸Ü °Ñ¦Ò hcm19522 ¤j¤j§Y ...
n7822123 µoªí©ó 2018-8-26 18:22


n¤j , ¦A»P±z½Ð¸û¤@¤U"¶Ã¼Æ¤ñ¨Ò½d³ò = 0.3"«üªº¬O¤°»ò·N«ä©O? ·P®¦.
¤p¤B

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2018-8-29 00:19 ½s¿è

¦^´_ 9# PaulDing

¥u¬O¤@­ÓÅܼƭÈ=0.3¡A¼Æ¦r¶V¤j¡A¤À°tªº¶V¤£¥­§¡

¥H¥­§¡­È·í¤¤­È¡A¦b­¼¥H¤@­Ó¤ñ¨Ò¨t¼Æ·í°µ¤½®t

°²³]¥­§¡­È=10  ¤ñ¨Ò¨t¼Æ=0.3(30%)    ¬Û·í©ó 10+/-3

¶Ã¼Æ·|±q7~13 ¥ª¥kªº°Ï¶¡¶]¡A¦A¥Îfix¨ç¼Æ¨ú¾ã¼Æ

¦pªG¤ñ¨Ò¨t¼Æ¤j©ó1¡A¦³¥i¯à·|¶]¥X­t­È

TOP

        ÀR«ä¦Û¦b : ¥Í®ð¡A´N¬O®³§O¤Hªº¹L¿ù¨ÓÃg»@¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD