乱数(数字・英字)を発生させる方法

こんにちは。

IMMRです。

今回は乱数について説明します。

なにかしらの業務で乱数の数値または、英字を使用することはあると思います。

そこでリテラル値ではなく、コンピュータがRnd関数で求めた乱数(ランダムで決めた)を算出します。

数字

関数は以下のようになっています。

図１　Rnd関数説明

赤枠の箇所に最大値を

緑枠の箇所に最小値を入力するだけです。

ここでは、１から９９までの数値を乱数にしています。

※もちろん数値を変えれば、１桁や３桁や４桁も出来ます。

では、プログラムを記載してみます。

Sub TEST()

    Dim R As String
    
    Randomize

    R = Int((99 - 1 + 1) * Rnd + 1)

    MsgBox R

End Sub

まずは「Randomize」で乱数の初期化を行います。

そうしたら、Int((99 - 1 + 1) * Rnd + 1)で１～９９の乱数を出力します。

出力した乱数は、変数Rにセットします。

そして、最後にメッセージボックスで変数Rに設定している数値を表示します。

今回は、こうなります。

図２　数値（１から９９）の実行

きちんと、発生した乱数（１～９９）が表示されています。指定していない３桁の数字は表示されません。

また、乱数の表示であるので

実行するたびに値は変わっていきます。

図３　数値の実行（多数）

このような感じで最小値～最大値の乱数の数値を表示することができます。

英字

英語（アルファベット）の場合は、ちょっと特殊な方法で行います。

それは、Rnd関数とChr関数を使います。

なぜ、Chr関数を使用しないといけないかというとRnd関数からは、アルファベットを取得できないからです。数字だけです。

Chr関数は決められた文字コードを取得します。そのため、

Chr（６５）～Chr（９０）は、大文字のAからZ

Chr（９７）～Chr（１２２）は小文字のaからz

となっています。

Chr（６５）→　「A」

Chr（９０）→　「Z」

Chr（９７）→　「a」

Chr（１２２）→「z」

のようになります。一覧でみるとこのような感じです。

図４　大文字

図５　小文字

になっています。

つまり、

Rnd関数で６５から９０の間の数値を取得して、取得した値をChr関数で取得すれば、アルファベットの大文字（ＡからZ）

Rnd関数で９７から１２２の間の数値を取得して、取得した値をChr関数で取得すれば。アルファベットの小文字（aからz）を

取得出来ることになります。

では、それを踏まえてプログラムを作成していきます。まずは、大文字からです。

Sub TEST()

    Dim R, R2 As String
    
    Randomize

    R = Int((90 - 65 + 1) * Rnd + 65)

    R2 = Chr(R)

    MsgBox R2
End Sub

まずはランダム数で（６５～９０）の数値を取得します。

そして、取得した数値をChr関数でコード文字に変換します。

実行すると

図６　アルファベット（大文字）（AからZ）の実行

が表示されます。乱数のため、押すごとにアルファベットも変わります。

図７　アルファベット（大文字）の実行（多数）

AからZの文字が表示されていますね。

次に小文字ですがプログラムは以下のようになります。

プログラムは以下のようになります。

Sub TEST2()

    Dim R, R2 As String
    
    Randomize

    R = Int((122 - 97 + 1) * Rnd + 97)

    R2 = Chr(R)

    MsgBox R2
End Sub

上記の大文字と変わっているところは、

R = Int((90 - 65 + 1) * Rnd + 65)

↓

R = Int((122 - 97 + 1) * Rnd + 97)

であり、乱数の６５から９０を

９７から１２２に変更しただけです。

それでプログラムを実行してみます。

Sub TEST2()

    Dim R, R2 As String
    
    Randomize

    R = Int((122 - 97 + 1) * Rnd + 97)

    R2 = Chr(R)

    MsgBox R2
End Sub

これで実行すると

図８　アルファベット（小文字）（aからz）の実行

と表示されます。

もちろん、押すたびに違う文字が表示されます。

図９　アルファベット（小文字）の実行（複数）

このように「数字」「アルファベット（大文字）」「アルファベット（小文字）」を表示しました。

では最後に、

「数字（１から９）」と「アルファベット（大文字）（AからZ）」と「アルファベット（小文字）（aからz）」の３つに対して、

Rｎｄ関数で表示して、結合した文字を表示させます。

Sub TEST3()

    Dim R As String
    Dim Rd1, Rd2, Rd3 As String
    
    Randomize
    Rd1 = Int((9 - 1 + 1) * Rnd + 1)
    Randomize
    R = Int((90 - 65 + 1) * Rnd + 65)
    Rd2 = Chr(R)
    Randomize
    R = Int((122 - 97 + 1) * Rnd + 97)
    Rd3 = Chr(R)
    MsgBox Rd1 & "-" & Rd2 & "-" & Rd3
End Sub

このプログラムは、

数字（１から９）の乱数をRd1に

アルファベット（大文字）（AからZ）をRd2に

アルファベット（小文字）（aからz）をRd3に　　挿入して、

最後にRd1とRd2とRd3を合わせて、メッセージボックスで表示しています。

※わかりやすく見やすくするために間にハイフン（”ー”）を入れています。

下記が結果です。

図１０　３種類の実行

結果を見るとそれぞれが表示されていることがわかります。

図１１　３種類実行の説明

もちろん、再度、実行すれば違う文字のメッセージが表示されます。

以上のようにやれば、数字、アルファベット（大文字）、アルファベット（小文字）で

どのようなパターンでも乱数で自由に表示することが出来ます。