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

papaya

´¡¤J¬õÃC¦âªºµ{¦¡½X¡A°õ¦æ«á²£¥Í¤U¦Cªº°»¿ù´£¥Ü®Ø¡J

¤U¸ü (30.46 KB)

2019-11-6 00:19

            

¤U¸ü (54.55 KB)

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)

¤U¸ü¦¸¼Æ: 8

2019-11-6 00:21

papaya

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

­ã´£³¡ªL

¦^´_ 9# papaya

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

papaya

¦^´_ 8# ­ã´£³¡ªL
­ã´£ª©¥D :
·PÁ¦^À³©M¸ÑÃD^^
´ú¸Õµ²ªG ==>§e²{¤U¦C´£¥Ü®Ø

¤U¸ü (59.02 KB)

2019-11-9 14:25

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

­ã´£³¡ªL

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

papaya

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

n7822123

¦^´_ 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 ¤ñ¸û°®¯Ü...

papaya

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

n7822123

¦^´_ 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¤@¦æ°õ¦æ

papaya

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