- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 10# daniel5168 - '每1分鐘記錄,5分鐘則改為 Mod 5
- If Second(Time) = 0 And Minute(Time) Mod 1 = 0 Then
複製代碼 條件式 每1分鐘整 執行 If 內的程式碼 ,這沒問題的.
但為何要每一秒遞迴一次,這多此一舉.- Application.OnTime Now + TimeValue("00:00:01"), "自動記錄" '每一秒遞迴一次
複製代碼 一分鐘遞迴一次,不用 If Second(Time) = 0 And Minute(Time) Mod 1 = 0 Then 程式碼不是簡潔一些嗎? |
|