標題: 新手測試 [打印本頁]

---

作者: fortune1234    時間: 2018-11-21 16:39     標題: 新手測試

新手測試 :lol

1. Private Sub gg_Click()
   
2. 
   
3.      If gg.Value = True Then
   
4. 
   
5.      gg.Caption = "偵測中"
   
6.      
   
7.      Else
   
8.      
   
9.      gg.Caption = "停止偵測"
   
10. 
    
11.      End If
    
12. 
    
13.    Worksheets("DET1").Range("A2") = gg.Value
    
14. 
    
15.    Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.webget"
    
16. 
    
17. 
    
18. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)