[發問] VBA 清除、還原請教

帖子: 63
主題: 7
精華: 0
積分: 90
點名: 57
作業系統: windows 7
軟體版本: 2013
閱讀權限: 20
性別: 男
註冊時間: 2022-9-23
最後登錄: 2024-4-3

2023年全勤獎章

2^#

發表於 2023-6-7 08:18 | 顯示全部帖子

回復 2# Andy2483

謝謝前輩回復
這的確是個好方法

但我主要是想要避免如果誤觸清除按鈕時的情況
所以才問看看能不能還原資料

帖子: 63
主題: 7
精華: 0
積分: 90
點名: 57
作業系統: windows 7
軟體版本: 2013
閱讀權限: 20
性別: 男
註冊時間: 2022-9-23
最後登錄: 2024-4-3

2023年全勤獎章

3^#

發表於 2023-6-7 13:34 | 顯示全部帖子

回復 4# Andy2483
謝謝前輩回復
測試過後
還原按鈕只有偶爾成功過
請問前輩能幫忙除錯嗎?

帖子: 63
主題: 7
精華: 0
積分: 90
點名: 57
作業系統: windows 7
軟體版本: 2013
閱讀權限: 20
性別: 男
註冊時間: 2022-9-23
最後登錄: 2024-4-3

2023年全勤獎章

4^#

發表於 2023-6-7 14:11 | 顯示全部帖子

回復 6# Andy2483
謝謝前輩回復
我測試的確是先清除後按還原
但只有成功還原一兩次
再麻煩前輩除錯，感謝

以下為測試檔

日程表 20230530_V01 問題 - 無法還原.zip (29.02 KB)

帖子: 63
主題: 7
精華: 0
積分: 90
點名: 57
作業系統: windows 7
軟體版本: 2013
閱讀權限: 20
性別: 男
註冊時間: 2022-9-23
最後登錄: 2024-4-3

2023年全勤獎章

5^#

發表於 2023-6-7 15:13 | 顯示全部帖子

回復 8# Andy2483

疑，我有指定過押@@
不好意思，這麼簡單的問題還浪費前輩您的寶貴時間。

帖子: 63
主題: 7
精華: 0
積分: 90
點名: 57
作業系統: windows 7
軟體版本: 2013
閱讀權限: 20
性別: 男
註冊時間: 2022-9-23
最後登錄: 2024-4-3

2023年全勤獎章

6^#

發表於 2023-6-8 08:57 | 顯示全部帖子

回復 10# Andy2483
感謝前輩的解說

想再請教一下
On Error GoTo Rear
'↑令程序遇到錯誤時就跳到標示 Rear位置繼續執行

上面這段的Rear位置是什麼意思呢?

If N2 < (N1 \ 100) Then GoTo Rear
'↑如果非空格儲存格少於1%? 是就跳到標示 Rear位置繼續執行
'↑臆測清除III只會在月底或每月第1天才執行,
'所以資料太少不能清除

上面這段前輩您猜的沒錯，只有在月底或每月第1天進行清除
想請教一下
如果%數想改高要怎麼改呢?
例如1%→90%

不好意思，麻煩前輩了

帖子: 63
主題: 7
精華: 0
積分: 90
點名: 57
作業系統: windows 7
軟體版本: 2013
閱讀權限: 20
性別: 男
註冊時間: 2022-9-23
最後登錄: 2024-4-3

2023年全勤獎章

7^#

發表於 2023-6-9 16:02 | 顯示全部帖子

回復 12# Andy2483

感謝前輩的耐心教學及回復

想再請教
CLearr = xR: xR.ClearContents
'↑如果程序有跑到這裡就令 CLearr變數是二維陣列,以xR儲存格值帶入,
'↑令xR儲存格值清除

這一段後學看不太懂，不懂這一段的意思@@
再麻煩前輩解說，謝謝！