忍者ブログ

[PR]

2024年05月14日
×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

VB・VBAで乱数をだす

2009年07月04日

VBAなどで、乱数を発生させたい場合は下記の通りになります。
最大数値と最小数値に任意の数値を入れて下さい。


Dim RN As Long
Randomize
RN = fix( ([最大数値] * Rnd) + [最小数値] )
Debug.Print RN
 

拍手[0回]

PR
Comment
  Vodafone絵文字 i-mode絵文字 Ezweb絵文字
Trackback
トラックバックURL: