No.3
- 回答日時:
再びこんにちは。
VBAからワークシートをいじる場合、VBで言うところのタイマーコントロールが使えません。
従って、スタートボタンを押したらループでグルグル回し、その間にストップボタンも受け付け、ストップされたらループから抜けるという処理になるはず。
答えを言えば、ループの中で DoEvents を発行してやれば済むと思います。
しかしスピードの調整等、結構シビアかもしれませんね。
No.4ベストアンサー
- 回答日時:
ストップボタンはないけれど、こんなの作ってみました。
まっさらなワークシートで試してみてください。
Sub ルーレット()
Range("B3:K9").Select
With Selection
.Font.Name = "Arial Black"
.Font.Size = 20
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
With .Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
End With
ActiveWorkbook.Names.Add Name:="table", RefersTo:=Selection
n = 0
For Each c In Range("table")
n = n + 1
c.Value = n
Next
For i = 1 To 2
For Each c In Range("table")
c.Select
For m = 20 To 3 Step -1
Selection.Interior.ColorIndex = m
Next m
Range("table").Interior.ColorIndex = 0
Next c
Next i
Randomize
x = Int(Rnd * 70) + 1
For Each c In Range("table")
c.Select
For m = 20 To 3 Step -1
Selection.Interior.ColorIndex = m
Next m
Range("table").Interior.ColorIndex = 0
If c.Value = x Then
Selection.Interior.ColorIndex = 3
Exit Sub
End If
Next c
End Sub
No.5
- 回答日時:
No4さんのをそのまま拝借してストップボタンを付けてみました。
Sub ルーレットSTART()
Cells(1, 1) = ""
Range("B3:K9").Select
With Selection
.Font.Name = "Arial Black"
.Font.Size = 20
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
With .Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
End With
ActiveWorkbook.Names.Add Name:="table", RefersTo:=Selection
n = 0
For Each c In Range("table")
n = n + 1
c.Value = n
Next
Do While Cells(1, 1) = ""
For Each c In Range("table")
c.Select
If Cells(1, 1) = "stop" Then
Selection.Interior.ColorIndex = 3
Exit Sub
End If
DoEvents
Range("table").Interior.ColorIndex = 0
Next c
Loop
End Sub
Sub ルーレットSTOP()
Cells(1, 1) = "stop"
End Sub
No.6
- 回答日時:
No5です。
こっちのほうがいいかもSub ルーレット開始()
Cells(1, 1) = ""
Range("B3:K9").Select
With Selection
.Font.Name = "Arial Black"
.Font.Size = 20
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
With .Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
End With
ActiveWorkbook.Names.Add Name:="table", RefersTo:=Selection
Range("table").Interior.ColorIndex = 0
n = 0
For Each c In Range("table")
n = n + 1
c.Value = n
Next
Do
For Each c In Range("table")
c.Select
If Cells(1, 1) = "stop" Then
Selection.Interior.ColorIndex = 3
Exit Sub
End If
DoEvents
Next c
Loop
End Sub
Sub ルーレットSTOP()
Cells(1, 1) = "stop"
End Sub
No.7
- 回答日時:
ワークシートSheet1にオートシェイプの中から太い矢印を貼り付けました。
「オートシェイプ 2」という名前でした。
もうひとつ、コマンドボタンを貼り付けました。
Sheet1のコマンドボタンのクリックイベントに
Private Sub CommandButton1_Click()
Worksheets("sheet1").Range("a1").Activate
For i = 2 To 10
t0 = Timer
Do While Timer < t0 + 1
DoEvents
'ActiveSheet.Cells(i - 1, "A") = ""
'Cells(i, "A") = "A"
Worksheets("sheet1").Shapes("オートシェイプ 2").Left = i * 50
Loop
Next i
End Sub
を貼り付けます。
ボタンをクリックするとかくかくと10秒間、矢印が動いていきます。
スムーズにするには1秒をもっと短くする。
太い矢印を、イメージのピクチャなどに変える。
とめるのはとめるフラグを聞いていて、ONならシェイプをDeleteする。コンなのはどうでしょう。やはり道具立ての力不足ですね。
オフィス系などでなく・エクセルVBA以外のプログラム言語に目を向けられることを。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルVBA 任意のセルの選択時、指定のセルの値を表示 1 2023/04/21 08:13
- Excel(エクセル) 【マクロ】ボタンを押すごとに、A1セル、A2セル、A3セルに日付を入力 3 2023/01/25 00:12
- Excel(エクセル) 【Excel】指定のセル内容を基に別シートのセルを検索して選択する【VBA】 1 2022/06/16 16:16
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Excel(エクセル) エクセルVBAで図形のテキストを取得してセルに入力 2 2022/10/05 23:09
- Visual Basic(VBA) VBAで早押しゲームを作りたい 4 2022/05/12 13:46
- Excel(エクセル) マクロで謎の現象が起きていて困ってます。 エクセルで作ったボタンを押すとマクロが動いて処理をしてくれ 3 2023/06/22 17:28
- Excel(エクセル) Excel 表の作成について 3 2022/06/16 12:15
- Excel(エクセル) マクロを教えてください 3 2023/07/31 21:57
- Excel(エクセル) マクロを教えてください 2 2023/07/30 23:05
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
TABLEのセルの中の文字を行単位...
-
テーブル幅が固定できない
-
テーブルとテーブルの間隔について
-
正規表現で「より前」と「より後」
-
tableのcellpadding="0" cellsp...
-
<fieldset>タグについて
-
テーブルが二重で表示されてし...
-
TR タグの表示・非表示を一括で...
-
テーブルデータを折り返して表...
-
latex使い方
-
背景色付きのマーキーみたいに
-
<th>タグを使っても太字にしな...
-
HTMLでテーブルをfloatで中央配...
-
tableを縦に続けるとtable間の...
-
tableの位置がIEとその他ブラウ...
-
商品詳細を横並びに表示する方法
-
テーブルの行を折りたたみたい...
-
formのinputなどの幅100%指定
-
テーブルのヘッダとボディの幅...
-
テーブルの任意の列を非表示に...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テーブルとテーブルの間隔について
-
TABLEのセルの中の文字を行単位...
-
<th>タグを使っても太字にしな...
-
CSSで特定のテーブルだけに...
-
HTML5で、テーブル内tdタグの高...
-
同じ幅指定のつもりなのに、ブ...
-
table表を横に並べる際の間隔指定
-
テーブル内のセル間にスペース...
-
textareaの外側の文字が下付き...
-
HTML tableのセルにtextareaを...
-
テーブルデータを折り返して表...
-
tableの位置がIEとその他ブラウ...
-
<fieldset>タグについて
-
正規表現で「より前」と「より後」
-
スタイルシートで左側だけ色を...
-
tableのcellpadding="0" cellsp...
-
tableを縦に続けるとtable間の...
-
HTMLのテーブルをExcelにCopy&P...
-
html5のテーブル内でdivのタブ...
-
スタイルの無効化
おすすめ情報