­ã´£³¡ªL

¦^´_ 5# ws2315


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

­ã´£³¡ª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

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

­ã´£³¡ª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


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

­ã´£³¡ªL

¦^´_ 14# ws2315


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