12345678
返回列表 上一主題 發帖

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

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
26# 跳轉到 »
發表於 2024-1-18 21:51 | 只看該作者
回復 25# 藍天麗池


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

我想設計用VBA的陣列記錄10列再寫入A-E欄的後方,適合嗎？
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

藍天麗池

帖子
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有甚麼想法了嗎?

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
24#
發表於 2024-1-18 15:39 | 只看該作者
本帖最後由 Andy2483 於 2024-1-18 16:22 編輯

回復 23# 藍天麗池


所以D2的值用 =k10+L10 計算?
這樣就單純多了
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

藍天麗池

帖子
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

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
22#
發表於 2024-1-18 15:02 | 只看該作者
回復 21# 藍天麗池


[J23]值是 2 是固定的嗎? 還是變動的?
[J23:J27] [M23:M27] 值都被引用,但是都沒有被程式變動其值,所以是固定值嗎?
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

藍天麗池

帖子
365 
主題
40 
精華
0 
積分
406 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-8-24 
21#
發表於 2024-1-18 14:43 | 只看該作者
回復 20# Andy2483

應該是誤刪，不好意思

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
20#
發表於 2024-1-18 14:42 | 只看該作者
本帖最後由 Andy2483 於 2024-1-18 14:43 編輯

回復 18# 藍天麗池


    就因為有計算過才記錄,所以要問清楚,前輩上傳的範例沒有執行計算黃色區域部分,現在知道了
我試試看想法能不能實現
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

藍天麗池

帖子
365 
主題
40 
精華
0 
積分
406 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-8-24 
19#
發表於 2024-1-18 14:40 | 只看該作者
回復 17# Andy2483

對

TOP

藍天麗池

帖子
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然後一直向下紀錄

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1446 
主題
40 
精華
0 
積分
1470 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2024-10-21 
17#
發表於 2024-1-18 14:38 | 只看該作者
回復 16# 藍天麗池


    所以是這樣嗎?
Option Explicit
Private Sub Worksheet_Calculate()
Call Price
Call RecordPrice
End Sub
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

        靜思自在 : 生氣，就是拿別人的過錯來懲罰自己。
12345678
返回列表 上一主題