|
>▼サイケ さん 今晩は
>「以前ルーレット(数字が回転する)のを拝見しました。」
>↑↑はそれを拝見したのです・・・汗
こんな感じですか?
'コントロールツールボックスのコマンドボタンを2つ作ってください。
'Sheet1 モジュールに、下記コードを貼り付けてください。
Private flag As Boolean
Private Sub CommandButton1_Click() 'startボタン
Dim Hname As Variant
Dim max As Long
Hname = Array("一太郎", "二太郎", "三太郎", "四太郎", "五太郎")
max = UBound(Hname)
flag = False
Do While flag = False
Range("A1").Value = Hname(Int((max + 1) * Rnd))
DoEvents 'Button2のクリックを可能にするため
Loop
End Sub
Private Sub CommandButton2_Click() 'Stopボタン
flag = True
End Sub
|
|