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

[µo°Ý] ½Ð°Ý·íA1¿é¤J¼Æ¦r4®É§ä¥X¤U¦C¸ê®Æ¦P¼Æ¦rªº¤½¦¡

¦^´_ 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()µ{¦¡ ¤~·|¦³§@¥Î

TOP

¦^´_ 4# GBKEE


    ÁÂÁª©¥D
¥i¥H½Ð°Ý¬O©ñ¦b¤@¯ëªºMacro1()¶Ü?
´«¹L¼Æ¦r«á¨S¦³§ï¹L
ÁÂÁ±z
1.rar (7.46 KB)

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-7-14 19:37 ½s¿è

¦^´_ 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

TOP

¥»©«³Ì«á¥Ñ PD961A ©ó 2010-7-14 18:22 ½s¿è
¦^´_  PD961A

§A¥i¥H¸ÕµÛ¥Î¿ý»s·s¥¨¶° ¬Ý¬Ý
GBKEE µoªí©ó 2010-7-14 17:46



    GBKEEª©¥D..ÁÂÁ±z
¦ý¬O¥i¥H½Ð°Ý±z
·í²Ä¤@¦CA1.B.C~°²³]¨ìH1
¿é¤J¼Æ¦r(¹w³]¬°1~100)
¦ý¬O©³¤Uªº¸ê®Æ·|Åܰʦì¤l(¸ê®Æ·|¦]¬°¤H¬°¿é¤J¦Ó²£¥Í­«½Æªº¦a¤è)
¦]¦¹·í²Ä¤@¦C¿é¤J¤µ¤Ñ§@¦nªº¼Æ¦r¦@8Äæ(~HÄæ).....(§Æ±æ¥i¥H¤£­­¨î¨ìHÄæ)
EX:31.32.33.34.35.36.37¿é¤J§¹´N¥i¥Hª¾¹D©³¤U­þ­Ó¸ê®Æ¸ò¤W­±³o¨Ç¼Æ¦r­«½Æ¤F

³o¼Ëªº±¡ªp¤U­n¦p¦ó¿ý»s·s¥¨¶°?
ÁÂÁ±z..

TOP

¦^´_ 1# PD961A

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

TOP

        ÀR«ä¦Û¦b : ¨ü¤HÂI¤ô¤§®¦¡A¶··í´é¬u¥H³ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD