返回列表 上一主題 發帖

[發問] 正確執行程式碼的問題

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2019-9-13 16:21 | 只看該作者

[發問] 正確執行程式碼的問題

不好意思，對VBA語法完全是門外漢，
誠請各位大大指教和幫忙。謝謝!

我的問題︰
1_主檔的列7~列14的程式碼應該如何再增修?
以利能正確執行列16~列82的With Sheets(1) (即前3大)和With Sheets(2) (即前3小)程式碼。

2_主檔列7~列14增修後的程式碼，煩請稍加文字註解。

測試附件檔案︰ 測試附件檔案.rar (129.59 KB)
收藏 分享

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
2#
發表於 2019-9-13 21:58 | 只看該作者
回復 1# ziv976688
1樓的測試附件檔案不周全~
更新測試附件檔案︰
測試附件檔案(V1).rar (168.85 KB)
PS︰
無Ans=目前跑出的檔案
有Ans=正確答案的需求檔案

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
3#
發表於 2019-9-14 16:09 | 只看該作者
本帖最後由 ziv976688 於 2019-9-14 16:23 編輯

補充說明 :
目前的困擾是在~
1_跑出的答案只會落在被測試檔案當下開啟時的工作表，也就是當檔案開啟時，是Sheet1，當下的答案，就落在該Sheet1；如果當檔案開啟時，是Sheet2，當下的答案，就落在該Sheet2。
2_答案都是跑出"前3小"的公式值。
3_因為各檔案的工作表.Name，都不相同，所以我只能以Sheet1和Sheet2來區分~但顯然是無效^^"

本題需求~
只要能讓列16~列82的程式碼能正確順暢的跑出值即可，
請不要更改各儲存格輸入公式的語法，
因為當表格的格式改變時，太高階的語法，不才的我恐無法轉化套用^^"

以上  請各位大大指教!謝謝!

TOP

准提部林

帖子
2843 
主題
10 
精華
0 
積分
2899 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-10-18 
4#
發表於 2019-9-15 11:54 | 只看該作者
使用自訂函數, 能用則用:
測試附件檔案_1.rar (176.67 KB)

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
5#
發表於 2019-9-15 14:06 | 只看該作者
回復 4# 准提部林
准提版主:您好!
感謝賜教^^
不才慢慢研究~感恩.....

TOP

        靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。
返回列表 上一主題