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

為何不能刪除多個工作表(只刪到最後1個)

千暉尋

中學生 Rank: 2

帖子: 36
主題: 7
精華: 0
積分: 77
點名: 0
作業系統: WIN7
軟體版本: MICROSOFT
閱讀權限: 20
註冊時間: 2015-6-7
最後登錄: 2024-4-17

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2019-10-30 13:08 | 只看該作者

為何不能刪除多個工作表(只刪到最後1個)

想要刪除工作表名前2碼為11(即11月份的工作表,如11.5 11.6 11.7),為何總是只刪到最後一個工作表

為何不能一次刪除多個工作表.rar (52.96 KB)

樓主熱帖

luhpro

高中生 Rank: 3 Rank: 3

帖子: 824
主題: 6
精華: 0
積分: 904
點名: 0
作業系統: Win 10,7
軟體版本: 2019,2013,2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-3
最後登錄: 2023-12-24

2^#

發表於 2019-11-16 08:08 | 只看該作者

回復 1# 千暉尋

我用 Excel 2013 單步模式追蹤及執行都沒發現你說的情形喔,

你要不要敘述的更詳細一點,

或是中間有其它指令行存在你沒秀出來?

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

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

3^#

發表於 2019-11-16 12:17 | 只看該作者

Private Sub CommandButton1_Click()
Dim MM%, SC%, i%, SN$
MM = Month(Date + 10)
SC = Sheets.Count
Application.DisplayAlerts = False
For i = SC To 1 Step -1
SN = Sheets(i).Name
If Val(Split(SN, ".")(0)) = MM And SN <> Me.Name Then Sheets(i).Delete
Next
Application.DisplayAlerts = True
End Sub

=======================

TOP

千暉尋