VBA 清除、還原請教 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » VBA 清除、還原請教

返回列表下一主題上一主題發帖

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

星空乂羽翼

中學生 Rank: 2

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

2023年全勤獎章

11^# 跳轉到 »

發表於 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%

不好意思，麻煩前輩了

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1478
主題: 40
精華: 0
積分: 1502
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2025-10-23

12^#

發表於 2023-6-8 09:39 | 只看該作者

回復 11# 星空乂羽翼

謝謝前輩繼續一起學習

1.Rear

2.90%
N2 < (N1 * 0.9)

PS:
N1 /100 = N1 的 1% = N1 * 0.01
N1 的 90%= N1 * 0.9

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

星空乂羽翼

中學生 Rank: 2

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

2023年全勤獎章

13^#

發表於 2023-6-9 16:02 | 只看該作者

回復 12# Andy2483

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

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

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

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2843
主題: 10
精華: 0
積分: 2899
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-10-18

14^#

發表於 2023-6-10 10:07 | 只看該作者

可以清除資料的只有特定人吧!
1) 清除時設一至二道INPUTBOX, 輸入指定數字才可執行清除
2) 不要設清除按鈕, 利用一個儲存格, 輸入特定數字來執行清除

星空乂羽翼

中學生 Rank: 2

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

2023年全勤獎章

15^#

發表於 2023-6-10 21:22 | 只看該作者

回復 14# 准提部林

謝謝版主大大的建議
的確這也是個方式

不過這個表格實際上只有一個人在使用喔
所以不太有被其他人清除的情況

感謝版主大大想法的分享！

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2843
主題: 10
精華: 0
積分: 2899
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2025-10-18

16^#

發表於 2023-6-11 11:30 | 只看該作者

回復 15# 星空乂羽翼

設個備份區或備份表, 清除時將資料丟進去,
免得清除後又儲存關檔, 重開時資料全沒了

星空乂羽翼

中學生 Rank: 2

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

2023年全勤獎章

17^#

發表於 2023-6-11 12:58 | 只看該作者

回復 16# 准提部林

謝謝版大的想法建議
一開始的確有這樣的想法
礙於功力不夠，不知道如何實現
還需麻煩版大指導指導！謝謝！

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1478
主題: 40
精華: 0
積分: 1502
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2025-10-23

18^#

發表於 2023-6-12 07:24 | 只看該作者

回復 13# 星空乂羽翼

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

帖子: 1478
主題: 40
精華: 0
積分: 1502
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 100
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2025-10-23

19^#

發表於 2023-6-12 07:25 | 只看該作者

本帖最後由 Andy2483 於 2023-6-12 07:27 編輯

回復 16# 准提部林

設個備份區或備份表, 清除時將資料丟進去,
免得清除後又儲存關檔, 重開時資料全沒 ...
准提部林發表於 2023-6-11 11:30

[/quote]

請前輩指導

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

星空乂羽翼

中學生 Rank: 2

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

2023年全勤獎章

20^#

發表於 2023-6-12 10:30 | 只看該作者

回復 18# Andy2483

謝謝前輩耐心指導！

靜思自在 : 道德是提昇自我的明燈，不該是呵斥別人的鞭子。

返回列表下一主題上一主題