¥»©«³Ì«á¥Ñ 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¦ó§ï- Sub ´ú¸Õ()
- 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
½Æ»s¥N½X
³Ì¤j.rar (7.79 KB)
|