|
スロットマシンのようにスクロールする処理は難しいので・・・
Rnd関数を使用して3桁の数字をランダムに表示するという
方法ではいかがでしょう?オーソドックスですが・・・
0から9までのランダムな数字は
Int(10 * Rnd)
で表せます。
これを無限ループさせてコマンドボタンを押したときに
フラグをTrueにして終了させるようにすればいいのでは?
'コマンドボタンのクリックフラグ
Public booStopFlg(1 To 3) As Boolean
Sub ShowRndNo()
Do
If booStopFlg(1) = False Then
Range("A1").Value = Int(4 * Rnd)
End If
If booStopFlg(2) = False Then
Range("A2").Value = Int(10 * Rnd)
End If
If booStopFlg(3) = False Then
Range("A3").Value = Int(10 * Rnd)
End If
Loop Until booStopFlg(1) And booStopFlg(2) And booStopFlg(3)
End Sub
こんな感じで出来るかと・・・
違ってたら(*_ _)人ゴメンナサイ
|
|