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

§xÃøÃD ¨D°ª¤â¬Û§U!!!!

§xÃøÃD ¨D°ª¤â¬Û§U!!!!

¦p¦ó ¨Ì¥­§¡­È&¤W­­&¤U­­ ²£¥Í¤@²Õ¼Æ­È?
°²¦p ¤@²Õ¬°21­Ó¼Æ­È
ÀYµh¤F«Ü¤[ÁÙ¬O·Q¤£¥X¨Ó ¥Îvba¥i¥H¸Ñ¨M¤]¥i¥H :D
2018-02-13_222025.png
2018-2-13 22:21

¨Ì±ø¥ó²£¥Í¼Æ­È.rar (6.52 KB)

¥»©«³Ì«á¥Ñ zheng211016 ©ó 2018-2-14 23:34 ½s¿è

µ¹·Q¾Ç±o¤H °Ñ¦Ò:D
Sub ³Ì²³æªk___________________()

'²Õ¼Æ¹L¤j®É, ¹Bºâ·|·¥«×¯Ó®É

  ¥­§¡­È = [A2]
    ¤W­­ = [B2]
    ¤U­­ = [C2]
    ²Õ¼Æ = [D2]

  Randomize                         '­«¸m¶Ã¼Æ
   '----------------------------Do °j°é------------------------------------
  Do
    Value_Sum = 0
    For w = 1 To (²Õ¼Æ - 1)                            'for °j°é(°²¦p ²Õ¼Æ21 ¥u·|¶]20¦¸)
   
        Value = Rnd * (¤W­­ - ¤U­­) + ¤U­­      'Value = ¶Ã¼Æ²£¥Í¤W¤U­­¤§¤¤ªº­È
        Value_Sum = Value_Sum + Value      'Value_Sum = §â°j°é¤º©Ò¦³Value¥[°_¨Ó
        Range("G" & w) = Value                      '§â²£¥Íªº­È©ñ¤JÀx¦s®æ¤º / w = ¬°°j°é¼Æ
   
    Next                                                                'for °j°é °õ¦æ¨ì§¹ ´N¥i¥H¨ì¤U¤@¦æ
    ´Ý­È = ¥­§¡­È * ²Õ¼Æ - Value_Sum          '´Ý­È = ¥­§¡­È * ²Õ¼Æ - °j°é¤º©Ò¦³ªºValueÁ`©M
    ´`Àô¦¸¼Æ = ´`Àô¦¸¼Æ + 1                            '²Ö¥[ Do°j°é¦¸¼Æ
   
  Loop Until ´Ý­È >= ¤U­­ And ´Ý­È <= ¤W­­  'ª½¨ì ´Ý­È >= ¤U­­ + ´Ý­È <= ¤W­­
    '------------------------µ²§ô°j°é(¹F¦¨¤W­z±ø¥ó)------------------------
  Range("G" & w) = ´Ý­È                                     '´Ý­È©ñ¤JÀx¦s®æ¤º(¤]´N¬O³Ì«á¤@®æ)
  Debug.Print ´`Àô¦¸¼Æ                                       '¥Î©ó¥ß§Yµøµ¡Åã¥Ü Do´`Àô¦¸¼Æ
End Sub

TOP

¦^´_ 2# hcm19522

·PÁÂ hcm19522¤j ¦^´_
§Ú·|§ä®É¶¡§ËÀ´§Aªº¨ç¼Æ¥Îªkªº ÁÂÁÂ!!!

TOP

«D±`·PÁ  jackyq ¤j¤j
¨â­Ó¤èªk³£«Ü´Î ÁÂÁ±z

TOP

¥»©«³Ì«á¥Ñ jackyq ©ó 2018-2-14 13:32 ½s¿è

Sub ³Ì¤p´`Àô___________________()

  ¥­§¡­È = [A2]
    ¤W­­ = [B2]
    ¤U­­ = [C2]
    ²Õ¼Æ = [D2]

  Randomize
   
  For w = 1 To (²Õ¼Æ - 1)
      Value = Rnd * (¤W­­ - ¤U­­) + ¤U­­
      Value_Sum = Value_Sum + Value
      Range("G" & w) = Value
  Next
  Value = ¥­§¡­È * ²Õ¼Æ - Value_Sum
  If Value < ¤U­­ Then
     ´Ý­È = Value - ¤U­­
     Value = ¤U­­
  End If
  If Value > ¤W­­ Then
     ´Ý­È = Value - ¤W­­
     Value = ¤W­­
  End If
  Range("G" & w) = Value
        
  If ´Ý­È = 0 Then Exit Sub

  Do
  For w = 1 To ²Õ¼Æ
        value_try = Range("G" & w) + (´Ý­È / ²Õ¼Æ)
     If value_try >= ¤U­­ And value_try <= ¤W­­ Then
        Range("G" & w) = value_try
        alls = alls + 1
     If alls >= ²Õ¼Æ Then Exit Do
     End If
  Next
  Loop
   
End Sub

TOP

¥»©«³Ì«á¥Ñ jackyq ©ó 2018-2-14 13:31 ½s¿è

Sub ³Ì²³æªk___________________()

'²Õ¼Æ¹L¤j®É, ¹Bºâ·|·¥«×¯Ó®É

  ¥­§¡­È = [A2]
    ¤W­­ = [B2]
    ¤U­­ = [C2]
    ²Õ¼Æ = [D2]

  Randomize
  
  Do
    Value_Sum = 0
    For w = 1 To (²Õ¼Æ - 1)
        Value = Rnd * (¤W­­ - ¤U­­) + ¤U­­
        Value_Sum = Value_Sum + Value
        Range("G" & w) = Value
    Next
    ´Ý­È = ¥­§¡­È * ²Õ¼Æ - Value_Sum
    ´`Àô¦¸¼Æ = ´`Àô¦¸¼Æ + 1
   
  Loop Until ´Ý­È >= ¤U­­ And ´Ý­È <= ¤W­­
  Range("G" & w) = ´Ý­È
  Debug.Print ´`Àô¦¸¼Æ
End Sub

TOP

ÀH·NºÛ "EXCEL°g"  blog  ©Îhttps://hcm19522.blogspot.com/ EXCEL¨ç¼Æ

TOP

        ÀR«ä¦Û¦b : °ß¨ä´L­«¦Û¤vªº¤H¡A¤~§ó«i©óÁY¤p¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD