ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¥»©«³Ì«á¥Ñ freeffly ©ó 2012-2-22 17:05 ½s¿è

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

§Ú·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°Ï°ì
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 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
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh


    ÁÂÁ¸ѻ¡
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 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)
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 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
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 7# Hsieh


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

TOP

        ÀR«ä¦Û¦b : ¤ß¤¤±`¦sµ½¸Ñ¡B¥]®e¡B·P«ä¡Bª¾¨¬¡B±¤ºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD