新手測試
新手測試 :lol[code]Private Sub gg_Click()If gg.Value = True Then
gg.Caption = "偵測中"
Else
gg.Caption = "停止偵測"
End If
Worksheets("DET1").Range("A2") = gg.Value
Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.webget"
End Sub[/code]
頁:
[1]