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

[µo°Ý] ¯à¦b¤@­ÓÀx¦s®æ¤º°õ¦æ¨â­Ó®æ¦¡¤Æ±øªº¶Ü?

¦^´_ 5# ML089


    ÁÂÁ¸ѵª,Åý§Ú¸Õ¸Õ
§V¤O¾Ç²ß¤¤,ÁÂÁ«e½ú

TOP

¦^´_ 4# hkyan

¥i¥H¨Ï¥Î VBA ¨Ó³B²z

ALT-F11 ¶}±ÒVBE
½Æ»s¤U¦CVBA
¤u¨ã¦C - ´¡¤J - ¼Ò²Õ¡A±NVBA½Æ»s¶K¤W

¥ý¿ï­n§ïÅܦrÃC¦âªº½d³ò
ALT-F8 °õ¦æVBA
  1. Sub §ïÅܳ¡¤À¦r¦êÃC¦â()
  2.     xStr = [{"RM.A","RM.B"}]
  3.     xColor = [{3,10}] '¬õ¡Bºñ
  4.     For Each xRng In Selection
  5.         For j = 1 To 2
  6.             X = InStr(xRng, xStr(j))
  7.             If X > 0 Then
  8.                 With xRng.Characters(Start:=X, Length:=4).Font
  9.                     .ColorIndex = xColor(j)
  10.                 End With
  11.             End If
  12.         Next
  13.     Next
  14. End Sub
½Æ»s¥N½X
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¥»¥H¬°©³¦â»P¦rÅéÃC¦â·|¦³¤£¦P,­þ¨S¿ìªk°ß¦³¤â°Ê½Õ§ï.ÁÂÁ¸ѵª
§V¤O¾Ç²ß¤¤,ÁÂÁ«e½ú

TOP

[ª©¥DºÞ²z¯d¨¥]
  • Hsieh(2014-4-3 10:27): ª©¥D¤£¬O¸ò§A»¡¤@­ÓÀx¦s®æ¥u¯à¤@­ÓÃC¦â¶Ü?

¥»©«³Ì«á¥Ñ hkyan ©ó 2014-4-3 10:00 ½s¿è

§Æ±æ¥¿½TÅã¥Ü¤j·§¬O³o¼Ë, ¤W¤U¤È¤À¹j¤£¤@©w¬O//, ¥i¥H¬O¨ä¥L²Å¸¹, ¦ý¥u¯à¦b¦P¤@Àx¦s®æ¤º

1/4/2014        RM.A
2/4/2014        RM.B
3/4/2014        RM.B// RM.A
§V¤O¾Ç²ß¤¤,ÁÂÁ«e½ú

TOP

¦^´_ 1# hkyan

> ¦ý·í¦P¤@Àx¦s®æ¤º¿é¤J¬O¤W¡B¤U¤È¤£¦P®É¬q©Ð¶¡,«K¤£¯à顕¥Ü¥¿½T³]©w
   
¨º¥¿½TÅã¥Ü¬O¤°»ò ?

¤@­Ó®æ¥u¯àÅã¥Ü¤@ºØ©³¦â¡A¨S¦³¿ìªkÅã¥Ü2ºØ©³¦â
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

        ÀR«ä¦Û¦b : ¬O«D·í±Ð¨|¡AÆg¬ü§@ĵ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD