VBAメモ：とにかくサイコロを振りたい、すぐ振りたい。

Googleの怠慢なのか、authorの認知不足かはわからないが、Web上には超絶初歩からのドキュメントが異様に少ない感じがする。あったとしてもなぜか大学の授業用の問題（もちろん解答無し）ばかりが引っかかって全然役に立たない。

というわけで自身用の備忘録にひとまずVBAのサイコロだけここにメモしておく。
なぜこんな簡単なソースすらWeb上にないんだ。
Hello, World!で満足するするのはauthorだけ十分である。
なおアルゴリズムがへっぽこかどうかは聞く耳を持たないのでご理解願いたい。
しかし、サイコロさえ振れればあとは丁半博打でもちんちろりんでもすごろくでもなんでもできるので全くバカに出来ない。各言語のHello, World!を集めるよりもサイコロのソースを集めて欲しいと思うところである。

Sub Dice()
Dim i As Integer
Dim Dice As Integer
'繰り返しの開始。50回
    For i = 1 To 50
    'サイコロを振る
        Dice = Int(Rnd(1) * 6) + 1
    'サイコロの結果を表示
       Cells(i, 1) = "振った目"
    '1の時だけ赤文字にしたい
       If Dice = 1 Then
           Cells(i, 2).Font.Color = RGB(256, 0, 0)
       '2回目以降実行のために2～6も黒くする
       Else
           Cells(i, 2).Font.Color = RGB(0, 0, 0)
       End If
       Cells(i, 2) = Dice
    Next i
End Sub