劵商DDE傳Excel 每分自動記錄數據 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 劵商DDE傳Excel 每分自動記錄數據

返回列表下一主題上一主題發帖

[發問] 劵商DDE傳Excel 每分自動記錄數據

中學生 Rank: 2

帖子: 43
主題: 3
精華: 0
積分: 66
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-7-4
最後登錄: 2012-3-7

31^# 跳轉到 »

發表於 2011-7-21 13:37 | 只看該作者

回復 30# GBKEE

Trying... 努力中 Orz

中學生 Rank: 2

帖子: 43
主題: 3
精華: 0
積分: 66
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-7-4
最後登錄: 2012-3-7

32^#

發表於 2011-7-21 13:49 | 只看該作者

回復 31# andylin

梅友回應哩 Orz

中學生 Rank: 2

帖子: 43
主題: 3
精華: 0
積分: 66
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-7-4
最後登錄: 2012-3-7

33^#

發表於 2011-7-21 13:51 | 只看該作者

回復 30# GBKEE

梅友回應哩
明天我再素看看 Orz
朵解大大 Orz Orz

中學生 Rank: 2

帖子: 43
主題: 3
精華: 0
積分: 66
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-7-4
最後登錄: 2012-3-7

34^#

發表於 2011-7-21 13:53 | 只看該作者

本帖最後由 andylin 於 2011-7-24 17:56 編輯

我明日再try看看

中學生 Rank: 2

帖子: 43
主題: 3
精華: 0
積分: 66
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-7-4
最後登錄: 2012-3-7

35^#

發表於 2011-7-21 14:17 | 只看該作者

本帖最後由 andylin 於 2011-7-24 17:57 編輯

回復 30# GBKEE

大大謝謝您 Orz
您的程式碼真的很神!!!

真的非常謝謝您 Orz
感恩 Orz

中學生 Rank: 2

帖子: 43
主題: 3
精華: 0
積分: 66
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-7-4
最後登錄: 2012-3-7

36^#

發表於 2011-7-22 14:43 | 只看該作者

本帖最後由 andylin 於 2011-7-24 17:57 編輯

回復 30# GBKEE

神人大大您好 Orz
今日我一大早就開起電腦
中午時稍微喵一下
電腦自動有在記錄ing
一時大興奮  把筆電換位置
拔開電源供應線  讓筆電暫時吃電池電源
ㄚ知從那個摩們開始  小黑筆電就停住在那美麗贖刻
就一直掛在那  都無動於衷  按什麼都沒用暖開機也沒用  (拼老命一直手也按  心裡也岸 :@ )
只好眼睜睜看不動如山的筆電到收盤
再給它硬開機

下週一再來test 了
下次會知道在run時  不可拔筆電電源  以免電腦shut down  Orz
下週再與您分享您程式碼的結果 :D

神人大大感謝您  :D
感謝  再感謝 Orz Orz

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

37^#

發表於 2011-7-22 15:00 | 只看該作者

本帖最後由 GBKEE 於 2011-7-22 15:01 編輯

回復 36# andylin

收市時間之前,重新開檔都會記錄資料重新開檔就好了 為何暖開機也沒用
修改為選擇清除已存在的資料的詢問

'ThisWorkbook模組的程序
Private Sub Workbook_Open() '此程式是檔案開啟時自動執行的程式
If MsgBox("清除已存在的資料??", vbYesNo) = vbYes Then
Sheets("1分K").UsedRange.Offset(1, 1) = "" ' 清除已存在的資料
Sheets("5分K").UsedRange.Offset(1, 1) = ""
Sheets("15分K").UsedRange.Offset(1, 1) = ""
End If
If Time >= #8:46:00 AM# And Time <= #1:30:00 PM# Then '開市時間內開檔
資料輸入
ElseIf Time < #8:46:00 AM# Then '開市前內開檔
Application.OnTime #8:46:00 AM#, "ThisWorkbook.資料輸入"
End If
End Sub

複製代碼

中學生 Rank: 2

帖子: 43
主題: 3
精華: 0
積分: 66
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-7-4
最後登錄: 2012-3-7

38^#

發表於 2011-7-22 16:56 | 只看該作者

大大不好意思小弟傻傻分不清楚
今日中午是電腦真的是屎當怎麼按都沒用只好等到盤後才敢關電源
可能是我小筆電負荷不了每次record 風扇就開始狂叫
下週一再來test看看雖然今天因此沒能save到今日的資料
不過今日能有東西跑出來已經非常開心了

真的非常謝謝您
感恩感恩 Orz Orz

中學生 Rank: 2

帖子: 43
主題: 3
精華: 0
積分: 66
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
註冊時間: 2011-7-4
最後登錄: 2012-3-7

39^#

發表於 2011-7-24 17:58 | 只看該作者

回復 31# andylin

版大您好
我真沒有偷灌水...Orz

小學生 Rank: 1

帖子: 14
主題: 3
精華: 0
積分: 22
點名: 0
作業系統: windows
軟體版本: xp
閱讀權限: 10
性別: 男
註冊時間: 2011-7-25
最後登錄: 2011-8-3

40^#

發表於 2011-7-26 14:59 | 只看該作者

剛好需要用到這一系列的文章
慢慢開始研究吧我的Private Sub Worksheet_Calculate()一直沒有觸發
不知道到底是哪邊出問題 ??XD糗

靜思自在 : 【時日莫空過】一個人在世間做了多少事，就等於壽命有多長。因此必須與時間競爭，切莫使時日空過。

返回列表下一主題上一主題