owen06

¦^´_ 1# amber0083


    ­n¸Õ¸ÕVBA¶Ü

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Application.EnableEvents = False
   
3. On Error Resume Next
   
4. With Target
   
5.   If .Row > 1 And .Column = 1 Then   '³]©w¢ÏÄæ(A2°_©l)¬°¼Ðªº
   
6.      If .Value <> "" Then
   
7.         .Value = Left(.Value, 5) & "***" & Right(.Value, 2)
   
8.       Else: .Value = ""
   
9.      End If
   
10.   End If
    
11. End With
    
12. Application.EnableEvents = True
    
13. End Sub

½Æ»s¥N½X