iceandy6150

¦^´_ 7# GBKEE


    ¤j¤j½Ð°Ý¤@¤U
§Aªºµ{¦¡­n«ç»ò©ñ?
§Ú³o¼Ë©ñ¦n¹³¤£¯à°Ê... (§Ú©ñ¦b«ö¶s¸Ì­±)
Private Sub CommandButton2_Click()
Option Explicit
Sub Ex()
    Dim xSH As Integer, Sh As Worksheet, xi As Integer, A As Integer
    A = 6
    For Each Sh In Sheets
        If IsNumeric(Sh.Name) Then xSH = xSH + 1
    Next
    For xi = xSH + 1 To A
        Sheets("1").Copy , Sheets(Sheets.Count)
        Sheets(Sheets.Count).Name = xi
    Next
End Sub
End Sub

GBKEE

¦^´_ 6# iceandy6150

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim xSH As Integer, Sh As Worksheet, xi As Integer, A As Integer
   
4.     A = 6
   
5.     For Each Sh In Sheets
   
6.         If IsNumeric(Sh.Name) Then xSH = xSH + 1
   
7.     Next
   
8.     For xi = xSH + 1 To A
   
9.         Sheets("1").Copy , Sheets(Sheets.Count)
   
10.         Sheets(Sheets.Count).Name = xi
    
11.     Next
    
12. End Sub

½Æ»s¥N½X

iceandy6150

¦^´_  iceandy6150
Hsieh µoªí©ó 2012-2-17 00:10

    ¶W¯Åª©¥D¤£¦n·N«ä
¤µ¤Ñ´ú¸Õµo²{¤@¨Ç¤p°ÝÃD
¥Îsheet.count¬O¥i¥Hºâ¥Xsheetªº¼Æ¥Ø
¦ý¬O§Ú¥i¯à¦³<¥\¯à><©R¥O>µ¥sheet¦s¦b
¨Ò¦p§Ú²{¦³ªºsheet¬O <¥\¯à><´ú¸Õ><©R¥O><1>
¦pªGtextbox¿é¤J4¡A¨º»ò±N¤£·|°Ê§@¡A¦]¬°sheet¼Æ¶q¦³4­Ó¤F
¿é¤J5¡A·|Åܦ¨<¥\¯à><´ú¸Õ><©R¥O><1><5>

¥Ø¼Ð¬O¨C¦¸®Ö¹ï¥Ø«e©Ò¦³sheetªº¦WºÙ¬O§_¦³¬Û¦Pªº
­Y¦³«h¤£·s¼W¡A­YµL¤~·s¼W
¦Ó¥B·s¼W®É¥u·s¼W¯Â¼Æ¦r¦WºÙªºsheet
¤£·|§â¨ä¥L«D¼Æ¦r¦WºÙªºsheetºâ¤J

ÁÂÁÂ

iceandy6150

¦^´_ 4# Hsieh


    «z~¤Ó¯«©_¤F§a
ÁöµM§Ú¬Ý¤£¤ÓÀ´¤°»ò·N«ä
¦ý¬O¶K¤Wµ{¦¡«á´ú¸Õ
ok­C~~~
¤Ó·PÁ§A¤F~~:loveliness:

§Úª¾¹Dªº¨ç¼Æ¤Ó¤Ö¤F¡A«D±`®zªº·s¤â¤@­Ó:'(

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

iceandy6150

¦^´_  iceandy6150


Private Sub CommandButton1_Click()
If TextBox1  "" Then
For i = 1 To Val(T ...
Hsieh µoªí©ó 2012-2-16 23:44

¤j¤j¡A§Aªº¤èªk¥i¥H·s¼W.....¿é¤Jªº¼Æ¶qªºsheet
¥i¬O§Ú­n¥H<1>³o­Ósheet¬°¼Ë¥»¡A©Ò¦³·s¼Wªº³£¬O½Æ»s<1>
¥t¥~¬O¨¾§b¥\¯à
¨Ò¦p²Ä¤@¦¸¿é¤J5 ----> µ{¦¡·s¼W <2><3><4><5>  (1­ì¥»´N¦³)
¦ý«á¨Óı±o5­Ó¤£°÷¥Î¡A©ó¬O¿é¤J8--->µ{¦¡§PÂ_1~5¤w¸g¦³¤F¡A¤£·s¼W¡C6~8·s¼W
(³o¼Ë1~5¤ºªº¸ê®Æ¤£·|³Q°Ê¨ì)

ÁÂÁÂ

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