1234
返回列表 上一主題 發帖

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

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1425 
主題
40 
精華
0 
積分
1449 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-4-16 
21# 跳轉到 »
發表於 2024-1-19 11:58 | 顯示全部帖子
回復 43# 藍天麗池


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

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1425 
主題
40 
精華
0 
積分
1449 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-4-16 
22#
發表於 2024-1-19 13:07 | 顯示全部帖子
回復 47# 藍天麗池


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

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1425 
主題
40 
精華
0 
積分
1449 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-4-16 
23#
發表於 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

帖子
1425 
主題
40 
精華
0 
積分
1449 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-4-16 
24#
發表於 2024-1-19 15:33 | 顯示全部帖子
回復 51# 藍天麗池


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

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1425 
主題
40 
精華
0 
積分
1449 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-4-16 
25#
發表於 2024-1-19 15:51 | 顯示全部帖子
回復 53# 藍天麗池


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

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1425 
主題
40 
精華
0 
積分
1449 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-4-16 
26#
發表於 2024-1-19 15:57 | 顯示全部帖子
本帖最後由 Andy2483 於 2024-1-19 16:00 編輯

回復 55# 藍天麗池


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

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1425 
主題
40 
精華
0 
積分
1449 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-4-16 
27#
發表於 2024-1-19 16:08 | 顯示全部帖子
本帖最後由 Andy2483 於 2024-1-19 16:12 編輯

回復 57# 藍天麗池


    如果可以跑 而值是0 那可能是計算出了問題,請前輩也自行研究一下算式
我將公式改成用其他活頁簿連結值的變動是可以跑的出正確值的
看圖片D欄好像是空白 沒有值,我再研究看看
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1425 
主題
40 
精華
0 
積分
1449 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-4-16 
28#
發表於 2024-1-19 16:21 | 顯示全部帖子
回復 59# 藍天麗池


    再試試這個,看提視窗跳出什麼?
變動記錄_20240119_12.zip (27.19 KB)
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1425 
主題
40 
精華
0 
積分
1449 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-4-16 
29#
發表於 2024-1-19 17:11 | 顯示全部帖子
本帖最後由 Andy2483 於 2024-1-19 18:42 編輯

回復 61# 藍天麗池


    啊 DDE傳輸的是文字 不是數字，我以為Evaluate後的值一定是數值，找了資料學習後才知道Evaluate是一個萬用的方法
所以應該是後學偷懶造成的 要用Val轉換為數字才能運算
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1425 
主題
40 
精華
0 
積分
1449 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-4-16 
30#
發表於 2024-1-21 08:25 | 顯示全部帖子
回復 65# 藍天麗池


    前輩早安
藉這帖DDE話題讓後學學習到很多知識,謝謝前輩
再請教前輩一點DDE資料運用的問題,請前輩指點這不懂DDE的後學
1.您所需要的DDE資料為什麼沒有全部接收記錄下來,而是直接計算所需要的值？
2.如果有個方便擴充或縮減DDE記錄欄數的方法,可以方便控制DDE的記錄,再藉由這些資料計算出想要的數據,甚至是自動產生圖表,或到價/到量自動跳出警訊,甚至提示因應對策,這樣的天馬行空想法不知是否對 是否可行？
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。
1234
返回列表 上一主題