價格紀錄的語法有寫錯嗎??

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

111^# 跳轉到 »

發表於 2016-4-11 20:53 | 只看該作者

回復 110# 藍天麗池
明早再幫我測試一下這隻 "股票10C.xlsm" 的程式，
這隻是單獨只採用 Worksheet_Calculate() 方法，
並無應用 "名稱定義" 的方式。
說白點只單純直接 Worksheet_Calculate() 進行
資料寫入。如有了測試結果再行告知我，謝謝！

股票10C.rar (21.87 KB)
P.S. 我想確認它的評效，如 OK 了，則會建議你採用。

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

112^#

發表於 2016-4-11 22:29 | 只看該作者

回復 111# c_c_lai

好的C大，我明天再告訴你結果

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

113^#

發表於 2016-4-12 09:12 | 只看該作者

回復 111# c_c_lai

上圖示測試結果，好像有錯誤的地方，再請C大看看

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

114^#

發表於 2016-4-12 09:18 | 只看該作者

回復 113# 藍天麗池
出現甚麼錯誤訊息？

藍天麗池

中學生 Rank: 2

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

115^#

發表於 2016-4-12 09:23 | 只看該作者

回復 114# c_c_lai
我要看看，但是我現在不在家，晚點告訴C大

GBKEE

超級版主 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兔年全勤獎章

116^#

發表於 2016-4-12 10:05 | 只看該作者

本帖最後由 GBKEE 於 2016-4-13 08:42 編輯

回復 114# c_c_lai

Option Explicit
Private Sub Worksheet_Calculate()
Dim Rng As Range, cts As Long
If Time < #8:30:00 AM# Or Time > #1:31:00 PM# Then Exit Sub ' 非營業時間
On Error GoTo ER:
For cts = 4 To Columns.Count Step 4
Set Rng = Cells(2, cts)
With Cells(Rows.Count, cts).End(xlUp)
' 總量名稱所在的最底列往上到有資料的儲存格
If .Row = 2 Or .Row > 2 And .Value <> Rng.Value Then ' (各股總量有變動)
.Offset(1, 1).NumberFormatLocal = "hh:mm:ss" ' 設定儲存格格式 (時間)
.Offset(1).Cells(1, -1).Resize(, 4) = Rng.Cells(, -1).Resize(, 4).Value
End If
End With
Next cts
ER:
Stop
MsgBox "錯誤值 " & Err & VBLF & " cts=" & cts & " - " & Rng.Address & " 最後的總量是工作表的最右欄 -> .Resize(, 4).Value :超出工作表範圍" Resume
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

117^#

發表於 2016-4-12 10:05 | 只看該作者

本帖最後由 c_c_lai 於 2016-4-12 10:13 編輯

回復 113# 藍天麗池
今天你是甚麼時間開啟 "股票10C.xlsm" 的，看圖片猜應你是於盤前便開啟它，
因為未開盤時帶入值為 #N/A，為保險起見將判斷 "營業時間" 略為挪後

If Time < #8:30:00 AM# Or Time > #1:31:00 PM# Then Exit Sub ' 非營業時間

複製代碼

修改成

If Time < #8:35:00 AM# Or Time > #1:31:00 PM# Then Exit Sub ' 非營業時間

複製代碼

如此"公式" 欄便能傳入正確的"DDE 匯入值" 了。
目前你先將第三列刪除，儲存檔案後，於 "營業時間" 內
再從新啟動試試！

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

118^#

發表於 2016-4-12 10:10 | 只看該作者

回復 116# GBKEE
應該是如我 #117 所說的狀況，複製 #N/A 時出現型態不符的訊息。

GBKEE

超級版主 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兔年全勤獎章

119^#

發表於 2016-4-12 10:27 | 只看該作者

回復 118# c_c_lai

打開股票10C 不要更新 DEE=#REF
執行 116帖的 Worksheet_Calculate()

ER:
Stop
MsgBox Err '可再加上看看

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 2035
主題: 24
精華: 0
積分: 2031
點名: 0
作業系統: Win7
軟體版本: Office2010
閱讀權限: 100
性別: 男
註冊時間: 2012-3-22
最後登錄: 2024-2-1

120^#

發表於 2016-4-12 10:40 | 只看該作者

回復 119# GBKEE
我用 F8 完整 (Offline Trace) 追縱過了，圖片內容 (#N/A) 如同
以前開始在玩 DDE 時，經常於開盤時會碰到它，而用語法將之避開，
所以一看圖片第三列內容便知問題出在何處。等藍天麗池來印證吧！
(早期在玩 TradeStation與後期的 MultiChart，需要 DDE Data )