GBKEE

¦^´_ 3# imzues

1. Sub Ex()
   
2.     Dim E As Range, R As Range, i As Integer, A As Variant, Timer As Date
   
3.     For Each E In [F5:F10]
   
4.         A = Split(E, "-")
   
5.         i = 0
   
6.         For Each R In [C5:C12]
   
7.             Timer = TimeSerial(Hour(R), Minute(R), 0)
   
8.             If Timer >= TimeValue(Format(A(0), "00:00")) Then
   
9.                 If Timer <= TimeValue(Format(A(1), "00:00")) Then
   
10.                     i = i + R.Cells(1, 2)
    
11.                 End If
    
12.             End If
    
13.          Next
    
14.          E.Cells(1, 2) = i
    
15.     Next
    
16. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# imzues
ªþ¤WÀÉ®× »¡©ú·|²M·¡¨Ç