我的Excel VBA功能并不总是在计算？

Question

我做了一个相当简单的功能来计算某一天某个小时内安排的员工人数。该公式有效，但它并不总是计算它。如果我回到计划中并重新输入单元格中的值，则会重新计算它。这是我的故障还是坏代码。

功能：

 Function CountStaff(StartR As Range, StartTime As Range)
 J = 0
 Dim C As Object
     For Each C In StartR
         CurrentLine = CurrentLine + 1
         If StartTime >= C And StartTime < C.Offset(0, 1) Then
             If C.Interior.ColorIndex <> 43 Then
                 J = J + 1
             End If
         End If
     Next
 CountStaff = J
 End Function

公式：      = CountStaff（B $ 3：B $ 21 $ R3）

Range是计划中所有员工的开始时间，$ R3保留测试时间（比如上午9:00）。颜色检查是指由于休假时间或其他此类事件而突出显示的单元格。