GBKEE

回復 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

複製代碼