[發問] 程式優化問題

y54161212

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


Data Cal2.zip (29.73 KB)

檔案
下載次數: 14

2021-11-11 09:00

singo1232001

回復 1# y54161212

自創一個

Private Sub StartStop_Timer()
If TimerActive = False Then

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

End Sub

y54161212

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

y54161212

回復  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

singo1232001

回復 4# y54161212


    抱歉 姍姍來遲 不常上  已補上檔案

singo1232001

回復 1# y54161212


由於application.run 處於sheet1內

怕原po不了解呼叫其他程序的方法  順便把呼叫方式放上

呼叫程序是addadd   如圖片範例 檔案在上一樓

y54161212

回復  y54161212


由於application.run 處於sheet1內

怕原po不了解呼叫其他程序的方法  順便把呼叫 ...
singo1232001 發表於 2022-1-26 11:10

萬分感謝
我再好好研究一番