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

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

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


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

TOP

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

´ú¸Õ.rar (15.53 KB)

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

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

TOP

¦^´_ 14# ws2315


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

TOP

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


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

TOP

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD