返回列表 上一主題 發帖

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

千暉尋

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

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2019-10-30 13:08 | 只看該作者

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

想要刪除工作表名前2碼為11(即11月份的工作表,如11.5 11.6 11.7),為何總是只刪到最後一個工作表 為何不能一次刪除多個工作表.rar (52.96 KB)
收藏 分享

千暉尋

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

論壇榮譽勳章論壇贊助勳章
5#
發表於 2019-11-18 22:50 | 只看該作者
回復 3# 准提部林 每次發問都能學到簡潔有力的語法,感謝准大出手幫忙.

TOP

千暉尋

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

論壇榮譽勳章論壇贊助勳章
4#
發表於 2019-11-18 22:46 | 只看該作者
回復 2# luhpro 謝謝大大的幫忙,我後來再試,也能刪去,只是不知道為何前後會有差異發生(也許有某些操作影響,但跡象不明,因功力薄弱,無法查知及取得)

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-22 
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

luhpro

帖子
835 
主題
6 
精華
0 
積分
915 
點名
16  
作業系統
Win 10,7 
軟體版本
2019,2013,2003 
閱讀權限
50 
性別
男 
註冊時間
2010-5-3 
最後登錄
2024-11-14 
2#
發表於 2019-11-16 08:08 | 只看該作者
回復 1# 千暉尋

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

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

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

TOP

        靜思自在 : 為人處世要小心細心，但不要「小心眼」。
返回列表 上一主題