エクセルVBAでこのプログラムの作るには

質問

最近エクセルVBAを勉強し始めた初心者です。

エクセル上でコマンンドボタン１つでＤ４に１～７５の乱数を発生させて次にＥ４に乱数を発生させる。

Ｄ４＋Ｅ４が１２０以上なら終了で、そうでなければＦ４に乱数を発生させてＤ４＋Ｅ４＋Ｆ４が１２０以上なら終了で、そうでなければＧ４に乱数を発生させてＤ４＋Ｅ４＋Ｆ４＋Ｇ４が１２０以上なら終了で、そうでなければＨ４に乱数を・・・の繰り返し。（最大、Ｌ４まで繰り返す）

表示される数字はＤ４～Ｌ４まで同時ではなく１つずつタイムラグがある感じで表示させたいです。

このプログラムを組みたいのですがどのようにすればよろしいでしょうか？

よろしくお願いします。

回答No.1

tom11 · ベストアンサー

Public Sub f()

Dim i As Integer
Dim t As Integer
Dim r As Integer

Cells.Clear

For i = 1 To 9

r = Int(Rnd() * 75 + 1)

t = t + r

Application.Wait (Now + TimeValue("00:00:01"))

Range("d4").Cells(1, i).Value = r

If t > 120 Then

MsgBox "終了"

Exit Sub

End If

Next

End Sub

こんな感じでどうでしょう。

お礼

回答有難うございます、大変助かりました。

回答No.2

rivoisu

Sub rndxx()
Dim i As Integer
Dim s As Integer
Randomize
i = 4
Range(Cells(4, 4), Cells(4, 12)).ClearContents
While s <= 120 And i <= 12
　　Cells(4, i) = Int(Rnd * 75 + 1)
　　s = s + Cells(4, i)
　　i = i + 1
Wend
End Sub
横に進むので添え字が使いやすいようrange("D4")では無くcells4,4）という形式にしました。

お礼

回答有難うございます、助かりました。