ToggleButton怎么实现退出宏执行状态？

lsggjie

Private Sub ToggleButton1_Click() '点击后,不能由循环状态切换停止状态
If ToggleButton1.Value = True Then
10
        For d = 6 To 14
            Cells(6, d).Select
            delay 0.1
        Next
        For r = 6 To 14
            Cells(r, 14).Select
            delay 0.1
        Next
        For d1 = 14 To 6 Step -1
            Cells(14, d1).Select
            delay 0.1
        Next
        For r = 14 To 6 Step -1
            Cells(r, 6).Select
            delay 0.1
        Next
    GoTo 10
Else
Exit Sub

End If

End Sub

Sub delay(t As Single)  '延时： delay 3
Dim T1 As Single
T1 = Timer
Do
DoEvents
Loop While Timer - T1 < t
End Sub

qqaa266

  GoTo 10
这一行，你根本没任何条件就进行跳转，这是死循环啊，怎么可能停止得了。

lsggjie

qqaa266 发表于 2020-2-19 17:24
GoTo 10
这一行，你根本没任何条件就进行跳转，这是死循环啊，怎么可能停止得了。

当ToggleButton1.Value = True循环，当再次点击ToggleButton按钮，ToggleButton1.Value = False时，退出，怎么才能实现？谢谢！

lsggjie

qqaa266 发表于 2020-2-19 17:24
GoTo 10
这一行，你根本没任何条件就进行跳转，这是死循环啊，怎么可能停止得了。

谢谢，这样可以了
Private Sub ToggleButton1_Click()
If ToggleButton1.Value = True Then
10
        For d = 6 To 14
            Cells(6, d).Select
            delay 0.1
            If ToggleButton1.Value = False Then
            Cells(6, d).Select
            Exit Sub
            End If
        Next
        For r = 6 To 14
            Cells(r, 14).Select
            delay 0.1
            If ToggleButton1.Value = False Then
            Cells(r, 14).Select
            Exit Sub
            End If
        Next
        For d1 = 14 To 6 Step -1
            Cells(14, d1).Select
            delay 0.1
            If ToggleButton1.Value = False Then
            Cells(14, d1).Select
            Exit Sub
            End If
        Next
        For r = 14 To 6 Step -1
            Cells(r, 6).Select
            delay 0.1
            If ToggleButton1.Value = False Then
            Cells(r, 6).Select
            Exit Sub
            End If
        Next
   
    GoTo 10
End If
End Sub

qqaa266

lsggjie 发表于 2020-2-19 20:08
当ToggleButton1.Value = True循环，当再次点击ToggleButton按钮，ToggleButton1.Value = False时，退出 ...

GoTo 10 这一行修改为   If ToggleButton1.Value = True Then    GoTo 10

不是很明白你设计的那些循环的作用，如果那些循环在工作中耗时太多的话，你再次点击ToggleButton按钮，ToggleButton1.Value = False时，也不会马上退出的，要等整个循环完成后才会 检查ToggleButton1的状态，然后退出。