請問高手要將以下DDE 每分鐘記錄改為30秒自動記錄一次要怎改
- 帖子
- 51
- 主題
- 6
- 精華
- 0
- 積分
- 59
- 點名
- 0
- 作業系統
- VISTA
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-4-1
- 最後登錄
- 2018-5-17
|
回復 xu123
不須等開盤，你只要開啟該Excel 表單，於 8:45 後觀察每隔30秒是否會寫入一筆紀錄，
答案便 ...
c_c_lai 發表於 2012-5-25 21:14 
請問要改哪兒?
Application.OnTime Now + TimeValue("00:00:30"), "ThisWorkbook.Timer" '每秒顯示
我改這邊後 時間就不動也不記錄了?
謝謝 感恩 |
|
|
|
|
|
|
|
- 帖子
- 51
- 主題
- 6
- 精華
- 0
- 積分
- 59
- 點名
- 0
- 作業系統
- VISTA
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-4-1
- 最後登錄
- 2018-5-17
|
回復 xu123
附上圖片以及程式碼供你實務參考：
一、 DDE 每分鐘記錄改為30秒自動記錄一次要怎改 [修改] ...
c_c_lai 發表於 2012-5-26 09:44
感謝c_c_lai 大這麼詳細用心的解說
又進一步學習了
來測試研究一下
感恩再感恩 |
|
|
|
|
|
|
|
- 帖子
- 51
- 主題
- 6
- 精華
- 0
- 積分
- 59
- 點名
- 0
- 作業系統
- VISTA
- 軟體版本
- office 2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2012-4-1
- 最後登錄
- 2018-5-17
|
本帖最後由 mead 於 2012-6-24 10:34 編輯
試著在變動幅度最小的前提下修改
Option Explicit
Dim LastMin As Long
Private Sub Workbook_Open ...
a8350070 發表於 2012-5-26 11:03
If Hour(Time) * 3600 + Minute(Time) * 60 + Second(Time) > LastMin + 30 Then '開始後做
這樣改 其要記錄的時間設定要減1
如30秒 就要加29而非30 |
|
|
|
|
|
|
|
發表於 2012-5-25 22:16
| 
