- 帖子
- 1
- 主題
- 1
- 精華
- 0
- 積分
- 0
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2010
- 閱讀權限
- 10
- 性別
- 男
- 來自
- 台中
- 註冊時間
- 2018-11-21
- 最後登錄
- 2018-11-21
|
新手測試
新手測試 :lol- 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
|
|
發表於 2018-11-21 16:39
| 
