child

¦^´_ 2# GBKEE

ª©¤j¦n^_^
ÁÂÁª©¤jªºÀ°¦£

¤£¦n·N«ä!­è­è¨S¦³±N°ÝÃDÂI»¡©ú²M·¡¡A¥D­n¬O·Q°w¹ï«Ø¥ß®É¶¡©M­×§ï®É¶¡¨â­ÓÄæ¦ì¤§¶¡ªº®É¶¡½d³ò¤ñ¹ï¡C
¥H2011/10/11 8:00~2011/10/11 14:30ªº®É¶¡½d³ò¡A¤U¦C¸ê®Æ­Y¥u¦³¤ñ¹ï­×§ï®É¶¡·|¤ñ¹ï¤£¨ì¡C

»¡©ú:
¬d¸ß®É¶¡2011/10/11 8:00~2011/10/11 14:30ªº®É¶¡°Ï¬q¡A­Y³o¬q®É¶¡¦³®É¶¡¸¨¦b«Ø¥ß®É¶¡~­×§ï®É¶¡³o¬q®É¶¡½d³òùØ¡A«h¥Nªí¦³¤ñ¹ï¨ì¡C

ÀɮצWºÙ        «Ø¥ß®É¶¡            ­×§ï®É¶¡                             ¤ñ¹ï
AA        2011/10/1 08:30        2011/10/12 12:00        Y
AB        2011/10/11 09:05      2011/10/13 20:15        Y
BA        2011/10/1 09:05        2011/10/6 20:15           N

«ÜÁÂÁª©¤jªºÀ°¦£¡A·P¿E¤£ºÉ^_^

GBKEE

¦^´_ 1# child
¸Õ¸Õ¬Ý

1. Sub Ex()
   
2.     Dim A As Long, B As Long, i As Integer
   
3.     A = #10/11/2011 8:00:00 AM#
   
4.     B = #10/11/2011 2:30:00 PM#
   
5.     For i = 1 To [C1].End(xlDown).Row
   
6.         If Cells(i, "C") >= A And Cells(i, "C") <= B Then
   
7.             Cells(i, "D") = "Y"
   
8.         Else
   
9.             Cells(i, "D") = "N"
   
10.         End If
    
11.     Next
    
12. End Sub

½Æ»s¥N½X