Hsieh

¦^´_ 5# child

1. Sub nn()
   
2. a = #10/11/2011 8:00:00 AM#
   
3. b = #10/11/2011 2:30:00 PM#
   
4. For Each C In Range([C2], [C2].End(xlDown))
   
5. d = C.Offset(, -1)
   
6. If (a >= d And a <= C) Or (b >= d And b <= C) Then C.Offset(, 1) = "Y" Else C.Offset(, 1) = "N"
   
7. Next
   
8. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 7# child


    ¨S¿ù°Ú!

¤U¸ü (108.99 KB)

2011-10-12 20:33

Hsieh

¦^´_ 9# child
§PÂ_¦¡ªº±ø¥ó¬Ý¬Ý³o¼Ë°÷¤£°÷

1. Sub nn()
   
2. a = #10/11/2011 8:00:00 AM#
   
3. b = #10/11/2011 12:30:00 PM#
   
4. For Each C In Range([C2], [C2].End(xlDown))
   
5. d = C.Offset(, -1)
   
6. If (a >= d And a <= C) Or (a <= d And a <= C) Or (b >= d And C <= b) Then C.Offset(, 1) = "Y" Else C.Offset(, 1) = "N"
   
7. Next
   
8. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 11# child

¥Î²Â¤èªk¸Ñ¨M

1. Sub nn()
   
2. Dim i#
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. a = CDbl(#10/11/2011 8:00:00 AM#)
   
5. b = CDbl(#10/11/2011 2:30:00 PM#)
   
6. For Each c In Range([C2], [C2].End(xlDown))
   
7. k = Int(a) - Int(c.Offset(, -1))
   
8. c.Offset(, 1) = "N"
   
9. For i = IIf(k = 0, c.Offset(, -1), Int(c.Offset(, -1)) + k - 1) To c Step TimeValue("00:01:00")
   
10.    If i >= a And i <= b Then c.Offset(, 1) = "Y": Exit For
    
11. Next
    
12. Next
    
13. End Sub

½Æ»s¥N½X