エクセルマクロ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の極意
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
この記事にコメントする