ＶＢＡで作れるかな？

ワークシートＳｈｅｅｔ１にオートシェイプの中から太い矢印を貼り付けました。
「オートシェイプ 2」という名前でした。
もうひとつ、コマンドボタンを貼り付けました。
Ｓｈｅｅｔ１のコマンドボタンのクリックイベントに
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
を貼り付けます。
ボタンをクリックするとかくかくと１０秒間、矢印が動いていきます。
スムーズにするには１秒をもっと短くする。
太い矢印を、イメージのピクチャなどに変える。
とめるのはとめるフラグを聞いていて、ＯＮならシェイプをＤｅｌｅｔｅする。コンなのはどうでしょう。やはり道具立ての力不足ですね。
オフィス系などでなく・エクセルＶＢＡ以外のプログラム言語に目を向けられることを。

投稿日時 - 2005-07-22 23:31:46

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

投稿日時 - 2005-07-22 22:53:38

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

投稿日時 - 2005-07-22 22:46:24

再びこんにちは。
VBAからワークシートをいじる場合、VBで言うところのタイマーコントロールが使えません。
従って、スタートボタンを押したらループでグルグル回し、その間にストップボタンも受け付け、ストップされたらループから抜けるという処理になるはず。
答えを言えば、ループの中で DoEvents を発行してやれば済むと思います。
しかしスピードの調整等、結構シビアかもしれませんね。

投稿日時 - 2005-07-22 14:44:33

もちろん作れます。
ただちょっとコツがいるかもしれません。

投稿日時 - 2005-07-22 14:06:03