[µo°Ý] ¨D±Ï~µL­­°j°é~

av8d

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     Application.DisplayAlerts = False
   
4.     If Target.Address(0, 0) = "A1" Then
   
5.    
   
6.         Dim Bo As Workbook, Save_Name  As String, E As Object
   
7.         
   
8.         With ActiveWorkbook
   
9.                                             
   
10.             Save_Name = "D:\" & [A1] & ".xls"
    
11.                 .Sheets("¤u§@ªí1").Copy
    
12.         End With
    
13.         
    
14.         With ActiveWorkbook
    
15.             For Each E In .VBProject.VBComponent
    
16.                 E.CodeModule.DeleteLines 1, E.CodeModule.CountOfLines
    
17.             Next
    
18.             .SaveCopyAs Save_Name
    
19.             .Close False
    
20.         End With
    
21.         
    
22.         [A1].Select
    
23.     End If
    
24.    
    
25.     Application.DisplayAlerts = True
    
26. End Sub

½Æ»s¥N½X

§Ú¦b [A1].Select ¤U¤è·s¼W¤@¦æ Selection.ClearContents
µ²ªGÅܦ¨µL­­°j°é~¤£ª¾¹D¬°¤°»ò·|³o¼Ë~Àµ¨D¤j¤j­ÌÀ°¦£~ÁÂÁÂ!

GBKEE

¦^´_ 1# av8d
³o°ÝÃD«Ü±`¨£,¸Õ¸Õ¬Ý

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     Dim Bo As Workbook, Save_Name  As String, E As Object
   
3.     Application.EnableEvents = False   '°±¤îª«¥óªºÄ²µo¨Æ¥ó
   
4.     Application.DisplayAlerts = False
   
5.     If Target.Address(0, 0) = "A1" Then        
   
6.         With ActiveWorkbook                                            
   
7.             Save_Name = "D:\" & [A1] & ".xls"
   
8.                 .Sheets("¤u§@ªí1").Copy
   
9.         End With        
   
10.         With ActiveWorkbook
    
11.             For Each E In .VBProject.VBComponent
    
12.                 E.CodeModule.DeleteLines 1, E.CodeModule.CountOfLines
    
13.             Next
    
14.             .SaveCopyAs Save_Name
    
15.             .Close False
    
16.         End With
    
17.         [A1].Select
    
18.         Selection.ClearContents  '³o¤u§@ªí¤¤ªºÀx¦s®æ¦³­×§ï
    
19.         '**  Worksheet_Change (³o¬O¤u§@¤¤ªºÀx¦s®æ¦³­×§ï®É->¹w³]ªºÄ²µo¨Æ¥óµ{§Ç)
    
20.     End If
    
21.     Application.DisplayAlerts = True
    
22.     Application.EnableEvents = True  '«ì´_ª«¥óªºÄ²µo¨Æ¥ó
    
23. End Sub

½Æ»s¥N½X

av8d

¦^´_ 2# GBKEE


    ÁÂÁÂG¤j~§¹¦¨
¬O§_¥i¥H¦A¸ß°Ý¤@¤U
§Ú¤U¤F³o­Ó§PÂ_[A1].Select
¬O§Æ±æ¿é¤J¥H«á~¨ÌµMºû«ù¦bA1

¦ý¬O·í§Ú·Æ¹«ÂI¨ìA2´N¤£·|¸õ¨ìA1¤F
¦]¬°§PÂ_¦³§ïÅܤ~°õ¦æ

½Ð°Ý¬O§_¥i¥H¦b·Æ¹««ü¨ìA1¥H¥~ªºÀx¦s®æ
Åý¥L¦Û°Ê¸õ¨ìA1©O?¤£ª¾¹D¦³¨S¦³³oºØ§PÂ_?¦A¦¸·PÁÂ!

GBKEE

¦^´_ 3# av8d

1. Option Explicit
   
2. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
3.     If Target.Address(0, 0) <> "A1" Then [A1].Select
   
4. End Sub

½Æ»s¥N½X

¤U¸ü (25.1 KB)

2013-3-14 15:24