Excel VBA質問箱 IV

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

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


66193 / 76738 ←次へ | 前へ→

【15111】Re:スロットマシーンのような・・・。
回答  Kobasan  - 04/6/15(火) 21:55 -

引用なし
パスワード
   ▼派遣社員のレイコ さん:
>はじめまして★賢者の皆様。
>今度、会社の行事でくじ引きをするんですが、
>その時に抽選結果をスロットマシーンのように
>数字が動いて3桁のあたりナンバーを表示する
>ようなものを作りたいんです。しかも、動いてる
>数字を止める時は、1リールずつストップボタン
>で止めたいんです・・・。あと、あたりナンバーは
>1〜299までがいいんです。
>知恵を貸して頂けるとありがたいです!
'これで一応ルーレットらしく動きます
'次のsubでフォームを表示
'Sub UserForm表示()
'  UserForm1.Show
'End Sub
'ユーザーフォームに4つのボタンを作り、下記VBAをそのフォームに貼り付けてください
Private flag1 As Integer
Private flag2 As Integer
Private flag3 As Integer

'停止ボタン1列目
Private Sub CommandButton1_Click()
  flag1 = 1
End Sub

'停止ボタン2列目
Private Sub CommandButton2_Click()
  flag2 = 1
End Sub

'停止ボタン3列目
Private Sub CommandButton3_Click()
  flag3 = 1
End Sub

'開始ボタン
Private Sub CommandButton4_Click()
  flag1 = 0
  flag2 = 0
  flag3 = 0
  a = 0
  b = 0
  c = 0
  Do While (flag1 + flag2 + flag3 = 3) = False
    DoEvents 'これでButton1のクリックを可能にする
    If flag1 = 0 Then リール a, 1, 3
    If flag2 = 0 Then リール b, 2, 10
    If flag3 = 0 Then リール c, 3, 10
  Loop
  UserForm2.Hide
End Sub

'各列のリールルーチン
Sub リール(j, 列, max)
  Cells(1, 列) = j
  Cells(1, 列).Interior.ColorIndex = j + 5
  '
  k = j + 1
  If k = max Then k = 0
  Cells(2, 列) = k
  Cells(2, 列).Interior.ColorIndex = 36
  '
  m = k + 1
  If m = max Then m = 0
  Cells(3, 列) = m
  Cells(3, 列).Interior.ColorIndex = m + 5
  j = j + 1
  If j = max Then j = 0
End Sub

1 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 回答

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