hugh0620

¦^´_ 1# enoch


    ­Ó¤H²q´ú~
     ¬O¦]¬°¦³­«ÂЦWºÙªºsheet¦s¦b~ ¾É­P¥u°õ¦æ¨ì¤@¥b´NÂ_±¼~
     À³¥Î¥H«eG¤j¤j±Ðªº¤è¦¡,¬å±¼¤£µ¥©óSampleªºsheet´N¤£·|¦³°ÝÃD
     ¦ýÁÙ¬O­n¬Ý§Aªº»Ý¨D¬O¤°»ò,¤~¯à°÷¹ï¯g¤UÃÄ

1. Sub ½Æ»s¤u§@ªí()
   
2.     Dim i As Integer
   
3.     Dim no As Integer
   
4.     Dim e As Integer
   
5.    
   
6.     i = Application.InputBox("½Ð¿é¤J¼Æ¦r" & Chr(10) & "©Î«ö '¨ú®ø' °±¤î¥¨¶°", _
   
7.                "½Æ»s¤u§@ªí±i¼Æ", Type:=1)
   
8.     If i > 0 Then
   
9.     e = i
   
10.     '=====±N¤£µ¥©ósample§R°£¡A¦A­«·s·s¼W====
    
11.         Application.DisplayAlerts = False
    
12.         For Each A In Sheets
    
13.             If A.Name <> "sample" Then
    
14.                A.Delete
    
15.             End If
    
16.         Next
    
17.         Application.DisplayAlerts = True
    
18.      '=======================================
    
19.         For no = 1 To i
    
20.             Worksheets("sample").Copy before:=Worksheets(1)
    
21.                 Sheets(1).Name = e
    
22.             e = e - 1
    
23.         Next no
    
24.     End If
    
25. End Sub

½Æ»s¥N½X

hugh0620

¦^´_ 5# enoch


http://forum.twbts.com/viewthread.php?tid=2855&highlight=