Menuへ
乱数の生成


シートコード

Option Explicit

'乱数の生成
Private Sub ExRandomize()
    Dim i As Integer
    
    '乱数の初期化
    Randomize
        
    For i = 1 To 10
        '裏(0)か表(1)かの乱数
        Cells(i, 5) = Int(Rnd * 2)
        'サイコロ(1〜6)の乱数
        Cells(i, 6) = Int((Rnd * 6) + 1)
        '1〜10の乱数
        Cells(i, 7) = Int((Rnd * 10) + 1)
        '1〜100の乱数
        Cells(i, 8) = Int((Rnd * 100) + 1)
    Next
End Sub

Private Sub CommandButton1_Click()
    '乱数の生成
    ExRandomize
End Sub
実行結果





Topへ　Homeへ