返回列表 上一主題 發帖

vba 此處需要物件 (錯誤 424)

koo

帖子
60 
主題
4 
精華
0 
積分
64 
點名
0  
作業系統
w7-32 
軟體版本
2013.2003 
閱讀權限
20 
註冊時間
2014-11-23 
最後登錄
2016-6-6 
1# 跳轉到 »
發表於 2015-8-7 21:51 | 顯示全部帖子
本帖最後由 koo 於 2015-8-7 21:53 編輯

功力不夠只能寫到此雖然可以刪除但總覺得哪裡有問題
  1. Sub 巨集4()
  2. On Error Resume Next
  3. Data = Array("工作表2", "工作表3", "工作表4")
  4. For i = 1 To Sheets.Count
  5.     For J = LBound(Data) To UBound(Data)
  6.         If Sheets(i).Name = Data(J) Then
  7.             Application.DisplayAlerts = False
  8.             Sheets(i).Delete
  9.             Application.DisplayAlerts = True
  10.         End If
  11.     Next
  12. Next
  13. End Sub
複製代碼

TOP

koo

帖子
60 
主題
4 
精華
0 
積分
64 
點名
0  
作業系統
w7-32 
軟體版本
2013.2003 
閱讀權限
20 
註冊時間
2014-11-23 
最後登錄
2016-6-6 
2#
發表於 2015-8-7 21:58 | 顯示全部帖子
倒著跑
  1. Sub 巨集4()
  2. On Error Resume Next
  3. Data = Array("工作表2", "工作表3", "工作表4")
  4. For i = Sheets.Count To 1 Step -1
  5.     For J = LBound(Data) To UBound(Data)
  6.         If Sheets(i).Name = Data(J) Then
  7.             Application.DisplayAlerts = False
  8.             Sheets(i).Delete
  9.             Application.DisplayAlerts = True
  10.         End If
  11.     Next
  12. Next
  13. End Sub
複製代碼

TOP

        靜思自在 : 是非當教育，讚美作警惕。
返回列表 上一主題