ExcelVBA ランダムな整数を生成するRnd関数の使い方とサンプルコード

以下のようなシーンで利用で表示します。

1.テストデータを作成する際にランダムな値を割り当てる。

2.シミュレーションでランダムな結果を用いる。

3.抽選やゲームのランダム要素を実装

Excel VBA ランダムな整数を生成｜使い方とポイント

Option Explicit

Sub GenerateRandomIntegers()
    Dim ws As Worksheet
    Dim i As Integer
    Dim randomValue As Integer
    
    ' シートの設定
    Set ws = ThisWorkbook.Sheets(1)
    
    ' 乱数の初期化
    Randomize
    
    ' A1からA10にランダムな整数を生成して入力
    For i = 1 To 10
        randomValue = Int((100 - 1 + 1) * Rnd + 1) ' 1～100のランダム整数
        ws.Cells(i, 1).Value = randomValue
    Next i
End Sub

フォームモジュール（ランダムな整数をユーザーフォームのラベルやテキストボックスに表示する）

Option Explicit

Private Sub CommandButton1_Click()
    Dim randomValue As Integer
    
    ' 乱数の初期化
    Randomize
    
    ' 1～50のランダム整数を生成
    randomValue = Int((50 - 1 + 1) * Rnd + 1)
    
    ' ラベルにランダム整数を表示
    Me.Label1.Caption = "ランダム値: " & randomValue
End Sub

ThisWorkbookモジュール（ランダム値をワークブックの特定のシートに自動入力）

Option Explicit

Private Sub Workbook_Open()
    Dim ws As Worksheet
    Dim randomValue As Integer
    
    ' ワークシートの指定
    Set ws = ThisWorkbook.Sheets(1)
    
    ' 乱数の初期化
    Randomize
    
    ' ランダム値をセルB1に入力
    randomValue = Int((20 - 5 + 1) * Rnd + 5) ' 5～20のランダム整数
    ws.Range("B1").Value = randomValue
End Sub

ランダムな整数の生成でテストデータやシミュレーションに役立てられます。必ず Randomize で乱数を初期化し、範囲を正しく設定してください。

これらを活用して、さまざまな場面で効率的にランダム値を生成できます。