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

[µo°Ý] ½Ð°Ý¦p¦ó¦b©T©w¦C¼Æ¤¤°Ï¶¡¹ï³Ì¤j­È¼ÐÃC¦â?

[µo°Ý] ½Ð°Ý¦p¦ó¦b©T©w¦C¼Æ¤¤°Ï¶¡¹ï³Ì¤j­È¼ÐÃC¦â?

¥»©«³Ì«á¥Ñ 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¦ó§ï
  1. Sub ´ú¸Õ()
  2.     For i = 4 To Range("A65536").End(xlUp).Row Step 3
  3.     With Cells(i, 2).Resize(, 5)
  4.         .FormatConditions.Add Type:=xlExpression, Formula1:= _
  5.         "=MAX($B$4:$F$4)=B4"
  6.         .FormatConditions(1).Font.ColorIndex = xlAutomatic
  7.         .FormatConditions(1).Interior.ColorIndex = 7
  8.     End With
  9.     Next
  10. End Sub
½Æ»s¥N½X
³Ì¤j.rar (7.79 KB)
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

¦^´_ 2# Hsieh

    ÁÂÁª©¥D
    ¤Ó¤Ö¥Îmodªº¤è¦¡¥h§PÂ_
   °Ý¤@¦U°ÝÃDUnion¥i¥H³æ¿W±N¨º¨Ç²Å¦Xªº°Ï°ì¿ï¨ú¨Ó¶Ü
   ¬Ý¹L¤§«e¨ä¥Lª©¥D¥Î¹L·Q­n¥Î¬Ý¬Ý¸Õ¤£¥X¨Ó
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 1# freeffly
¥i¥Î¿ý»s¨ú±oµ{¦¡½X

   
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD