乱数を発生させるエクセルマクロ－Rnd関数

対象：Excel2003, Excel2007, Excel2010

このサイト・インストラクターのネタ帳で
「VBA 乱数」
「乱数マクロ」
といった検索が行われていました。

VBA（Visual Basic for Applications）で、乱数を発生させるマクロについて調べている方による検索です。

［スポンサードリンク］

この検索だけでは、どんな仕様が必要とされているのかわかりませんが、以下のようなマクロが参考になるでしょう。

▼選択されているセルに1から100の整数の乱数を発生させるマクロ

Sub 乱数を発生させる_1から100までの整数()

　Dim c As Range
　
　Randomize
　
　For Each c In Selection
　　c.Value = Int((Rnd * 100) + 1)
　Next

End Sub

セルを選択しておいて上記のマクロを実行すると、選択されていたセルに1から100までの整数の乱数が表示されます。

実際に乱数を発生させるのが、For Each ～ Next文の中で使っているRnd関数です。

Rnd関数は、0以上1未満の、単精度浮動小数点型（Single型）の数値を返します。

1から100までの整数にするために
「Int((Rnd * 100) + 1)」
と100倍した値に1を加算してIntを取っています。

発生させる乱数を、他の範囲に限定したい場合は、この部分を変更するといいでしょう。

乱数のシード値を初期化するために、For Each ～ Next文に入る前に、Randomizeステートメントを入れてあります。

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「マクロのサンプル」の記事一覧