按下按钮1时按其他按钮2 EXCEL VBA

Question

我有3个切换按钮，如Excel VBA中所示。首先我按连续然后它将被按下并开始运行宏。在此期间，如果我需要按紧急按钮我需要做的：

第一步：关闭连拍按钮

第二步：打开紧急按钮 （手动是无关紧要这里）

目前当我试图做到这一点时，紧急停止不能按下，直到连续的宏结束。

Answer 1

我大部分时间都在使用这个功能，当我试着说，从网上抓取数据。

Option Explicit 

Dim boolStop As Boolean 

'~~> Continuous button 
Private Sub CommandButton1_Click() 
    CommandButton1.Enabled = False 

    boolStop = False 

    For i = 1 To 1000000000 
     For j = 1 To 1000000000 
      Debug.Print i 
      DoEvents 

      If boolStop = True Then 
       Msgbox "Operation Paused by the User" 
       CommandButton1.Enabled = True 
       Exit Sub 
      End If 
     Next j 
    Next i 

End Sub 

'~~> Emergency button 
Private Sub CommandButton3_Click() 
    boolStop = True 
End Sub