12345678
返回列表 上一主題 發帖

[發問] 請教如何修改程式來提高執行效率呢?

藍天麗池

帖子
365 
主題
40 
精華
0 
積分
406 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-8-24 
41# 跳轉到 »
發表於 2024-1-19 11:36 | 只看該作者
回復 40# Andy2483


    有，我有放職進去

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
42#
發表於 2024-1-19 11:46 | 只看該作者
本帖最後由 Andy2483 於 2024-1-19 11:49 編輯

回復 41# 藍天麗池


    奇怪了 這兩格植入公式可以顯示數字,VBA卻抓不到值
其他的DDE值VBA都抓到了,就這兩個值抓不到
請檢查一下原本這 L10與K10 這兩格的公式是否正確,貼上來看一下
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

藍天麗池

帖子
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都不會顯示任何東西了，只會一直出現原本那個錯誤

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
44#
發表於 2024-1-19 11:56 | 只看該作者
回復 43# 藍天麗池


    重新開啟檔案,現在是兩個DDE值VBA抓不到,請檢查一下這兩串字  是不是有錯誤
=XQTISC|Quote!'FITXN*1.TF-FiveBidSize'
=XQTISC|Quote!'FITXN*1.TF-FiveAskSize'
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
45#
發表於 2024-1-19 11:58 | 只看該作者
回復 43# 藍天麗池


    試一下以下 執行結果
Sub TEST()
MsgBox Evaluate("=XQTISC|Quote!'FITXN*1.TF-BestBidSize1'")
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

藍天麗池

帖子
365 
主題
40 
精華
0 
積分
406 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-8-24 
46#
發表於 2024-1-19 11:59 | 只看該作者
回復 44# Andy2483


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

TOP

藍天麗池

帖子
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一樣的錯誤

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
48#
發表於 2024-1-19 13:07 | 只看該作者
回復 47# 藍天麗池


    那代表VBA 一筆DDE值都沒抓到,請再試一下
試一下以下 這沒有"="的執行結果
Sub TEST()
MsgBox Evaluate("XQTISC|Quote!'FITXN*1.TF-BestBidSize1'")
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
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)
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

藍天麗池

帖子
365 
主題
40 
精華
0 
積分
406 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-8-24 
50#
發表於 2024-1-19 15:26 | 只看該作者
回復 48# Andy2483


    一樣甚麼都沒有

TOP

        靜思自在 : 甘願做、歡喜受。
12345678
返回列表 上一主題