[µo°Ý] (¤w¸Ñ¨M)¦³¿ìªk¨Ì¤å¦r¤º®eµ¹¤©ÃC¦â¶Ü

freeffly

¤å¦rÃC¦â½s¿è°ÝÃD.rar (13.08 KB)

¤U¸ü¦¸¼Æ: 25

2011-3-11 12:32

§Ú·Q­n°Ý¨Ì¤U¦³¿ìªk¸g¥Ñvba³]©w§P§O¦³§Qªº¨º´X¦U¦r¬°ÂŦ⤣§Qªº¨º´X¦U¦r¬°¬õ¦â
¦pªþ¥[Àɪº©ÒÅã¥Üªº¨º¼Ë¶Ü
¥u§PÂ_C12:D12 ,C13:D13,f12:G12,F13:G13³o´X¦U°Ï°ì

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

freeffly

¦^´_ 2# Hsieh


    ¨C¦¸¬Ý¨ì¤j¤j¸Ñµª³£¬Û·í¨ØªA
  ¤j¤j³o¦¸¥Îªº´X¦U§t¼ÆÁÙ¬O²Ä¤@¦¸¬Ý¨ì
  ¦³´X¥y¥i¥H©âªÅÀ°¦£¸ÑÄÀ¤@¤U
  ©Î¬O¥þ³¡ª`¸Ñ(§Ú©È¦Û¤v»~¥Î)
   
   ¤U­±³o¥y«á­±(1) §@¥Î¬O¤°»ò?

        mystr = Split(ar(i), "~")(1)

   ¤U­±³o¥y¸Ì­±ªº¬A¸¹¥NªíÃC¦â¶Ü?
         c = IIf(c = 3, 5, 3)

  ¤U­±³o¥y¬Ý¤£¤ÓÀ´
     Characters(k, Len(mystr) + 1 + i * 2)

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

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

freeffly

¦^´_ 4# Hsieh


    ÁÂÁ¸ѻ¡

freeffly

¦^´_ 4# Hsieh

½Ð°Ý¦pªG¬O¦pªþ¥ó§Ú­n¨Ì"-"¥h°µ§PÂ_
-ªº¥ªÃä¦r­n¬õ¦â¥B²ÊÅé­n«ç»ò§ï?
¦]¬°-ªº¥ªÃä¸ò¥kÃ䪺¦r¼Æ¤£¬O©T©w
¤@¯ë¨ç¼Æ¥i¥H¥Îmid¥h°µ¤£¹L¦bvba¤¤´N¤£¤Óª¾¹D¦p¦ó§ï
   



·s¼WMicrosoft Excel ¤u§@ªí.rar (4.2 KB)

¤U¸ü¦¸¼Æ: 5

2012-9-14 10:48

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

freeffly

¦^´_ 7# Hsieh


    ·Pı¦h³o¤@­Ó¨Ò¤l
   ¦³¤ñ¸û²M·¡¬ÛÃö¹B¥Î
   ¯u¬O·PÁÂ