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

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

41^# 跳轉到 »

發表於 2024-1-19 11:36 | 只看該作者

回復 40# Andy2483

有，我有放職進去

　暱稱: 厚臉皮的學生

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

42^#

發表於 2024-1-19 11:46 | 只看該作者

本帖最後由 Andy2483 於 2024-1-19 11:49 編輯

回復 41# 藍天麗池

奇怪了這兩格植入公式可以顯示數字,VBA卻抓不到值
其他的DDE值VBA都抓到了,就這兩個值抓不到
請檢查一下原本這 L10與K10 這兩格的公式是否正確,貼上來看一下

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

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

43^#

發表於 2024-1-19 11:52 | 只看該作者

回復 42# Andy2483

我剛剛又試了一下，這次連左邊A-D都不會顯示任何東西了，只會一直出現原本那個錯誤

　暱稱: 厚臉皮的學生

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

44^#

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

回復 43# 藍天麗池

重新開啟檔案,現在是兩個DDE值VBA抓不到,請檢查一下這兩串字是不是有錯誤
=XQTISC|Quote!'FITXN*1.TF-FiveBidSize'
=XQTISC|Quote!'FITXN*1.TF-FiveAskSize'

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

　暱稱: 厚臉皮的學生

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

45^#

發表於 2024-1-19 11:58 | 只看該作者

回復 43# 藍天麗池

試一下以下執行結果
Sub TEST()
MsgBox Evaluate("=XQTISC|Quote!'FITXN*1.TF-BestBidSize1'")
End Sub

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

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

46^#

發表於 2024-1-19 11:59 | 只看該作者

回復 44# Andy2483

沒有錯誤，我一直點結束，數字會變動喔

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

47^#

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

回復 45# Andy2483

出現跟#36一樣的錯誤

　暱稱: 厚臉皮的學生

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

48^#

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

回復 47# 藍天麗池

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

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

　暱稱: 厚臉皮的學生

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

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)

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

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

50^#

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

回復 48# Andy2483

一樣甚麼都沒有