根据时间范围在单元格上设置If语句

我在这里是新的，目前我有一个使用VB在Excel中build立一个macros的任务。 这是我为当前单元设置的逻辑：

Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then Range("D" & Target.Row) = Date Range("E" & Target.Row) = Format(Now, "hh:mm:ss") End If End Sub 

每当有人在B行的一个单元格内input信息时，它会在input时自动获取date和时间（types的日志）。 我需要的是取决于单元格E的时间框架，我需要根据从单元格E到另一行的时间框架计算信息。

• class次1 =上午6:30至下午2:30
• class次2 = 2:30 pm – 11:30 pm
• class次3 = 11:30 pm – 6:30 am

有什么build议么？

Answer 1

我刚刚得到答案，这是加起来3如果语句如下：

 If Time > TimeValue("6:30:00") And Time <= TimeValue("14:30:00") Then Range("F" & Target.Row) = "1st Shift" If Time > TimeValue("14:30:01") And Time <= TimeValue("23:30:00") Then Range("F" & Target.Row) = "2nd Shift" If Time > TimeValue("23:30:01") And Time <= TimeValue("6:30:00") Then Range("F" & Target.Row) = "Overtime"