返回列表 上一主題 發帖

計時功能??

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
62  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-3-13 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2012-1-12 18:16 | 顯示全部帖子
回復 1# color790

使用組合鍵Alt+z
  1. Public x As Long, s As Double
  2. Sub auto_open()
  3. Application.OnKey "%z", "Ex"
  4. End Sub
  5. Sub Ex()
  6. If x = 0 Then s = Timer
  7. If x Mod 2 = 0 Then Cells(Rows.Count, 1).End(xlUp).Offset(1) = (Timer - s) / 86400: s = Timer
  8. If x Mod 2 = 1 Then Cells(Rows.Count, 1).End(xlUp).Offset(1) = (Timer - s) / 86400: s = Timer
  9. x = x + 1
  10. End Sub
複製代碼
計時.rar (8.06 KB)
學海無涯_不恥下問

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
62  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-3-13 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2012-1-12 23:18 | 顯示全部帖子
回復 3# color790


1. 為什麼要設 Public x As Long, s As Double,  X是指什麼??
設計2個全域變數，s是記住此次執行時的時間，x是記錄此程序被執行幾次
2. 為什麼要求X的餘數為零或為1 ??
這個問題多謝你提醒，可以不須求得餘數，但是紀錄是否為第一次執行是必須的
改成
  1. Sub Ex()
  2. If x = 0 Then s = Timer
  3. Cells(Rows.Count, 1).End(xlUp).Offset(1) = (Timer - s) / 86400: s = Timer
  4. x = x + 1
  5. End Sub
複製代碼
即可
3. 為什麼Timer - s 還要再除86400, 然後後面還有個 :是什麼意思
Timer是傳回從午夜零時起算至此的秒數，傳回的是Single，因為一天24小時轉成數值時為1，除以86400(一天為86400秒)是為了轉成秒
學海無涯_不恥下問

TOP

        靜思自在 : 人要自愛，才能愛普天下的人。
返回列表 上一主題