Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


54182 / 76732 ←次へ | 前へ→

【27350】Re:ルーレット(人名)
発言  kobasan  - 05/8/6(土) 0:10 -

引用なし
パスワード
   >▼サイケ さん 今晩は


>「以前ルーレット(数字が回転する)のを拝見しました。」
>↑↑はそれを拝見したのです・・・汗


こんな感じですか?

'コントロールツールボックスのコマンドボタンを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

0 hits

【27316】ルーレット(人名) サイケ 05/8/5(金) 10:54 質問
【27340】Re:ルーレット(人名) kobasan 05/8/5(金) 19:30 発言
【27344】Re:ルーレット(人名) サイケ 05/8/5(金) 21:26 お礼
【27350】Re:ルーレット(人名) kobasan 05/8/6(土) 0:10 発言
【27355】Re:ルーレット(人名) サイケ 05/8/6(土) 12:44 お礼
【29138】ルーレット(写真) サイケ 05/9/26(月) 16:32 質問
【29142】Re:ルーレット(写真) ちくたく 05/9/26(月) 17:19 回答

54182 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free