乱数の生成 : Excel(エクセル)

Excel Tipsメニューに戻る

スポンサーリンク






Excel VBAシートコード

Option Explicit

'Excel VBAで乱数の生成
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

スポンサーリンク


Excel実行結果


スポンサーリンク






Excel Tipsメニューに戻る

■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved