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

ws2315

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

ws2315

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


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

­ã´£³¡ªL

¦^´_ 14# ws2315


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

ws2315

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

­ã´£³¡ªL

¦^´_ 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


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

ws2315

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

ws2315

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


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

­ã´£³¡ªL

¦^´_ 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)

¤U¸ü¦¸¼Æ: 4

2020-4-4 10:02

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

ws2315

¦^´_ 2# ikboy


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

ws2315

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


    ·PÁ¦U¦ì¤j¤j