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

帖子: 51
主題: 9
精華: 0
積分: 73
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
註冊時間: 2015-7-28
最後登錄: 2015-12-17

2^#

發表於 2015-8-10 08:43 | 顯示全部帖子

回復 2# mark15jill

您好
這好像是針對刪除單一工作表

帖子: 51
主題: 9
精華: 0
積分: 73
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
註冊時間: 2015-7-28
最後登錄: 2015-12-17

3^#

發表於 2015-8-10 08:55 | 顯示全部帖子

回復 4# koo

For i = Sheets.Count To 1 Step -1  '請問此行是否將工作表最大值-1
For J = LBound(data) To UBound(data) '此行是否將所設的陣列變數帶入找出最大到最小
      If Sheets(i).Name = data(J) Then '再比對工作表與陣列變數
         Application.DisplayAlerts = False '若一樣則關閉警告視窗
         Sheets(i).Delete'並刪除
         Application.DisplayAlerts = True '再將警告視窗打開

請問我這樣理解對嗎

帖子: 51
主題: 9
精華: 0
積分: 73
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
註冊時間: 2015-7-28
最後登錄: 2015-12-17

4^#

發表於 2015-8-10 09:03 | 顯示全部帖子

回復 5# c_c_lai

不好意思
小妹新手上路
對於邏輯不是那麼能以理解

aList$ '請問這是宣告要放字串的地方嗎
aList = Join(Data, ",")'好像是透過自我定義的陣列變數中傳回多個字串
For ts = Sheets.Count To 1 Step -1 '將工作表的最大值-1
      If InStr(aList, Sheets(ts).Name) Then '當陣列變數中的字串等於工作表的名稱時
         Sheets(ts).Delete                '  刪除該工作表
      End If
Next
Application.DisplayAlerts = True'for迴圈跑完即把警告視窗打開

請問我這樣的解釋對嗎

帖子: 51
主題: 9
精華: 0
積分: 73
點名: 0
作業系統: XP
軟體版本: Office 2003
閱讀權限: 20
註冊時間: 2015-7-28
最後登錄: 2015-12-17

5^#

發表於 2015-8-10 16:33 | 顯示全部帖子

回復 9# c_c_lai

清楚且明瞭

十分感恩c大