­ã´£³¡ªL

For z = 2 To 3
¡@¡@Set R(z) = .[J6:P6].Offset(RW(z - 1) - x, 0).Find(R(1), Lookat:=xlWhole)
¡@¡@If R(z) Is Nothing Then U = 1: Exit For
¡@¡@If R(z).Column <> R(1).Column Then U = 1: Exit For¡@
Next z

­ã´£³¡ªL

¦^´_ 5# Airman


If .Range("R" & b.Row) - 6 > 0 And .[Q6] > .Range("R" & b.Row) Then
¡@¡@For x = 0 To 6
¡@¡@¡@¡@U = 0
¡@¡@¡@¡@For y = 1 To 2
¡@¡@¡@¡@¡@¡@Set R(y) = Nothing
¡@¡@¡@¡@¡@¡@Set R(y) = .[J6:P6].Offset(RW(y - 1) - x, 0).Find(.[R5], Lookat:=xlWhole)
¡@¡@¡@¡@¡@¡@If R(y) Is Nothing Then Exit For
¡@¡@¡@¡@¡@¡@'If R(y).Column <> R(1).Column Then Exit For '¦PÄæ¥[¦¹¦æ
¡@¡@¡@¡@¡@¡@U = U + 1
¡@¡@¡@¡@Next y
¡@¡@¡@¡@If U = 2 Then
¡@¡@¡@¡@¡@¡@For y = 1 To 2
¡@¡@¡@¡@¡@¡@¡@¡@R(y).Interior.ColorIndex = Array(8, 4)(y - 1)
¡@¡@¡@¡@¡@¡@¡@¡@R(y).Font.ColorIndex = 3
¡@¡@¡@¡@¡@¡@¡@¡@R(y).Font.FontStyle = "²ÊÅé"
¡@¡@¡@¡@¡@¡@Next y
¡@¡@¡@¡@End If
¡@¡@Next x
End If

­Y¦]¡e¨Ö©«¡f¡A¨Ï¤£¦P»Ý¨D±ø¥ó²V¦b¤@°_¡A³y¦¨¾\Ū©Êªº¤£«K¡A
¥i¦V¶WªO¤ÏÀ³¡A©Î¦bµoÃD®É¥[ª`¿ô¥Ø¤å¦r¡I¡@

­Ë¬OÃþ¦ü»Ý¨Dªº°ÝÃD¡A¤w¦³¦h­Ó°Ñ¦Ò¡A¦³®É¶¡¥i¦Û¦æ¥h±ÀºV¨äÅÞ¿è¸Õ¼g¡A¨ÃªðÂаõ¦æ´ú¸Õ¤Î­×§ï¡A
¨ä¹ê»P¤½¦¡¬Û®t¤£»·¡A¤£­n¦b·Nµ{¦¡ªøµu¡A¦³®É¦h¼g´X­Ó§PÂ_¤@¼Ë¥i¹F¦¨¥Øªº¡I