Hsieh

¦^´_ 3# s7659109

1. Sub Add_Character()
   
2. Dim A As Range
   
3. For Each A In Range("B:B").SpecialCells(xlCellTypeConstants) '°w¹ïBÄæ¦ì¸ê®Æ°µÀˬd
   
4.    If Left(A, 5) <> "²Î¤@¶×´Ú-" And A.Offset(, -1) <> "" Then
   
5.    A = "²Î¤@¶×´Ú-" & A: A.Characters(1, 5).Font.ColorIndex = 3
   
6.    ElseIf Left(A, 5) = "²Î¤@¶×´Ú-" And A.Offset(, -1) = "" Then
   
7.    A.Characters(1, Len(A)).Font.ColorIndex = 0: A = Replace(A, "²Î¤@¶×´Ú-", "")
   
8.    End If
   
9. Next
   
10. End Sub
    
11. 
    
12. Private Sub Worksheet_Change(ByVal Target As Range)
    
13. Application.EnableEvents = False
    
14. Add_Character
    
15. Application.EnableEvents = True
    
16. End Sub

½Æ»s¥N½X