- ©«¤l
- 586
- ¥DÃD
- 123
- ºëµØ
- 0
- ¿n¤À
- 763
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOW7
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-16
- ³Ì«áµn¿ý
- 2017-3-14
|
¦^´_ 2# Hsieh
½Ð°Ý¦pªG§Úªº±ø¥ó¬O³o¼Ë §ÚÀ³¸Ó¦p¦ó¼g¤~¯à¹F¨ì§Únªºµ²ªG?
Columns("B:B").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=VLOOKUP($B1,$M$548:$M$556,1,0)=$B1"
With Selection.FormatConditions(1).Font
.Bold = False
.Italic = False
.ColorIndex = 4
End With
Selection.FormatConditions(1).Interior.Pattern = xlNone
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=FIND(""°ª¶¯"",$B1,1)"
With Selection.FormatConditions(2).Font
.Bold = True
.Italic = False
End With
Selection.FormatConditions(2).Interior.Pattern = xlNone |
|