Hsieh

¦^´_ 1# freeffly

1. Sub nn()
   
2. Dim A As Range
   
3. For Each A In Union([C12:C13], [F12:F13])
   
4. A.Font.ColorIndex = 0
   
5.   ar = Split(A, "¸U")
   
6.   For i = 0 To UBound(ar)
   
7.      If InStr(ar(i), "~") > 0 Then
   
8.         mystr = Split(ar(i), "~")(1)
   
9.         k = InStr(A, mystr)
   
10.         c = IIf(c = 3, 5, 3)
    
11.         A.Characters(k, Len(mystr) + 1 + i * 2).Font.ColorIndex = c
    
12.      End If
    
13.   Next
    
14. Next
    
15. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 3# freeffly


    ¤U­±³o¥y«á­±(1) §@¥Î¬O¤°»ò?

        mystr = Split(ar(i), "~")(1)
Split·|±N¦r¦ê¥H«ü©w¦r¤¸¤À³Î¦¨¤@­Ó¥H0¶}©lªº°}¦C¡A«á­±(1)´Nªí¥Ü«ü©w¨ì¸Ó°}¦Cªº²Ä2­Ó¤¸¯À
   ¤U­±³o¥y¸Ì­±ªº¬A¸¹¥NªíÃC¦â¶Ü?
         c = IIf(c = 3, 5, 3)
cÅܼƥΨӹBºâ¦r¦ê­nµ¹ªºÃC¦â¡A3¬O¬õ¡A5¬OÂÅ
  ¤U­±³o¥y¬Ý¤£¤ÓÀ´
     Characters(k, Len(mystr) + 1 + i * 2)
Àx¦s®æ¤º«ü©w¦r¤¸k¬O«ü±q²Äk­Ó¦r¤¸¶}©l¡AÂ^¨úLen(mystr) + 1 + i * 2ªº¦r¼Æ

=c¬O«ü®M¥Îc=IIF(c=3,5,3)ªºÃC¦â¶Ü?
   .Font.ColorIndex = c
Font:¦r«¬
ColorIndex:ÃC¦â¸¹½X

Hsieh

¦^´_ 6# freeffly
³o¼Ë´NÀ³¸Ó²M·¡¬yµ{¤F

1. Sub ex()
   
2. Dim A As Range
   
3. For Each A In Range([A1], [A65536].End(xlUp))
   
4. x = InStr(A, "-") '¤À®æ²Å¸¹¦ì¸m
   
5.    If x > 0 Then
   
6.       k = Len(Split(A, "-")(0)) '¥ª°¼¦r¤¸¼Æ
   
7.       i = Len(Split(A, "-")(1)) '¥k°¼¦r¤¸¼Æ
   
8.       With A.Characters(1, k).Font '¥ª°¼¦r«¬
   
9.       .Bold = True
   
10.       .ColorIndex = 3 '¬õ¦â
    
11.       End With
    
12.       With A.Characters(x + 1, i).Font '¥k°¼¦r«¬
    
13.       .Bold = True '²ÊÅé
    
14.       .Italic = True '±×Åé
    
15.       .ColorIndex = 5 'ÂŦâ
    
16.       End With
    
17.     End If
    
18. Next
    
19. End Sub

½Æ»s¥N½X