- ©«¤l
- 2805
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2861
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-5-4
|
¦^´_ 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 |
|