123
返回列表 上一主題 發帖

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

星空乂羽翼

帖子
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%

不好意思，麻煩前輩了

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1447 
主題
40 
精華
0 
積分
1471 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2025-3-24 
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
用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

TOP

星空乂羽翼

帖子
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儲存格值清除

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

TOP

准提部林

帖子
2839 
主題
10 
精華
0 
積分
2895 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-2-15 
14#
發表於 2023-6-10 10:07 | 只看該作者
可以清除資料的只有特定人吧!
1) 清除時設一至二道INPUTBOX, 輸入指定數字才可執行清除
2) 不要設清除按鈕, 利用一個儲存格, 輸入特定數字來執行清除

TOP

星空乂羽翼

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

2023年全勤獎章
15#
發表於 2023-6-10 21:22 | 只看該作者
回復 14# 准提部林

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

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

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

TOP

准提部林

帖子
2839 
主題
10 
精華
0 
積分
2895 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-2-15 
16#
發表於 2023-6-11 11:30 | 只看該作者
回復 15# 星空乂羽翼


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

TOP

星空乂羽翼

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

2023年全勤獎章
17#
發表於 2023-6-11 12:58 | 只看該作者
回復 16# 准提部林

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

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1447 
主題
40 
精華
0 
積分
1471 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2025-3-24 
18#
發表於 2023-6-12 07:24 | 只看該作者
回復 13# 星空乂羽翼


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

TOP

Andy2483
　暱稱: 厚臉皮的學生

大學生Rank: 4

帖子
1447 
主題
40 
精華
0 
積分
1471 
點名
0  
作業系統
Windows 7 
軟體版本
Excel 2010 & 2016 
閱讀權限
50 
性別
男 
來自
台灣 
註冊時間
2020-7-15 
最後登錄
2025-3-24 
19#
發表於 2023-6-12 07:25 | 只看該作者
本帖最後由 Andy2483 於 2023-6-12 07:27 編輯

回復 16# 准提部林

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



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

TOP

星空乂羽翼

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

2023年全勤獎章
20#
發表於 2023-6-12 10:30 | 只看該作者
回復 18# Andy2483

謝謝前輩耐心指導！

TOP

        靜思自在 : 口說好話、心想好意、身行好事。
123
返回列表 上一主題