| ¥»©«³Ì«á¥Ñ freeffly ©ó 2012-7-5 11:55 ½s¿è 
 §Ú·Q¹ï4¡B7¡B10...µ¥¦C¼Æ¤¤ªº³æ»ù¤¤ªº³Ì¤jȼÐÃC¦â
 ¥Ø«e·Q¨ìªº¬O¥Î°j°é¦A¥[¤W±ø¥ó®æ¦¡¤Æ
 ¤£¹LÁÙ¨S¸Õ¥X¨Ó
 ¦pªG¤£¨Ï¥Î±ø¥ó®æ¦¡¤Æ¦³¿ìªk¶Ü?
 
 "=MAX($B$4:$F$4)=B4"  ³o¤@¥y·Q¤£¥X¦p¦ó§ï
 ½Æ»s¥N½XSub ´ú¸Õ()
    For i = 4 To Range("A65536").End(xlUp).Row Step 3
    With Cells(i, 2).Resize(, 5)
        .FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=MAX($B$4:$F$4)=B4"
        .FormatConditions(1).Font.ColorIndex = xlAutomatic
        .FormatConditions(1).Interior.ColorIndex = 7
    End With
    Next
 End Sub
 ³Ì¤j.rar (7.79 KB) |