VBA 清除、還原請教 - Excel程式區

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

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

1^# 跳轉到 »

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

回復 1# 星空乂羽翼

謝謝前輩發表此主題與範例檔
後學建議
1.在清除前先複製一個相同的工作表,命名為"備份表"
2.隱藏此備份表
3.在還原時刪除現表,顯示備份表,更名為原現表名

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

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

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

2^#

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

回復 3# 星空乂羽翼

謝謝前輩回復
後學建議如下,請前輩參考

Option Explicit
Public CLearr, xR As Range
Sub 清除III()
Dim N1%, N2%
Set xR = [訂餐日程表!C6:AG38]
N1 = xR.Count
On Error GoTo Rear
N2 = xR.SpecialCells(2).Count
If N2 < (N1 \ 100) Then GoTo Rear
CLearr = xR: xR.ClearContents
Rear: End Sub
Sub 還原III()
If Not xR Is Nothing Then xR = CLearr
End Sub

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

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

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

3^#

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

回復 5# 星空乂羽翼

1.還原III 只執行清除III 的還原
2.其他動作的還原需使用Excel 復原功能
3.請上傳範例

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

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

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

4^#

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

回復 7# 星空乂羽翼

指定巨集需設為還原III

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

TOP

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

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

5^#

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

回復 9# 星空乂羽翼

謝謝前輩回復

Option Explicit
Public CLearr, xR As Range
'↑宣告全域變數
'↑因為(CLearr,xR)設為全域變數又變數沒有被釋放掉,
'所以用此方式還原,純屬亂拼湊的,非專業方法,拋磚引玉請各位前輩指教
Sub 清除III()
Dim N1%, N2%
'↑宣告變數
Set xR = [訂餐日程表!C6:AG38]
'↑令xR變數是 [訂餐日程表!C6:AG38]儲存格
N1 = xR.Count
'↑令N1變數是儲存格數量
On Error GoTo Rear
'↑令程序遇到錯誤時就跳到標示 Rear位置繼續執行
N2 = xR.SpecialCells(2).Count
'↑令N2變數是 xR變數非空格的數量 (如果沒有非空格會出錯)
'↑防止重複按清除III
If N2 < (N1 \ 100) Then GoTo Rear
'↑如果非空格儲存格少於1%? 是就跳到標示 Rear位置繼續執行
'↑臆測清除III只會在月底或每月第1天才執行,
'所以資料太少不能清除
CLearr = xR: xR.ClearContents
'↑如果程序有跑到這裡就令 CLearr變數是二維陣列,以xR儲存格值帶入,
'↑令xR儲存格值清除
Rear: End Sub

Sub 還原III()
If Not xR Is Nothing Then xR = CLearr
'↑如果xR變數有物件? 是就令xR儲存格寫入 CLearr陣列值
'因為還沒有執行清除III 之前xR Is Nothing
End Sub

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

TOP

Andy2483