12345678
返回列表 上一主題 發帖

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

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

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

回復 55# 藍天麗池


    每秒的筆數算正常嗎?
真希望自己有DDE可以測試
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

藍天麗池

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


    可以跑，但一樣是0

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

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


    換這個試試看
變動記錄_20240119_11.zip (34.22 KB)
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

藍天麗池

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


    會動了，可是數值都是0

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

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


    再試試看
變動記錄_20240119_10.zip (27.06 KB)
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

藍天麗池

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


    一樣出現最一開始的錯誤

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

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

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

藍天麗池

帖子
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

        靜思自在 : 原諒別人就是善待自己。
12345678
返回列表 上一主題