GBKEE

¦^´_ 1# z71078170

¤U¸ü (79.35 KB)

2015-11-27 08:35

¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Private Sub Workbook_NewSheet(ByVal Sh As Object)
   
3.     Application.DisplayAlerts = False
   
4.     Sh.Delete
   
5.     Application.DisplayAlerts = True
   
6. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 3# c_c_lai
·|ªº ,¦ý­n°õ¦æ5000 ¦h¦¸«á.

1. Option Explicit
   
2. Private Sub Workbook_NewSheet(ByVal Sh As Object)
   
3.     Application.DisplayAlerts = False
   
4.     Debug.Print Sh.Name
   
5.     Sh.Delete
   
6.     Application.DisplayAlerts = True
   
7. End Sub
   
8. Sub Ex()
   
9.     Dim I As Long
   
10.     On Error Resume Next
    
11.     Do
    
12.         Debug.Print I
    
13.         I = I + 1
    
14.         DoEvents
    
15.         Sheets.Add Sheets(1)
    
16.     Loop
    
17. End Sub

½Æ»s¥N½X