ＤＯ～ＬＯＯＰ　でのＬＯＯＰの抜け方 - Visual Basic - 教えて！goo

＃１，５です。　＃６の回答について。

>Public stop_flag As String

stop_flag は、True/False　の値を持つ型なので　String　ではなく
Boolean　ですよね。

通報する

#2と#4のtinu2000です。
stop_flag を共通変数にしないと、それぞれ別の変数とみなします。

ここから下をコピー＆ペーストして見て下さい。

Public stop_flag As String

Private Sub CommandButton1_Click()
Dim i As Integer, n As Integer, b As Integer, a As Integer

stop_flag = False
Do
a = 1
For i = 0 To 7
Range("a1") = a
For n = 0 To 500
Next n
a = a + 1
Next i

a = 2
For b = 0 To 7
Range("b1") = a
For n = 0 To 500
Next n
a = a * 2
Next b

DoEvents
If stop_flag = True Then Exit Do

Loop

End Sub

Private Sub CommandButton2_Click()
stop_flag = True
End Sub

通報する

＃１です。＃２の補足について。

If stop_flag = False Then Exit Do 　ではなく
If stop_flag = true Then Exit Do　　でなければ．．．

念のため、DO　の前の行に　stop_flag = False　をいれておいてください。

通報する

#2のtinu2000 です。
maruru01さん、そうでしたそうでした、DoEvents を忘れていました。

質問を見て、瞬間的なイメージは DoEvents はあったんですが、
書いている内に忘れてしまいました。（汗）

maruru01さん、ありがとうございました。
あれではストップボタンが割り込まないですね。

通報する

こんにちは。maruru01です。

基本的には、No.2の方のように、フラグを立てる方法です。
ただ、ストップボタンをクリックする割り込み処理を入れるために、DoEventsを入れます。
No.2の方のを拝借して、


Private Sub Command1_Click()　'スタートボタン

　　ExitSw = 0
　　Do
　　　　DoEvents
　　　　・・・
　　　　If ExitSw = 1 Then Exit Do
　　　　・・・
　　Loop
　　・・・

End Sub


Private Sub Command2_Click()　'ストップボタン

　　ExitSw = 1

End Sub

通報する

Private Sub Command1_Click()　'スタートボタン
ExitSw = 0
Do
　・・・
　If ExitSw = 1 Then Exit Do
　・・・
Loop
　・・・
End Sub

Private Sub Command2_Click()　'ストップボタン
　ExitSw = 1
End Sub

他にも方法があると思うけど、こんなんでいいんでない？

通報する

強制的にループを抜けるには、exit do を使えばいいんじゃないでしょうか？

通報する