12
返回列表 上一主題 發帖

[發問] 將開啟後檔案的指定內容依序複製貼上。

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
11# 跳轉到 »
發表於 2021-8-24 09:37 | 只看該作者
回復 10# samwang
Sorry~原來是我在貼8#的程式碼時，就疏忽遺漏了

所有需要人工操作的部分~都以程式碼完成替代並測試成功
萬分感激您的耐心指導和熱心幫忙~受惠良多~感恩

TOP

ziv976688

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

回復 10# samwang
請修正程式碼
TEST_0831.rar (228.8 KB)
不好意思~將http://forum.twbts.com/viewthrea ... a=pageD1&page=2 10樓修正後的程式碼，
貼上本題主檔的程式碼列55套用，會在列62  For j = 2 To 8: n = n + 1: Brr(n) = Arr(i, j): Next 中斷(陣列索引超出範圍)。
不知要如何修正?才能讓Sheet1!C : K產生正確答案。
以上 懇請賜正。謝謝您

TOP

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2024-10-30 
13#
發表於 2021-8-31 10:36 | 只看該作者
回復 12# ziv976688


貼上本題主檔的程式碼列55套用，會在列62  For j = 2 To 8: n = n + 1: Brr(n) = Arr(i, j): Next 中斷(陣列索引超出範圍)。

>> 因為 n 前面程式碼已有使用過且有數值，所以將n改m 即可，For j = 2 To 8: m = m + 1: Brr(m) = Arr(i, j): Next ,謝謝  

TOP

ziv976688

帖子
678 
主題
147 
精華
0 
積分
799 
點名
0  
作業系統
win 8 
軟體版本
MS 2003 
閱讀權限
50 
性別
男 
註冊時間
2016-2-9 
最後登錄
2022-1-20 
14#
發表於 2021-8-31 11:25 | 只看該作者
回復 13# samwang
samwang大大 :
OK了!
謝謝您不厭其煩的指導和幫忙~感恩

TOP

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
12
返回列表 上一主題