標題: 為何不能刪除多個工作表(只刪到最後1個) [打印本頁]

---

作者: 千暉尋    時間: 2019-10-30 13:08     標題: 為何不能刪除多個工作表(只刪到最後1個)

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

---

作者: luhpro    時間: 2019-11-16 08:08

回復 1# 千暉尋

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

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

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

---

作者: 准提部林    時間: 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


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

---

作者: 千暉尋    時間: 2019-11-18 22:46

回復 2# luhpro 謝謝大大的幫忙,我後來再試,也能刪去,只是不知道為何前後會有差異發生(也許有某些操作影響,但跡象不明,因功力薄弱,無法查知及取得)

---

作者: 千暉尋    時間: 2019-11-18 22:50

回復 3# 准提部林 每次發問都能學到簡潔有力的語法,感謝准大出手幫忙.

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)