·s¤â´ú¸Õ

fortune1234

·s¤â´ú¸Õ :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

½Æ»s¥N½X