[µo°Ý] ±qÀx¦s®æ¤¤¸ê®Æ¡A·s«Ø©Î§ä¨ì¤@­Ó¤u§@ªí

pitera88

§Ú·Q­n«Ø¥ß¤@­Ó¦W³æªº¤u§@ªí¡AùØ­±¬O¦W³æªºªí¦C

½Ð°Ý¦p¦ó¥i¥H«ö¦W³æ(¹³¶W³sµ²)´N¥i¥H·s«Ø¤@­ÓªÅ¥Õªº¤u§@ªí(¦³Âªº®æ¦¡ªÅ¥Õ¤u§@ªí¤F)¡A¦pªG¤u§@ªí¦WºÙ¤w¦s¦b¡A´N¶}±Ò¨º­Ó¤u§@ªí¡C

¨Ò¦p¡G¤u§@ªí(¦W³æ)--¤º¦³¡G±i¤T¡A§õ¥|¡A¤ý¤­
        ¤u§@ªí(ªÅ¥Õ¤u§@ªí)
ÂIÀ»¡u±i¤T¡vÀx¦s®æ¡A´N¥i¥H½Æ»s¡uªÅ¥Õ¤u§@ªí¡v¦WºÙ¬O¡u±i¤T¡v¡A¦pªG¡u±i¤T¡v¤u§@ªí¤w¦s¦b«h¶}±Ò¡u±i¤T¡v¤u§@ªí


¥H¤W¡A³Â·Ð¦U¦ì¤j¤j­Ì¤F~~
----------------
¥H«e¦³¥Î¹L¡u«ö¶s¡v¤è¦¡·s«Ø¤u§@ªí

Private Sub CommandButton1_Click()
Dim I As String
  
    I = InputBox("½Ð¿é¤J«È¤á©m¦W.", "Copy Sheet")
    If I <> "" Then
        Sheets(1).Copy After:=Sheets(Sheets.Count) '½Æ»s²Ä¤@­Ó¤u§@ªí¨Ã©ñ¨ì³Ì«á¤@­Ó
        Sheets(Sheets.Count).Name = I              '³Ì«á¤@­Ó¤u§@ªíªº¦WºÙ=I
    Else
        MsgBox "½Æ»s¥¢±Ñ(¸ê®Æªí¥¼¿é¤J¦WºÙ)"
    End If
End Sub

§Æ±æ­n§ó¤è«K¨Ç~~~ ·P®¦~~~~~

stillfish00

¦^´_ 5# pitera88
Sorry¡AResume Next «e­±º|±¼Err.Clear

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Application.EnableEvents = False
   
3. 
   
4.     If Target.Cells(1, 1).Value = "" Then Exit Sub   
   
5.     On Error GoTo ADD_SH
   
6.     Sheets(Target.Cells(1, 1).Value).Select
   
7.     On Error GoTo 0
   
8. 
   
9.     Application.EnableEvents = True   
   
10.     Exit Sub
    
11.    
    
12. 'Error handle
    
13. ADD_SH:
    
14.     With Sheets.Add(After:=Sheets(Sheets.Count))
    
15.         .Name = Target.Cells(1, 1).Value
    
16.     End With
    
17.     Err.Clear
    
18.     Resume Next
    
19. End Sub

½Æ»s¥N½X

¡C

Hsieh

¦^´_ 6# pitera88

¤U¸ü (65.6 KB)

2013-6-14 15:08

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. If Target.Count > 1 Or Target.Column <> 1 Then Exit Sub
   
3. Application.EnableEvents = False
   
4. If Target <> "" Then
   
5.    On Error GoTo addsheet
   
6.    Sheets(CStr(Target)).Select: GoTo 10
   
7.    
   
8. addsheet:
   
9. MsgBox Target & "¤u§@ªí¤£¦s¦b"
   
10.    With Sheets.Add(after:=Sheets(Sheets.Count))
    
11.    .Name = CStr(Target)
    
12.    End With
    
13. End If
    
14. 10
    
15. Application.EnableEvents = True
    
16. End Sub

½Æ»s¥N½X

pitera88

¦^´_ 5# pitera88


    ÁÙ¬O¦³¤j¤j¥i¥H§i¶D§Ú¡A
1¡D§PÂ_³o­Ó¦W¦rªº¤u§@ªí¡A¬O§_¤w¦s¦b?  ³o­Ó©R¤µ­n«ç»ò¼g??

2¡D¶}±Ò«ü©w¤u§@ªíªº©R¥O¬O¤£¬O ¡uWorksheets("¦W¦r").Activate¡v??


·P®¦!!!!!

pitera88

¦^´_  pitera88
stillfish00 µoªí©ó 2013-6-13 10:20

    stillfish00 ¤j¤j¡A§Ú§âµ{¦¡½X¶K¤W¥h¡A¥i¬O³£¨S¦³°Ê§@­C~~

¦³¤j¤j¥i¥H¸Õ¬Ý¬Ý¶Ü?? ·P®¦!!!!!!

stillfish00

¦^´_ 3# pitera88

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Cells(1, 1).Value = "" Then Exit Sub
   
3.    
   
4.     On Error GoTo ADD_SH
   
5.     Sheets(Target.Cells(1, 1).Value).Select
   
6.     On Error GoTo 0
   
7.    
   
8.     Exit Sub
   
9.    
   
10. 'Error handle
    
11. ADD_SH:
    
12.     With Sheets.Add(After:=Sheets(Sheets.Count))
    
13.         .Name = Target.Cells(1, 1).Value
    
14.     End With
    
15.     Resume Next
    
16. End Sub

½Æ»s¥N½X

pitera88

¦^´_  pitera88

³o­Ó¬O¿ï¤W¥ô¦ó¤@­Ó®æ¤l®É·|µo¥Í,¦³»Ý­n¥i¥H¥[¤W«ü©w½d³òºò°O¥N½X­n©ñ¦b¤u§@ªí¸Ì
kimbal µoªí©ó 2013-6-11 13:41

    ÁÂÁ¤j¤jªº´£¨Ñ¤èªk¡A
¤£¹L½Ð°Ý¥i¥H¡G1·s¥Í¦¨ªº¤u§@ªí¬O©ñ¦b³Ì«á¡C
¡@¡@¡@¡@¡@¡@¡@¢±¤w¸g¦³ªº¤u§@ªí´N¶}±Ò¤u§@ªí¡A¤£µM·|·s¼Wªº¬O¤@­Ó¡u¢á¢Ö¢Ó¢Ó¢â¢³¡v

·Ð½Ð¤j¤j¤F¡A·P®¦¡I¡I

kimbal

¦^´_ 1# pitera88

³o­Ó¬O¿ï¤W¥ô¦ó¤@­Ó®æ¤l®É·|µo¥Í,¦³»Ý­n¥i¥H¥[¤W«ü©w½d³ò

1. Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
   
2.     On Error GoTo skip
   
3.     Dim I As String
   
4.     I = Target.Cells(1, 1).Value
   
5.     If I <> "" Then
   
6.         Sheets.Add
   
7.         ActiveSheet.Name = I
   
8.     End If
   
9. 
   
10. skip:
    
11. End Sub

½Æ»s¥N½X

ºò°O¥N½X­n©ñ¦b¤u§@ªí¸Ì
  

¤U¸ü (57.35 KB)

2013-6-11 13:40