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

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

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

¦pÃD,½Ð¦U°ª¤â«ü¾É,·PÁÂ

test 1.rar (6.1 KB)

²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

¦^´_ 2# ikboy


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

TOP

¦^´_ 1# ws2315


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

TOP

¦^´_ 4# cucu


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

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

¦^´_ 5# ws2315


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

TOP

¦^´_ 7# ­ã´£³¡ªL


    ·PÁ¦U¦ì¤j¤j

TOP

¦^´_ 2# ikboy


    ¦p½d³ò¦bB2~B9,¥B¼Æ­È¬Ò¦³¤p¼ÆÂI(200.2).½Ð¤j¤j«ü¾É,ÁÂÁÂ

TOP

¦^´_ 9# ws2315


Sub Âà´«()
Dim xR As Range
Randomize
For Each xR In Range([B2], [B65536].End(xlUp))
    If Val(xR) < 200 Or Val(xR) > 280 Then xR = Round(Rnd * 80 + 200, 1)
Next
End Sub

Xl0000067.rar (9.13 KB)


=========================

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD