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

[µo°Ý] ®æ¦¡¤Æ³W«h VBA

[µo°Ý] ®æ¦¡¤Æ³W«h VBA

¤j¤j­Ì¦n

§Ú·Q­n°Ý»¡¥i¥H°w¹ïCÄ檺¸ê®Æ ¹ïAÄ椤¦³ªº¼Ð°O¤W¶À¦â¶Ü(ªþ¥ó¤@)

¸ÕµÛ§Ë¤F¤@¤U ·|Åܦ¨ (ªþ¥ó¤G) ³o­n«ç»ò­×§ï?? ³Â·Ð¤F ·PÁÂ
Dim i As String
For j = 1 To 5
    Worksheets(1).Columns("A:A").Select
    i = Worksheets(1).Range("C" & j)
    Selection.FormatConditions.Add Type:=xlTextString, String:=i, _
        TextOperator:=xlContains
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
    End With
Next

Q55.png (4.93 KB)

ªþ¥ó¤@

Q55.png

Q59871.png (3.89 KB)

ªþ¥ó¤G

Q59871.png

¥»©«³Ì«á¥Ñ PKKO ©ó 2014-11-23 13:08 ½s¿è

¦^´_ 1# s13983037
    ¦¹¥¨¶°°²³]§A¬O¦bsheets(1)¤U­±¾Þ§@,¦pªG¤£¬O´N¦brange«e­±¥[¤W    sheets(1).
¸Õ¸Õ¬Ý
  1. Sub test()
  2.     For i = 1 To Range("A65536").End(xlUp).Row
  3.         With Cells(i, 1)
  4.             For j = 1 To Range("C65536").End(xlUp).Row
  5.                 If .Value = Cells(j, 3) Then
  6.                     .Interior.ColorIndex = 6 '¬Oªº¸Ü¶À¦â
  7.                     Exit For '¬O´NÂ÷¶}¤ñ¹ï
  8.                 Else
  9.                     .Interior.ColorIndex = 2 '¤£¬Oªº¸Ü¥Õ¦â
  10.                 End If
  11.             Next
  12.         End With
  13.     Next
  14. End Sub
½Æ»s¥N½X
interior        font         HTML        bgcolor=         Red<        Green         Blue        Color
Black        [Color 1]         #000000        #000000         0        0        0         [Black]
White        [Color 2]         #FFFFFF        #FFFFFF         255        255        255         [White]
Red         [Color 3]         #FF0000        #FF0000         255        0        0         [Red]
Green         [Color 4]         #00FF00        #00FF00         0        255        0         [Green]
Blue         [Color 5]         #0000FF        #0000FF         0        0        255         [Blue]
Yellow         [Color 6]         #FFFF00        #FFFF00         255        255        0         [Yellow]
Magenta         [Color 7]         #FF00FF        #FF00FF         255        0        255         [Magenta]
Cyan         [Color 8]         #00FFFF        #00FFFF         0        255        255         [Cyan]
PKKO

TOP

¦^´_ 2# PKKO


    ÁÂÁ¤j¤j..­è­è¸Õ¥Î¹L¤F OK!!

TOP

        ÀR«ä¦Û¦b : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD