½Ð±Ð for Each ..... Next ¥Îªk

JOSH

Dear ¦U¦ì¤j¤j
½Ð°Ý¤U¦CVBA­n«ç»òÅý¥L°±¤î¦b³Ì«á¤@­ÓSheet¡A¤£·|¥X²{¿ù»~°T®§!!
§R¨ì³Ì«á¤@­Ósheet·|¥X²{µøµ¡¡y³Ì«á¤@­Ó¤u§@ªí¡z
ÁÂÁ«ü±Ð


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

For Each mysheet In Worksheets

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

Next

End Sub

JOSH

¦^´_ 4# GBKEE


    ª©¤j~~
ÁÂÁ§Aªº«ü¾É
¨ü¯q¨}¦h
ÁÂÁÂ

JOSH

¦^´_ 5# die78325


    ¤F¸Ñ~~
ÁÂÁÂÅo

die78325

¦^´_ 3# JOSH


    COLO   ³o¨Ç¨Æºô­¶¤£¤p¤ß¥X²{ªº §R±¼§Y¥i@@"
GB¤j¤j¤w¦^´_±z³Ì¦nªºµª®×@@

GBKEE

¦^´_ 3# JOSH
['color=red]....['/color]  ³o¬O¦^ÂЧAªº¤å¤¤±N¦rÅé¥[¤WÃC¦âªººô­¶µ{¦¡½X¤£¬Ovbaµ{¦¡½X
¦ý¨Ï¥Î¥N½X®æ¦¡ ©Ò¥HµLªk¦b¦rÅé¥[¤WÃC¦â

¦^´_ 1# JOSH

¬¡­¶Ã¯¤¤¦Ü¤Ö­n¦³¤@­Ó¤u§@ªí

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

½Æ»s¥N½X

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

½Æ»s¥N½X

JOSH

¦^´_ 2# die78325


    ¤j¤j~ »yªk¿ù»~­C

¤U¸ü (22.4 KB)

2012-11-27 16:21

die78325

¦³°ÝÃD¦Aµo°Ý§a!@@

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

½Æ»s¥N½X