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

　暱稱: 厚臉皮的學生

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

6^# 跳轉到 »

發表於 2024-1-18 14:11 | 只看該作者

本帖最後由 Andy2483 於 2024-1-18 14:17 編輯

回復 5# 藍天麗池

範例工作表模組裡沒有Call Price,它需要執行嗎?

a-e的數值就是黃色部分計算所得，如果黃色部分沒有，要如何得出a-e的值？
在陣列/變數/字典經運算或許可以得到A~E

例如:
Option Explicit
Public Z, BBS(1 To 5), BB(1 To 5), BA(1 To 5), BAS(1 To 5), FBS, FAS
Sub 時間()
[A1] = WorksheetFunction.Text(Now(), "hh:mm:ss")
Application.OnTime Now() + TimeValue("00:00：01"), "時間"
If Not IsObject(Z) Then
Set Z = CreateObject("Scripting.Dictionary")
BBS(1) = "XQTISC|Quote!'FITXN*1.TF-BestBidSize1'"
BBS(2) = "XQTISC|Quote!'FITXN*1.TF-BestBidSize2'"
BBS(3) = "XQTISC|Quote!'FITXN*1.TF-BestBidSize3'"
BBS(4) = "XQTISC|Quote!'FITXN*1.TF-BestBidSize4'"
BBS(5) = "XQTISC|Quote!'FITXN*1.TF-BestBidSize5'"

BB(1) = "=XQTISC|Quote!'FITXN*1.TF-BestBid1'"
BB(2) = "=XQTISC|Quote!'FITXN*1.TF-BestBid2'"
BB(3) = "=XQTISC|Quote!'FITXN*1.TF-BestBid3'"
BB(4) = "=XQTISC|Quote!'FITXN*1.TF-BestBid4'"
BB(5) = "=XQTISC|Quote!'FITXN*1.TF-BestBid5'"

BA(1) = "=XQTISC|Quote!'FITXN*1.TF-BestAsk1'"
BA(2) = "=XQTISC|Quote!'FITXN*1.TF-BestAsk2'"
BA(3) = "=XQTISC|Quote!'FITXN*1.TF-BestAsk3'"
BA(4) = "=XQTISC|Quote!'FITXN*1.TF-BestAsk4'"
BA(5) = "=XQTISC|Quote!'FITXN*1.TF-BestAsk5'"

BAS(1) = "=XQTISC|Quote!'FITXN*1.TF-BestAskSize1'"
BAS(2) = "=XQTISC|Quote!'FITXN*1.TF-BestAskSize2'"
BAS(3) = "=XQTISC|Quote!'FITXN*1.TF-BestAskSize3'"
BAS(4) = "=XQTISC|Quote!'FITXN*1.TF-BestAskSize4'"
BAS(5) = "=XQTISC|Quote!'FITXN*1.TF-BestAskSize5'"

FBS = "=XQTISC|Quote!'FITXN*1.TF-FiveBidSize'"
FAS = "=XQTISC|Quote!'FITXN*1.TF-FiveAskSize'"
End If
End Sub

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

TOP

藍天麗池

中學生 Rank: 2

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

5^#

發表於 2024-1-18 14:06 | 只看該作者

本帖最後由藍天麗池於 2024-1-18 14:16 編輯

回復 4# Andy2483
1.可以刪除
2.a-e的數值就是黃色部分計算所得，如果黃色部分沒有，要如何得出a-e的值？
裡面黃色部分都可以不要，唯獨j5-m10是資料來源，我不知道是否有其他方法可以得出a-e的值

TOP

Andy2483

　暱稱: 厚臉皮的學生

大學生 Rank: 4

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

4^#

發表於 2024-1-18 07:14 | 只看該作者

本帖最後由 Andy2483 於 2024-1-18 07:30 編輯

回復 3# 藍天麗池

請教前輩:
1.範例工作表模組裡沒有Call Price,它需要執行嗎? 原程式碼如下:
Option Explicit
Private Sub Worksheet_Calculate()
Call RecordPrice
End Sub

2.下圖黃色區域儲存格值取消,只做A到E欄的結果值記錄可以嗎? 還是黃色區域儲存格值一定要存在並隨DDE變動?
因為這些黃色區域儲存格值變化可能會影響效能,如果在VBA計算這些值後寫入A到E欄可能比較快