Hsieh

¦^´_ 1# iceandy6150


Private Sub CommandButton1_Click()
If TextBox1 <> "" Then
For i = 1 To Val(TextBox1)
   With Sheets.Add(after:=Sheets(Sheets.Count))
   .Name = CStr(Sheets.Count)
   End With
Next
End If
End Sub

Hsieh

¦^´_ 3# iceandy6150

1. Private Sub CommandButton1_Click()
   
2. Application.ScreenUpdating = False
   
3. If TextBox1 <> "" Then
   
4. For i = 1 To Val(TextBox1) - Sheets.Count
   
5.    Sheets(1).Copy after:=Sheets(Sheets.Count)
   
6.    ActiveSheet.Name = CStr(Sheets.Count)
   
7. Next
   
8. End If
   
9. Application.ScreenUpdating = True
   
10. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 10# hugh0620
¨ú·s¼W³Ì¤j½s¸¹

1. Private Sub CommandButton1_Click()
   
2. Application.ScreenUpdating = False
   
3. For Each sh In Sheets
   
4.    If IsNumeric(sh.Name) Then s = CInt(sh.Name)
   
5. Next
   
6. k = Val(Sheets(1).TextBox1)
   
7. If k > s Then
   
8. For i = 1 To k - s
   
9.   Sheets(1).Copy after:=Sheets(Sheets.Count)
   
10.   ActiveSheet.Name = CStr(s + i)
    
11. Next
    
12. End If
    
13. Application.ScreenUpdating = True
    
14. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 15# iceandy6150
±N¾P°â²Ó¥Ø¥H¸ê®Æ®w«¬ºAÀx¦s¤~¬O¥¿¹D
­Y§A¤@©w­n±N¨C±i¾P°â³æ°µ¦¨¤@­Ó¤u§@ªí¡A¦b²Î­p¤W·|«Ü³Â·Ð
·íµM§Aªº¤èªk¥h§ä¨C±i¤u§@ªíµM«á§ä¨ì«~¦W»P¼Æ¶q«á¥h²Î­p·íµM¤]¦æ¡A¤£¹L³o¼Ë¤£¬O®ö¶O«Ü¦hªÅ¶¡»P®É¶¡¶Ü?
¦Ü©ó§A»¡ªº¤u§@ªí¦WºÙ¬O¼Æ¦r®É­n¦p¦ó«ü©w
´N¬O±N¼Æ¦rÂন¦r¦ê
¨Ò¦p
for i=1 to 5
sheets(cstr(i)).select
next