GBKEE

¦^´_ 1# PD961A

§A¥i¥H¸ÕµÛ¥Î¿ý»s·s¥¨¶° ¬Ý¬Ý

GBKEE

¦^´_ 3# PD961A
¬O¤£¬O³o­Ó¤è¦V

1. Sub Macro1()
   
2. ' Macro1 Macro
   
3. ' hsu ¦b 2010/7/14 ¿ý»sªº¥¨¶°
   
4.     Range("A2:H17").Select
   
5.     Selection.FormatConditions.Delete
   
6.     Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=OR(A2=$A$1,A2=$B$1,A2=$C$1)"
   
7. ' ¨ÌªþÀÉ¿ý»s«á­×¥¿ªº"=OR(A2=$A$1,A2=$B$1,A2=$C$1)"
   
8.     Selection.FormatConditions(1).Font.ColorIndex = xlAutomatic
   
9.     With Selection.FormatConditions(1).Interior
   
10.         .ColorIndex = 6
    
11.         .Pattern = xlSolid
    
12.     End With
    
13. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# PD961A
ªþÀÉ¥u¦³¤@­Ó¤u§@ªí µ{¦¡½X©ñ­þ¸Ì³£¤@¼Ë
·íµ{¦¡½X ¦bSHEETª«¥ó¤¤ Range("A2:H17").Select  ¬O«üSHEETª«¥ó¤u§@ªíªºRange  
·íµ{¦¡½X ¦b¤@¯ëModule¤¤ Range("A2:H17").Select  ¬O«ü°µ¥Î¤¤SHEETªºRange  
§A­n¨ì VBA ªºµøµ¡¤¤ ±N·Æ¹«²¾¨ìµ{¦¡½Xªº½d³ò¸Ì «ö¤UF5    °õ¦æ¤@¦¸  Sub Macro1()µ{¦¡ ¤~·|¦³§@¥Î

GBKEE

¦^´_ 12# PD961A

§Ú±NÄæ¦ì©ñ¤j ©Ò¥Hµ{¦¡½Xª½±µ­×¥¿¨ì"L"Äæ¥h..¥i¬O·|µLªk°õ¦æ

  
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=OR(A2=$A$1,A2=$B$1,A2=$C$1,A2=$D$1,A2=$E$1,A2=$F$1,A2=$G$1,A2=$H$1,A2=$I$1,A2=$J$1,A2=$K$1,A2=$L$1)"