返回列表 上一主題 發帖

詢求更好的程式

bobomi

帖子
181 
主題
5 
精華
0 
積分
197 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
20 
性別
女 
註冊時間
2014-3-9 
最後登錄
2024-4-29 
1# 跳轉到 »
發表於 2015-6-2 11:40 | 顯示全部帖子
圖面資料修改程式.zip (212.83 KB)

TOP

bobomi

帖子
181 
主題
5 
精華
0 
積分
197 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
20 
性別
女 
註冊時間
2014-3-9 
最後登錄
2024-4-29 
2#
發表於 2015-6-2 12:19 | 顯示全部帖子
你應該說明你輸入的步驟

例如

在 Sheets(查詢) 的 B2, B3 輸入什麼 -> 按下按鈕新增版次紀錄 -> 哪個 Sheets 哪個 Range 出現了錯誤


　

TOP

bobomi

帖子
181 
主題
5 
精華
0 
積分
197 
點名
0  
作業系統
XP 
軟體版本
2000 
閱讀權限
20 
性別
女 
註冊時間
2014-3-9 
最後登錄
2024-4-29 
3#
發表於 2015-6-2 13:56 | 顯示全部帖子
本帖最後由 bobomi 於 2015-6-2 14:01 編輯

在 Sheets("最新版次") 裡面

先用搜尋找到  For Each mrn2 In Range("a3:a" & LR2)

這個 LR2 你必須在增加 n筆 , 因為你沒有增加 n筆  所以導致資料沒寫入
為何要增加 n筆 ?
因為上面那個 For Each MRN In Sheet14.Range("A3:a" & LR) ... 這個迴圈動作會導致有新的 n筆 資料產生

所以 LR2 要重新計算1次

LR2 = Sheet12.[a65536].End(3).Row  ' ----> 你漏掉要重算1次
If LR2 = 1 Then LR2 = 2
For Each mrn2 In Range("a3:a" & LR2)

TOP

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