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

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

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

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

test 1.rar (6.1 KB)

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


    ·PÁ­ã¤j,¥ý¸Õ¸Õ

TOP

¦^´_ 14# ws2315


¦³VBAªºÀÉ®×·í³B²zÀÉ,
§â¸ê®Æ¶K¶i¨Ó, ³B²z¦n¤F¦A±N­È¶K¦^§Y¥i~~

TOP

¦^´_ 13# ­ã´£³¡ªL
¦p¦ó°µ¤@­Ó±±¨îµ{¦¡,·í¨C¤Ñ³£¦³·sÀɮ׮ɴN¥iª½±µ¥Î,¦Ó¤£¥Î¨C­Ó¦A­«·s¼gµ{¦¡
¥i½Ð¤W¶ÇÀÉ®×,       ½Ð­ã¤j«ü¾É,·PÁÂ

TOP

¦^´_ 12# ws2315

Sub Âà´«1()
Dim xR As Range
Randomize
For Each xR In Range([B3:B10])
    If xR < 200.1 Or xR > 280.2 Then xR = Int(Rnd * 802 + 2001) / 10
Next
End Sub

Sub Âà´«2()
Dim xR As Range
Randomize
For Each xR In Range([E13:E20])
    If xR < -2.1 Or xR > 6.2 Then xR = Int(Rnd * 84) / 10 - 2.1
Next
End Sub


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

TOP

¦^´_ 10# ­ã´£³¡ªL
   
½Ð­ã¤j¦b«ü¾É,·PÁÂ

´ú¸Õ.rar (15.53 KB)

TOP

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


    ·PÁ­ã¤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

¦^´_ 2# ikboy


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

TOP

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


    ·PÁ¦U¦ì¤j¤j

TOP

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD