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

¼Æ­È©T©w½d³ò

¦^´_ 5# ws2315


1) ±N¤½¦¡­È¶K¦^BÄæ§Y¥i
2) ¤£µM¥ÎVBA, ¦ý±o¥ý¦Û¦æ¾Ç·|±Nµ{¦¡½X©ñ¤JVBE½s¿è¾¹ªº¼Ò²Õ¤º, ¨Ã«Ø«ö¶s°õ¦æ

TOP

¦^´_  cucu


    ¥i§_±N¨ç¼Æ©ñ¦bB2~B21¼Æ­È¤º,½Ð«ü¾É,·P¿E
ws2315 µoªí©ó 2020-4-1 19:07



    §Ú»{¬°¬O¨S¿ìªk§â¨ç¼Æ©ñ¦bB2~B21¡A¦]¬°B2~B21´N¬O§PÂ_ªº¨Ì¾Ú¡A¨ç¼Æ¼g¤U¥h´N²M±¼­ì¥»ªº¼Æ¾Ú¤F...

TOP

¦^´_ 4# cucu


    ¥i§_±N¨ç¼Æ©ñ¦bB2~B21¼Æ­È¤º,½Ð«ü¾É,·P¿E

TOP

¦^´_ 1# ws2315


¸Õ¸Õ¬Ý  
C2 =IF(OR(B2>280,B2<200),RANDBETWEEN(200,280),B2)

TOP

¦^´_ 2# ikboy


   ¥i½Ð¤j¤j¤W¶ÇÀÉ®×,¥H¨ç¼Æ«ü¾É,·PÁÂ,

TOP

²q¤@²q
  1. Sub zz()
  2. Dim a
  3. a = Range("b2:b" & [b1048576].End(3).Row)
  4. For i = 1 To UBound(a)
  5.     If a(i, 1) < 200 Or a(i, 1) > 280 Then a(i, 1) = Application.RandBetween(200, 280)
  6. Next
  7. [b2].Resize(i - 1) = a
  8. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¨ü¤HÂI¤ô¤§®¦¡A¶··í´é¬u¥H³ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD