標題: 請教 for Each ..... Next 用法 [打印本頁]

---

作者: JOSH    時間: 2012-11-27 15:37     標題: 請教 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    時間: 2012-11-27 16:10

有問題再發問吧!@@

1. Sub Macro1()
   
2. [color=Red]On Error GoTo restart[/color]
   
3. Dim mysheet As Worksheet
   
4. 
   
5. For Each mysheet In Worksheets
   
6. 
   
7. Application.DisplayAlerts = False
   
8. mysheet.Delete
   
9. Application.DisplayAlerts = True
   
10. 
    
11. Next
    
12. [color=Red]restart:[/color]
    
13. End Sub

複製代碼

---

作者: JOSH    時間: 2012-11-27 16:21

回復 2# die78325


    大大~ 語法錯誤耶
[attach]13302[/attach]

---

作者: GBKEE    時間: 2012-11-27 16:22

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

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

回復 1# JOSH

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

1. Sub Ex()
   
2.     Dim sh As Worksheet
   
3.     Application.DisplayAlerts = False
   
4.     For Each sh In Sheets
   
5.        If Sheets.Count > 1 Then sh.Delete
   
6.     Next
   
7.     Application.DisplayAlerts = True
   
8. End Sub

複製代碼

1. Sub Ex()
   
2.     Application.DisplayAlerts = False
   
3.     Do While Sheets.Count > 1
   
4.         ActiveSheet.Delete
   
5.     Loop
   
6.     Application.DisplayAlerts = True
   
7. End Sub

複製代碼

---

作者: die78325    時間: 2012-11-27 16:28

回復 3# JOSH


    COLO   這些事網頁不小心出現的 刪掉即可@@"
GB大大已回復您最好的答案@@

---

作者: JOSH    時間: 2012-11-27 19:37

回復 5# die78325


    了解~~
謝謝囉

---

作者: JOSH    時間: 2012-11-27 19:38

回復 4# GBKEE


    版大~~
謝謝你的指導
受益良多
謝謝

---

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