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

GBKEE

¦^´_ 3# child
If Cells(i, "C") >= A And Cells(i, "C") <= B Then  §ï¦¨ ->  If Cells(i, "B") >= A And Cells(i, "C") <= B Then