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

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

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

´¡¤J¬õÃC¦âªºµ{¦¡½X¡A°õ¦æ«á²£¥Í¤U¦Cªº°»¿ù´£¥Ü®Ø¡J
¥¼©R¦W-1.png
2019-11-6 00:19
            
¥¼©R¦W-2.png
2019-11-6 00:20


        If xF(1, V) <> "" Then
           [B2:AN2].Find(xF(1, V), LookAt:=xlWhole).Font.ColorIndex = IIf(V = 8, 7, 7)                       
           [B65:AN65].Find(xF(1, V), LookAt:=xlWhole).Font.ColorIndex = IIf(V = 8, 7, 7)  '¦C114      
          [B66:AN66].Find(xF(1, V), LookAt:=xlWhole).Font.ColorIndex = IIf(V = 8, 7, 7)
        End If
        If xF(2, V) <> "" Then
           [B2:AN2].Find(xF(2, V), LookAt:=xlWhole).Interior.ColorIndex = IIf(V = 8, 6, 6)                        
           [B65:AN65].Find(xF(2, V), LookAt:=xlWhole).Interior.ColorIndex = IIf(V = 8, 6, 6)
           [B66:AN66].Find(xF(2, V), LookAt:=xlWhole).Interior.ColorIndex = IIf(V = 8, 6, 6)

        End If

½Ð°Ý¡J¬õÃC¦âªºµ{¦¡½XÀ³¸Ó¦p¦ó­×¥¿¡H
Àµ½Ð¦U¦ì¤j¤jÀ°¦£¡IÁÂÁ¡I

´ú¸ÕÀɮסJ TEST.rar (113.79 KB)

¦^´_ 10# ­ã´£³¡ªL
­ã´£ª©¥D :
´ú¸Õ¦¨¥\^^
·PÁ±zªº«ü¾É©MÀ°¦£

TOP

¦^´_ 9# papaya

§ï¦n¤F, ¦A¸Õ~~

TOP

¦^´_ 8# ­ã´£³¡ªL
­ã´£ª©¥D :
·PÁ¦^À³©M¸ÑÃD^^
´ú¸Õµ²ªG ==>§e²{¤U¦C´£¥Ü®Ø
¥¼©R¦W.png
2019-11-9 14:25


¦³¹Á¸Õ±NAD$ §ï¬°  AD As Range ©Î AD As String
¦ý³£¤£¦æ^^"
½Ð°Ý : À³¸Ó«ç»ò§ï¤~¥¿½T?
ÁÂÁ±z^^

TOP

¥»©«³Ì«á¥Ñ ­ã´£³¡ªL ©ó 2019-11-9 15:21 ½s¿è

Dim FF As Range, AD
If Not xF Is Nothing Then
   For V = 4 To 8
       For Each AD In Array("B2:AN2", "B65:AN65", "B66:AN66")
           If xF(1, V) <> "" Then
              Set FF = Range(AD & "").Find(xF(1, V), Lookat:=xlWhole)
              If Not FF Is Nothing Then FF.Font.ColorIndex = 7
           End If
           If xF(2, V) <> "" Then
              Set FF = Range(AD & "").Find(xF(2, V), Lookat:=xlWhole)
              If Not FF Is Nothing Then FF.Interior.ColorIndex = 6
           End If
       Next
   Next V
End If

TOP

¦^´_ 6# n7822123
«Ü¦h¦C¡A¨S¦³Ãö«Y¡A¤p§Ì«_¬N¦A¶i¶¥½Ð±Ð±zªº¼gªk¡A´N¬O·Q¦h¬ã²ß¡C
¸U¤À·PÁ±z­@¤ßªºÀ°¦£©M«ü¾É¡C
±ß¦w!

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

¦^´_ 4# n7822123
n7822123¤j¤j :  ±z¦n!
´ú¸Õ¦¨¥\¡C
¦½ÃC!­ìµ{¦¡½X¬O¤p§Ì¸`¿ý¥»ºô¯¸ªºµ{¦¡½X¡A¨Ã«D¤p§Ì¦Û¼g^^"
·PÁ±zªº¸Ô²Ó»¡©ú©M¸Ñµª¡C

¦pªG±z¤£¤¶·Nªº¸Ü¡A¥i§_¦A½Ð±Ð±z :
°²³]¤£¥H´¡¤JOn Error Resume Next¨Ó¸ÑÃD¡A
¨Ì±zªº¼gªk¡A¦C106~¦C123ªºµ{¦¡½XÀ³¸Ó¦p¦ó½s¼g¬°©y?
¸U¤À·PÁÂ^^

TOP

¥»©«³Ì«á¥Ñ 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

¯uªº¨S¦³¼ö¤ßªº¤j¤j¥i¥HÀ°¦£¶Ü?QQ

TOP

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD