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

[µo°Ý] ­×¥¿²£¥Í°»¿ùªºµ{¦¡½X¡C

¥»©«³Ì«á¥Ñ n7822123 ©ó 2019-11-8 23:24 ½s¿è

¦^´_ 1# papaya

§A­nÅýÀx¦s®æ¦rÅéÅܦ⤧«e¡A­º¥ý­n¯à§ä¨ì¸ÓÀx¦s®æªü~~~

§AªºxF(2, V)Àx¦s®æ¤ºªº­È =1¡A ¹q¸£¦b[B65:AN65]§ä¤£¨ì ­È¬O 1 ªºÀx¦s®æ....

«e­±³o¬q [B65:AN65].Find(xF(2, V), LookAt:=xlWhole ´N·|µ¥©ó Nothing

µM«á§A¤S­n¥s¹q¸£§â "Nothing" Åܦâ?

Nothing.Font.ColorIndex = IIf(v = 8, 7, 7)

³o¼Ë¤£¥X¿ù¤~©_©Ç§a!?

¦pªG§A­n³o¼Ë¼g¡A«e­±¥[¤W On Error Resume Next  Åý¹q¸£¸õ¨ì¤U¤@¦æ°õ¦æ
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2019-11-9 00:26 ½s¿è

¦^´_ 5# papaya


­ì¥»

[B65:AN65].Find(xF(1, V), LookAt:=xlWhole).Font.ColorIndex = IIf(V = 8, 7, 7)   ' IIf(V = 8, 7, 7) ³o­Ó«Ü¦h¾l..........

§ï¦¨  

if not [B65:AN65].Find(xF(1, V), LookAt:=xlWhole) is nothing then  [B65:AN65].Find(xF(1, V), LookAt:=xlWhole).Font.ColorIndex =7

¦pªG¤Óªø¡A§Ú·|¤À¨â¦æ¼g.........¦]¬°§Úªº¦rÅéµ¹¥¦§Ë«Ü¤j¦r¡A¤£·Q©Ô±²¶b

set oRG= [B65:AN65].Find(xF(1, V), LookAt:=xlWhole)
if not oRG is nothing then oRG.Font.ColorIndex =7



¸Ñ¨M¤@¦C¡A¦ý¬O§AÁÙ¦³«Ü¦h¦C
on error resume next ¤ñ¸û°®¯Ü...
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD