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

　暱稱: 厚臉皮的學生

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

26^# 跳轉到 »

發表於 2024-1-18 21:51 | 只看該作者

回復 25# 藍天麗池

有規劃好了,明天再繼續實現看看
還有一點想請教A2到E2可以不要寫入,只寫入在最後列嗎？
因為每次寫入儲存格都會需要時間

我想設計用VBA的陣列記錄10列再寫入A-E欄的後方,適合嗎？

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

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

25^#

發表於 2024-1-18 21:35 | 只看該作者

回復 24# Andy2483

所以Andy有甚麼想法了嗎?

　暱稱: 厚臉皮的學生

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

24^#

發表於 2024-1-18 15:39 | 只看該作者

本帖最後由 Andy2483 於 2024-1-18 16:22 編輯

回復 23# 藍天麗池

所以D2的值用 =k10+L10 計算?
這樣就單純多了

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

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

23^#

發表於 2024-1-18 15:33 | 只看該作者

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

回復 22# Andy2483
J23到m27的值不用管，那個只是我為了測試不同變動速度，程式是否能執行的更有效率用的，d2的值我常會用不同的變動速度去取代，用來觀察效率，一般d2的值是k10+L10

　暱稱: 厚臉皮的學生

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

22^#

發表於 2024-1-18 15:02 | 只看該作者

回復 21# 藍天麗池

[J23]值是 2 是固定的嗎? 還是變動的?
[J23:J27] [M23:M27] 值都被引用,但是都沒有被程式變動其值,所以是固定值嗎?

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

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

21^#

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

回復 20# Andy2483

應該是誤刪，不好意思

　暱稱: 厚臉皮的學生

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

20^#

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

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

回復 18# 藍天麗池

就因為有計算過才記錄,所以要問清楚,前輩上傳的範例沒有執行計算黃色區域部分,現在知道了
我試試看想法能不能實現

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

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

19^#

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

回復 17# Andy2483

對

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

18^#

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

回復 15# Andy2483

我原本的程式運作就是當黃色上半部有變動，將上半部複製到下半部，然後求出i跟n那邊的值，然後同時連動到b2跟c2然後一直向下紀錄

　暱稱: 厚臉皮的學生

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

17^#

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

回復 16# 藍天麗池

所以是這樣嗎?
Option Explicit
Private Sub Worksheet_Calculate()
Call Price
Call RecordPrice
End Sub

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