用于循环检查datetime是否在另一个工作表上的2个datetime单元格之间的VBA

Sub CheckDateTime()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim datetimeToCheck As Date
    Dim startDatetime As Date
    Dim endDatetime As Date
    Dim cell As Range
    
    ' 设置工作表
    Set ws1 = ThisWorkbook.Worksheets("Sheet1") ' 修改为实际的工作表名称
    Set ws2 = ThisWorkbook.Worksheets("Sheet2") ' 修改为实际的工作表名称
    
    ' 获取要检查的datetime
    datetimeToCheck = ws1.Range("A1").Value ' 修改为实际的单元格位置
    
    ' 获取起始datetime和结束datetime
    startDatetime = ws2.Range("A1").Value ' 修改为实际的单元格位置
    endDatetime = ws2.Range("B1").Value ' 修改为实际的单元格位置
    
    ' 循环检查
    For Each cell In ws2.Range("C1:C10") ' 修改为实际的单元格范围
        If datetimeToCheck >= startDatetime And datetimeToCheck <= endDatetime Then
            cell.Value = "在范围内"
        Else
            cell.Value = "不在范围内"
        End If
    Next cell
End Sub