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

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

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2016-3-17 23:18 | 只看該作者

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

本帖最後由藍天麗池於 2016-3-17 23:24 編輯

除錯.rar (36.73 KB)
請問版上大大，我上傳的附件是一個價格變動就記錄的VBA，但是我在執行附件裡面的Macro1時，應該資料會刪掉，可是執行完後不但不會刪掉，還會馬上出現很多一樣的資料，請版上大大幫我看看這個語法有甚麼問題嗎??

我發現把旁邊的公式刪掉就正常了，這是什麼原因??可以修改成價格變動就紀錄且同時保有旁邊的公式嗎??

DDE如果沒有可以用隨便的數字下去測試

樓主熱帖

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

135^#

發表於 2016-7-17 21:13 | 只看該作者

回復 131# c_c_lai

C大，可以在請教你一下嗎??
http://forum.twbts.com/viewthread.php?tid=18005&extra=

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

134^#

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

回復 131# c_c_lai

C大，開盤前打開測試OK，沒問題了

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

133^#

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

回復 131# c_c_lai

C大我睡過頭，目前盤中執行OK，下周開盤前打開試試看

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

132^#

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

回復 131# c_c_lai

哈哈，我搞錯了，明天再試試

c_c_lai

博士班 Rank: 6 Rank: 6

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

131^#

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

回復 130# 藍天麗池
這隻程式不是 "股票10C.xlsm"，
請執行 C 的程式才正確。

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

130^#

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

本帖最後由藍天麗池於 2016-4-14 09:15 編輯

回復 128# c_c_lai

股票.rar (36.36 KB)
C大，昨天在盤中可以用，但是今天開盤前再開啟就不行了，我上傳我的檔案，裡面有些儲存格的內容有改變但是之前的研判規則都沒改變，為什麼無法執行是因為我變動到哪邊嗎??

剛才9點開盤前我打開檔案，無法執行程式，9:05分我在打開一次又可以執行了，這是甚麼原因??

我在想會不會是因為剛開盤有些股票還沒成交量，會出現"-"，而不是出現#NA，所以才造成剛開盤無法紀錄

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

129^#

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

回復 128# c_c_lai

謝謝C大，辛苦了

c_c_lai

博士班 Rank: 6 Rank: 6

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

128^#

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

回復 126# 藍天麗池
OK，今後那就以 "股票10C.xlsm" 為準了，
祝一切順利！大功告成！

c_c_lai

博士班 Rank: 6 Rank: 6

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

127^#

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

本帖最後由 c_c_lai 於 2016-4-13 09:08 編輯

回復 116# GBKEE

' #N/A (DDE尚未啟動) -> Excel 一開始連上 DDE 時因系統尚未就緒，此時接收值為 #N/A，
' 當 .Row = 2 (資料最位筆為第二列) 又逢第二列傳入值為 #N/A，所以則逕行將 (#N/A) 直接寫入；
' 接著當第二列接收到 DDE 接收值 (實際數據) 後，再次觸發 Worksheet_Calculate()，
' 此時 .Row > 2 And .Value <> Range(E.Name).Value 於上、下欄值比對時便產生錯誤訊息了。
' -----------------------------------------------------------------------------------------
' Cells(Rows.Count, cts).End(xlUp).Value : 錯誤 2042 : Variant/Error
' 執行階段錯誤 '13'：型態不符合
' -----------------------------------------------------------------------------------------

複製代碼