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

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2024-1-16 09:52 | 只看該作者

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

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

版上前輩，附件附上一個檔案，其主要功能是用來記錄數值的變動

      其程式分兩部分 1.K12<>L12，將J5:M10的數值複製到J14:M19，I14-I18跟N14-N18是將J5-M10跟J14:M19相加減得出(主要就是讓現值跟變動前的值做相加減)，然後我主要是要求I14-I18跟N14-N18的數值

                        2.B2=I14-I18的值相加，C2=N14-N18的值相加，然後一直往下紀錄

      目前執行這個程式發現程式在執行上不效率不好，資料來源是券商DDE，其資料來源有時候可能內變動6-8次，但我執行程式後，所記錄下來的資料同個時間大多在大多在2-3筆居多，想請教一下版上前輩，我的程式要如何修改才能提升其效率呢?

變動記錄.rar (30.79 KB)

樓主熱帖

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

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

2^#

發表於 2024-1-17 13:59 | 只看該作者

回復 1# 藍天麗池

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

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

TOP

藍天麗池

中學生 Rank: 2

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

3^#

發表於 2024-1-17 22:27 | 只看該作者

回復 2# Andy2483

對，就是因為這些運算才導致效率變差

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

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

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

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

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: 5 Rank: 5

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

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

藍天麗池