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

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

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

1^# 跳轉到 »

發表於 2024-1-17 13:59 | 顯示全部帖子

回復 1# 藍天麗池

如果沒有這些數值運算前輩的EXCEL可以記錄到每秒6~8筆記錄嗎?

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

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

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

2^#

發表於 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欄可能比較快

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

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

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

3^#

發表於 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

Andy2483