請教如何修改程式來提高執行效率呢? - Excel程式區

　暱稱: 厚臉皮的學生

帖子: 1429
主題: 40
精華: 0
積分: 1453
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-5-18

56^# 跳轉到 »

發表於 2024-1-19 15:57 | 只看該作者

本帖最後由 Andy2483 於 2024-1-19 16:00 編輯

回復 55# 藍天麗池

每秒的筆數算正常嗎?
真希望自己有DDE可以測試

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

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

55^#

發表於 2024-1-19 15:56 | 只看該作者

回復 54# Andy2483

可以跑，但一樣是0

　暱稱: 厚臉皮的學生

帖子: 1429
主題: 40
精華: 0
積分: 1453
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-5-18

54^#

發表於 2024-1-19 15:51 | 只看該作者

回復 53# 藍天麗池

換這個試試看

變動記錄_20240119_11.zip (34.22 KB)

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

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

53^#

發表於 2024-1-19 15:41 | 只看該作者

回復 52# Andy2483

會動了，可是數值都是0

　暱稱: 厚臉皮的學生

帖子: 1429
主題: 40
精華: 0
積分: 1453
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-5-18

52^#

發表於 2024-1-19 15:33 | 只看該作者

回復 51# 藍天麗池

再試試看

變動記錄_20240119_10.zip (27.06 KB)

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

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

51^#

發表於 2024-1-19 15:26 | 只看該作者

回復 49# Andy2483

一樣出現最一開始的錯誤

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

50^#

發表於 2024-1-19 15:26 | 只看該作者

回復 48# Andy2483

一樣甚麼都沒有

　暱稱: 厚臉皮的學生

帖子: 1429
主題: 40
精華: 0
積分: 1453
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-5-18

49^#

發表於 2024-1-19 15:06 | 只看該作者

回復 47# 藍天麗池

忘了一件事: If IsError([K12]) Or IsError([L12]) Then 好像DDE值會有錯誤值所以你原來才有這判斷式
所以加了 If IsError(ThisWorkbook.Sheets(1).[B1]) Then Exit Sub 請再試試看新範例檔

變動記錄_20240119_9.zip (26.96 KB)

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

　暱稱: 厚臉皮的學生

帖子: 1429
主題: 40
精華: 0
積分: 1453
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-5-18

48^#

發表於 2024-1-19 13:07 | 只看該作者

回復 47# 藍天麗池

那代表VBA 一筆DDE值都沒抓到,請再試一下
試一下以下這沒有"="的執行結果
Sub TEST()
MsgBox Evaluate("XQTISC|Quote!'FITXN*1.TF-BestBidSize1'")
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

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

47^#

發表於 2024-1-19 12:01 | 只看該作者

回復 45# Andy2483

出現跟#36一樣的錯誤