再点击按钮 就结束语句怎么写的?

suvenweibo

每隔5秒就加1,不断重复,直到再点击按钮就停止！
Sub 按钮1_单击()
doi=i+1
Application.Wait (Now + TimeValue("0:00:05"))

cells(i,1)
do until  "再点击按钮"    真到再点击按钮就结束程序   

end sub

香川群子

呵呵，我用两个按钮，一个启动，一个停止。

1. Sub AutoMacro()
   
2.     [a1] = "Run Macro, Please Wait!"
   
3.     Do
   
4.         i = i + 1
   
5.         [a65536].End(3).Offset(1) = i
   
6.         DoEvents
   
7.         If [a1] = "Stop Macro" Then Exit Sub
   
8.         Application.Wait (Now + TimeValue("0:00:03"))
   
9.     Loop
   
10. End Sub
    
11. Sub StopMacro()
    
12.     [a1] = "Stop Macro"
    
13. End Sub
    

复制代码

suvenweibo

我想用一个按钮可以实现吗!?

香川群子

好吧。

一个按钮的两种方法：
第一种：【控件按钮】 优点，按钮名称还可以变

1. Private Sub CommandButton1_Click()
   
2.     If CommandButton1.Caption = "Stop Macro" Then
   
3.         CommandButton1.Caption = "Run Macro"
   
4.     Else
   
5.         [a:a] = ""
   
6.         CommandButton1.Caption = "Stop Macro"
   
7.     End If
   
8.     Do
   
9.         DoEvents
   
10.         If CommandButton1.Caption = "Run Macro" Then Exit Sub
    
11.         i = i + 1
    
12.         [a65536].End(3).Offset(1) = i
    
13.         Application.Wait (Now + TimeValue("0:00:01"))
    
14.     Loop
    
15. End Sub
    

复制代码

第二种：【普通按钮】

1. Dim myStop
   
2. Sub RunMacro()
   
3.     Do
   
4.         DoEvents
   
5.         If myStop = "Stop" Then Exit Sub
   
6.         i = i + 1
   
7.         [d65536].End(3).Offset(1) = i
   
8.         Application.Wait (Now + TimeValue("0:00:01"))
   
9.     Loop
   
10. End Sub
    
11. Sub Macro()
    
12.     If myStop = "Run" Then
    
13.         myStop = "Stop"
    
14.     Else
    
15.         [d:d] = ""
    
16.         myStop = "Run"
    
17.         Call RunMacro
    
18.     End If
    
19. End Sub

复制代码

第三种 【两个普通按钮】 有人更喜欢这一种吧。

1. Dim myStop
   
2. Sub AutoMacro()
   
3.     [g:g] = ""
   
4.     myStop = "Run"
   
5.     Do
   
6.         DoEvents
   
7.         If myStop = "Stop" Then Exit Sub
   
8.         i = i + 1
   
9.         [g65536].End(3).Offset(1) = i
   
10.         Application.Wait (Now + TimeValue("0:00:01"))
    
11.     Loop
    
12. End Sub
    
13. Sub StopMacro()
    
14.     myStop = "Stop"
    
15. End Sub
    

复制代码

suvenweibo

真是爱上你的才华{:soso_e179:}