[發問] 程式優化問題

附加檔案內的程式
是用來避免螢幕保護程式啟動
所以設定了兩個鍵
一個啟動一個停止寫在Module內
想請問是否可以改成同一個程式都使用COMMAND BUTTON來執行?

Data Cal2.zip (29.73 KB)

樓主熱帖

莫讓他人錯誤傷害自己

singo1232001

　暱稱: 熱狗慶

中學生 Rank: 2

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

2^#

發表於 2021-12-9 16:43 | 只看該作者

回復 1# y54161212

自創一個

Private Sub StartStop_Timer()
If TimerActive = False Then

TimerActive = True
Timer
ElseIf TimerActive = True Then
TimerActive = False
End If

End Sub

TOP

y54161212

中學生 Rank: 2

帖子: 31
主題: 7
精華: 0
積分: 70
點名: 0
作業系統: Windows10
軟體版本: Office365
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2020-6-14
最後登錄: 2024-8-19

論壇榮譽勳章論壇贊助勳章

3^#

發表於 2022-1-12 20:26 | 只看該作者

我來試試看
不能的話再跟大大請教

莫讓他人錯誤傷害自己

TOP

y54161212

中學生 Rank: 2

帖子: 31
主題: 7
精華: 0
積分: 70
點名: 0
作業系統: Windows10
軟體版本: Office365
閱讀權限: 20
性別: 男
來自: Taiwan
註冊時間: 2020-6-14
最後登錄: 2024-8-19

論壇榮譽勳章論壇贊助勳章

4^#

發表於 2022-1-14 11:10 | 只看該作者

回復 y54161212

自創一個

Private Sub StartStop_Timer()
If TimerActive = False Then

Ti ...
singo1232001 發表於 2021-12-9 16:43

我試著按照大大的指導測試了一下
但程式並未啟動，請教我是哪邊用錯了?

Private Sub CommandButton1_Click()
Dim TimerActive As Boolean

If TimerActive = False Then

TimerActive = True
Call Timer
ElseIf TimerActive = True Then
TimerActive = False
End If

End Sub

Private Sub Timer()

If TimerActive Then
      Application.ScreenUpdating = False
      Application.SendKeys "{CAPSLOCK}"
      Worksheets("Sheet1").Range("A2").Value = Time
      Application.OnTime Now() + TimeValue("00:00:05"), "Timer"

End If

End Sub

timeactive.zip (18.29 KB)

檔案

莫讓他人錯誤傷害自己

TOP

singo1232001