エクセル2010のコマンドボタンついて

質問

MouseDownイベントでループ（Doなど）をさせた後
MouseUpイベントでStopさせるコードを作りましたが
MouseUpイベントまで行かずずっとループしてしまいます

（押されている間はボタンが凹んでいますが
このコードにすると凹まず中断しないと
動かせないようになってしまいます）

何が原因がわからないので回答お願いします
下はコードです

Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
Select Case Button
Case 1
Range("A1") = 1
Case 2
Range("A1") = 3
End Select
Do
Range("A1") = Range("A1") + Range("A1")
Loop
End Sub

Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
Stop
End Sub
（Select Case Button
Case 1...にしても変わりませんでした）

回答No.1

kybo · ベストアンサー

こんな感じのこーどにしてはどうでしょうか？

Dim B As Boolean

Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
B = False
Select Case Button
Case 1
Range("A1") = 1
Case 2
Range("A1") = 3
End Select
Do
DoEvents　’★追加
Range("A1") = Range("A1") + Range("A1")
Loop Until B = True　’★追加
End Sub

Private Sub CommandButton1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
B = True　’★変更
End Sub

どうしてもStopで止めたいのであれば、Do Loop間を以下の様にすればよろしいかと思います。

Do
DoEvents
Range("A1") = Range("A1") + Range("A1")
If B = True Then Stop
Loop

お礼

ありがとうございました
解決しました

回答No.2

tsubuyuki

止める方法に関しては、１番さんの意見に一票。

ただ、このままだとあっという間ににオーバーフローしますね。
なので、さらに追加を提案です。

Private Sub CommandButton1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal y As Single)
Dim l As Long　'変数lをとりあえず宣言

B = False
Select Case Button
Case 1
Range("A1") = 1
Case 2
Range("A1") = 3
End Select
Do
DoEvents
Range("A1") = Range("A1") + Range("A1")
　　　　For l = 0 To 5000　'インターバル（"5000"の部分で間隔を調整）
　　　　　　DoEvents
　　　　Next l
Loop Until B = True
End Sub