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

¦p¦ó·j´M¸ê®Æ¨Ã±N¸ê®ÆÅã¥Ü¬°¬õ¦â¦r¼Ë¡H

¦p¦ó·j´M¸ê®Æ¨Ã±N¸ê®ÆÅã¥Ü¬°¬õ¦â¦r¼Ë¡H

¼Æµ§¦a§}¸ê®Æ¦p¤U¡H
¥x¥_¥«¤¤¥¿°Ï¡³¡³¡³¡³¡³¡³¡³¡³¡³¡³¡³¡³
¥x¥_¥«¤¤¥¿°Ï¡³¡³¡³¡³¡³¡³¡³¡³¡³¡³¡³¡³
¥x¥_¥««H¸q°Ï¡³¡³¡³¡³¡³¡³¡³¡³¡³¡³¡³¡³
¥x¥_¥«¤¤¤s°Ï¡³¡³¡³¡³¡³¡³¡³¡³¡³¡³¡³¡³
¥x¥_¥«¤¤¤s°Ï¡³¡³¡³¡³¡³¡³¡³¡³¡³¡³¡³¡³

·j´M¸ê®Æ±ø¥ó¬°¥u­n¦³¤¤¤s°Ïªº¦r¼Ë¡A¥u¦³±N¤¤¤s°ÏÅã¥Ü¬°¬õ¦â¦rÅé¡D
¦pªG¦p¤U¡G
¥x¥_¥«¤¤¥¿°Ï¡³¡³¡³¡³¡³¡³¡³¡³¡³¡³¡³¡³
¥x¥_¥«¤¤¥¿°Ï¡³¡³¡³¡³¡³¡³¡³¡³¡³¡³¡³¡³
¥x¥_¥««H¸q°Ï¡³¡³¡³¡³¡³¡³¡³¡³¡³¡³¡³¡³
¥x¥_¥«¤¤¤s°Ï¡³¡³¡³¡³¡³¡³¡³¡³¡³¡³¡³¡³
¥x¥_¥«¤¤¤s°Ï¡³¡³¡³¡³¡³¡³¡³¡³¡³¡³¡³¡³

ÁÂÁ¡I

¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-10-4 09:28 ½s¿è

¦^´_ 1# q1a2z5
­n¨ú±o·Ç«h¸ê®Æ¡A¨Ï¥Î¶i¶¥¿z¿ï§Y¥i
¨ú±oªº­È¡A¦r«¬®æ¦¡µLªk³]©w¦h¼Ë
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦b³o¸Ì¾Ç¨ìªº
±z°Ñ¦Ò¤@¤U¤U

Sub §ïÅܦr¦êÃC¦â()
Dim A As Range
Dim cclor As Integer
Dim cput As String
cclor = InputBox("ÃC¦â¥N½X: 1¶Â  2¥Õ  3¬õ  4ºñ  5ÂÅ  6¶À  7µµ  ", "½Ð¿ï¾ÜÃC¦â:1-7")
cput = InputBox("½Ð¿é¤J­n§ïÅÜÃC¦âªº¦r¦ê:", "½Ð¿é¤J¦r¦ê  ")
For Each A In Cells.SpecialCells(xlCellTypeConstants)
  A.Font.ColorIndex = -4105 '¦Û°Ê¦r«¬ÃC¦â
  If InStr(A, cput) > 0 Then
     For i = 1 To Len(A)
        If Mid(A, i, Len(cput)) = cput Then
        A.Characters(i, Len(cput)).Font.ColorIndex = cclor
        i = i + Len(cput) - 1
        End If
     Next
  End If
Next
End Sub

TOP

¥»©«³Ì«á¥Ñ handmuch ©ó 2011-10-4 16:23 ½s¿è

¸Õ¸Õ"³]©w®æ¸Õ¤Æ±ø¥ó"¡A¤£¹L¾ã­ÓÀx¦s®æªº¦r³£·|Åܦâ´N¬O¤F

TOP

        ÀR«ä¦Û¦b : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD