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

[µo°Ý] ¦p¦ó±NÀx¦s®æ¤º¬Y´X­Ó¯S©w¤å¦r¥ÎÃC¦â¼Ð¥X¼Ð¥X

[µo°Ý] ¦p¦ó±NÀx¦s®æ¤º¬Y´X­Ó¯S©w¤å¦r¥ÎÃC¦â¼Ð¥X¼Ð¥X

¦p¦ó¦b³]©w®æ¦¡¤Æªº±ø¥ó¤U¥Î¤½¦¡±NÀx¦s®æ¤º¬Y´X­Ó¯S©w¤å¦r¥ÎÃC¦â¼Ð¥X¼Ð¥X

¦^´_ 1# wendy


    ®æ¦¡¤Æ±ø¥ó°µ¤£¨ì
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 2# Hsieh

­n¦p¦ó°µ³B²z©O?  ¥Î¨ç¼Æ¶Ü?

TOP

¦^´_ 3# wendy


    ¤â°Ê¿ï¨ú¦r¤¸Åܦâ©Î¨Ï¥ÎVBA¹F¦¨
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh

¦³¥i¯à¦bÀx¦s®æ®æ¦¡ Ãþ§O ¦Û­q¤º§@³]©w¶Ü?

TOP

¦^´_ 5# wendy


    ¤£¦æ,§A±N­n§ïÃC¦âªº¦r¤¸¿ï¨ú
«ö¤U¤å¦rÃC¦â´N¦æ¤F
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 6# Hsieh


    ª¾,, ©Ò¥HÁÙ¬O­n¦^Âk¨ì³Ì¨S¦³®Ä²vªº¤èªk¤F!!

TOP

¦^´_ 7# wendy


    ¨Ò¦p´ë³¡¸ê®Æ­nÅý"CHANGE COLOR"¦r¦êÅܬõ¦â¨ä¾l«hºû«ù¦Û°Ê
°õ¦æ¥H¤Uµ{¦¡
  1. Sub Ex()
  2. Dim A As Range
  3. For Each A In Cells.SpecialCells(xlCellTypeConstants)
  4.   A.Font.ColorIndex = -4105 '¦Û°Ê¦r«¬ÃC¦â
  5.   If InStr(A, "CHANGE COLOR") > 0 Then
  6.      For i = 1 To Len(A)
  7.         If Mid(A, i, Len("CHANGE COLOR")) = "CHANGE COLOR" Then
  8.         A.Characters(i, Len("CHANGE COLOR")).Font.ColorIndex = 3
  9.         i = i + Len("CHANGE COLOR") - 1
  10.         End If
  11.      Next
  12.   End If
  13. Next
  14. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ·O´d¨S¦³¼Ä¤H¡A´¼¼z¤£°_·Ð´o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD