エクセルVBA

トップページエクセルマクロVBA:セルの操作ランダムに数字を取得する@エクセルマクロVBA

エクセルマクロVBA:セルの操作

エクセルのちょっとしたテクニックを紹介します。

Rnd関数を使用することで、自分が指定した範囲からランダムに数字を抽出することができます。
AとBを整数とした場合、A〜Bの間の整数値をランダムに取得する場合、以下のような構文になります。

構文
Int((B−A+1)*Rnd+A)

次のサンプルを試してみてくださいね。
50から100までの間の数字を、1行目から20行目までにランダムに取得します。

'***************************************
'乱数を取得する
'***************************************
Sub Test16()
  Dim i As Integer
  Randomize
  For i = 1 To 20
    Cells(i, 1).Value = Int((100 - 50 + 1) * Rnd + 50)
  Next i
End Sub

ちなみに、サンプル中のRandomizeステートメントは、乱数発生ルーチンの初期値を設定するステートメントです。

エクセルVBAのおすすめ書籍⇒Excel VBA逆引き大全600の極意


トラックバックURL
この記事にコメントする
名前:
URL:
  情報を記憶: 評価: 顔   
 
 
 
エクセル
〜ちょっとしたテクニック〜
Add to Google My Yahoo!に追加 ブックマークに追加する
Author

エステリア

エクセルの基本から小技までちょっとしたテクニックを随時提供中

ご案内
●役に立ったと思った方は●

人気blogランキング

1日1回のクリックでこのブログが育ちます。応援よろしくお願いします。
----------------------------------------------
●運営ポリシー●

エクセルのいろんな機能を随時紹介していきます。
トラバ、コメント大歓迎です。内容を確認の上、掲載します。アダルトサイトからのトラバ、コメントはご遠慮下さい。
楽天市場