- ©«¤l
- 2798
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2854
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-4-20
|
¦^´_ 10# jjloiasd
R = Cells(Rows.Count, "C").End(xlUp).Row '¨ú±oC¦C³Ì«á¤@®æ
D = Cells(R, "c") '¨ú±o³Ì«á¤@Ó¤é´Á
If Not IsDate(D) Then Exit Sub 'ÀË´ú¬O§_¬°¤é´Á
For i = R To 2 Step -1 '¥Ñ¤U¦Ó¤W°j°é
If Cells(i, "c") <> D Then Exit For '¦b¤é´Á¦³±Æ§Ç, ©¹¤W¹J¨ì¤£¬O³Ì«á¤é´Á, ¸õ¥X°j°é
If Cells(i, "AQ") = "±b±¿ù»~" Then K = 1: Exit For '·íAQÄ榳¿ù»~´£¥Ü¤å¦r®É, K½áÈ1, ¸õ¥X°j°é
Next i
If K > 0 Then MsgBox "½Ðª`·N!! " & D & " ±b±¿ù»~ " 'YKȤj¤_0, ªí¥Ü¦³¿ù»~, µo¥X´£¿ô |
|