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