麻辣家族討論版版 - Powered by Discuz! Board

標題: [發問] 程式優化問題 [打印本頁]

作者: y54161212 時間: 2021-11-11 09:01 標題: 程式優化問題

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

[attach]34368[/attach]

作者: singo1232001 時間: 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

作者: y54161212 時間: 2022-1-12 20:26

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

作者: y54161212 時間: 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

作者: singo1232001 時間: 2022-1-25 04:17

本帖最後由 singo1232001 於 2022-1-25 04:30 編輯

回復 4# y54161212

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

作者: singo1232001 時間: 2022-1-26 11:10

回復 1# y54161212

由於application.run 處於sheet1內

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

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

作者: y54161212 時間: 2022-2-8 17:00

回復 y54161212

由於application.run 處於sheet1內

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

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

歡迎光臨麻辣家族討論版版 (http://forum.twbts.com/)