請教 for Each ..... Next 用法

本帖最後由 JOSH 於 2012-11-27 15:40 編輯

Dear 各位大大
請問下列VBA要怎麼讓他停止在最後一個Sheet，不會出現錯誤訊息!!
刪到最後一個sheet會出現視窗『最後一個工作表』
謝謝指教

'======================================
Sub Macro1()
Dim mysheet As Worksheet

For Each mysheet In Worksheets

Application.DisplayAlerts = False
mysheet.Delete
Application.DisplayAlerts = True

Next

End Sub

樓主熱帖

die78325

　暱稱: 新鮮貨幽杉

中學生 Rank: 2

帖子: 94
主題: 10
精華: 0
積分: 114
點名: 0
作業系統: win 7
軟體版本: office 2010
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2012-10-17
最後登錄: 2014-1-3

2^#

發表於 2012-11-27 16:10 | 只看該作者

有問題再發問吧!@@

Sub Macro1()
[color=Red]On Error GoTo restart[/color]
Dim mysheet As Worksheet
For Each mysheet In Worksheets
Application.DisplayAlerts = False
mysheet.Delete
Application.DisplayAlerts = True
Next
[color=Red]restart:[/color]
End Sub

複製代碼

TOP

JOSH

小學生 Rank: 1

帖子: 12
主題: 3
精華: 0
積分: 20
點名: 0
作業系統: Windows
軟體版本: office 2003
閱讀權限: 10
性別: 男
註冊時間: 2010-6-30
最後登錄: 2013-6-4

3^#

發表於 2012-11-27 16:21 | 只看該作者

回復 2# die78325

大大~ 語法錯誤耶

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2012-11-27 16:22 | 只看該作者

本帖最後由 GBKEE 於 2012-11-27 16:33 編輯

回復 3# JOSH
['color=red]....['/color] 這是回覆你的文中將字體加上顏色的網頁程式碼不是vba程式碼
但使用代碼格式所以無法在字體加上顏色

回復 1# JOSH

活頁簿中至少要有一個工作表