Excel VBA質問箱 IV

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

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


66185 / 76734 ←次へ | 前へ→

【15115】Re:スロットマシーンのような・・・。
回答  bykin  - 04/6/15(火) 23:09 -

引用なし
パスワード
   こんばんわ。

おもしろそーやったんで、考えてみました。
で、出来上がってから他のお方の発言よーく見たら・・・
お二人のコードとなんとなく似てる(^^;;
真似したわけやないねんけど(言い訳)

文字をスクロールさせるんはちょっと大仕事なんで、
ちゃっぴはんのと同じように同じ位置で入れ替わるだけにしてます。

とりあえず方法です。

1.新規ブックを作成
2.5行目の幅(=高さ)を70ピクセル(ここは任意)に広げる。
3.B5とC5とD5を選択して・・・
   各セルの周囲に罫線を引く
   フォントサイズを36くらい(これも任意)にする
   文字を中央揃えにする
4.コントロールツールボックスツールバーを表示させてコマンドボタンを
   B7:B9
   C7:C9
   D7:D9
  の3箇所に配置し(CommandButton1〜3)
  Captionを「ストップ」にする
5.もう1個コマンドボタンを任意の位置に配置し(CommandButton4)
  Captionを「スタート」にする
6.当該シートのモジュールに下記コードを書き込む

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Flg(1 To 3) As Boolean

Private Sub CommandButton1_Click()
  Flg(1) = True
End Sub

Private Sub CommandButton2_Click()
  Flg(2) = True
End Sub

Private Sub CommandButton3_Click()
  Flg(3) = True
End Sub

Private Sub CommandButton4_Click()
  Flg(1) = False
  Flg(2) = False
  Flg(3) = False
  Randomize
  Range("B5").Value = Int(Rnd * 3)
  Range("C5").Value = Int(Rnd * 10)
  Range("D5").Value = Int(Rnd * 10)
  DoEvents
  Sleep 100
  Do Until Flg(1) And Flg(2) And Flg(3)
    If Not Flg(1) Then Range("B5").Value = (Range("B5").Value + 1) Mod 3
    If Not Flg(2) Then Range("C5").Value = (Range("C5").Value + 1) Mod 10
    If Not Flg(3) Then Range("D5").Value = (Range("D5").Value + 1) Mod 10
    DoEvents
    Sleep 100
  Loop
End Sub

7.デザインモードの場合は解除する
  (コントロールツールボックスツールバーの三角定規のボタンを押す)

8.「スタート」ボタンを押すと数字が順番に表示され、各「ストップ」ボタンを
  押すとボタンの上の枠内の数字が固定される


但し、当たり番号は0〜299となります。
ボタンのCaptionの変更はデザインモードで当該ボタンを選択した状態で
コントロールツールボックスツールバーの手の形のボタンを押すと表示される
プロパティウィンドウで行ってください。
試してみてな。
ほな。
2 hits

【15072】スロットマシーンのような・・・。 派遣社員のレイコ 04/6/14(月) 22:32 質問
【15073】Re:スロットマシーンのような・・・。 ちゃっぴ 04/6/15(火) 0:21 回答
【15087】Re:スロットマシーンのような・・・。 Jaka 04/6/15(火) 13:18 発言
【15111】Re:スロットマシーンのような・・・。 Kobasan 04/6/15(火) 21:55 回答
【15115】Re:スロットマシーンのような・・・。 bykin 04/6/15(火) 23:09 回答

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