返回列表 上一主題 發帖

[發問] 程式優化問題

[發問] 程式優化問題

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


Data Cal2.zip (29.73 KB)
莫讓他人錯誤傷害自己

回復 1# y54161212

自創一個

Private Sub StartStop_Timer()
If TimerActive = False Then

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

End Sub

TOP

我來試試看
不能的話再跟大大請教
莫讓他人錯誤傷害自己

TOP

回復  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 於 2022-1-25 04:30 編輯

回復 4# y54161212


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

timeactiveV1.zip (19.93 KB)

TOP

回復 1# y54161212


由於application.run 處於sheet1內

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

呼叫程序是addadd   如圖片範例 檔案在上一樓
Screenshot 2022-01-26 110221.png

TOP

        靜思自在 : 稻穗結得越飽滿,越會往下垂,一個人越有成就,就要越有謙沖的胸襟。
返回列表 上一主題