使用VBA脚本将2个时间变量分配给2个单元格中的时间值会引发类型不匹配错误13

Question

我试图将系统时间与相邻列中存储的开始时间和结束时间进行比较。 在我更改了一些代码之前，以下代码可以正常工作一段时间（但由于无法正常工作而恢复为旧代码）。 恢复为旧代码后，比较无法正常进行，并抛出“类型不匹配”错误“ 13”。 另外，由于未获得正确的输出，For循环后的“ z”值变为0。

任何帮助是极大的赞赏。

Sub MyBtn_Click()

    Dim i As Integer
    Dim w As Integer
    Dim z As Integer
    Dim tm1 As Date
    Dim tm2 As Date
    Dim tm3 As Date
    tm1 = Time
    w = Weekday(Date, vbSunday)
    w = w + 2
    For i = 2 To 32
        tm2 = TimeValue(Cells(i, 1).Text) ' this is the line throwing 'type mismatch'
        tm3 = TimeValue(Cells(i, 2).Text)
        If tm1 >= tm2 And tm1 <= tm3 Then
            z = i
            Exit For
        End If
    Next i
        myMsgBox i ' here i = 32, don't know why
        myMsgBox z ' z = 0 for some reason
        MsgBox Cells(z, w), vbOKOnly, "Result" ' does not give the cell contents as z=0

End Sub

Answer 1

这种逻辑可以达到目的-

If IsDate(Cells(i, 1).Value) And IsDate(Cells(i, 2).Value) Then

...但是仍然，当z变为0时，我遇到了运行时错误。因此，我只是尝试使用.Text（再次将其放回）而不是.Value，现在程序可以正常工作了！

这就是它的样子-

For i = 2 To 32
If IsDate(Cells(i, 1).Text) And IsDate(Cells(i, 2).Text) Then
   time2 = TimeValue(Cells(i, 1).Text)
   time3 = TimeValue(Cells(i, 2).Text)
   If tm1 >= time2 And tm1 <= time3 Then
      z = i
      Exit For
   End If
 End If
Next i

Answer 2

您需要确保该单元格中的值可转换为时间。 如果没有，您将收到不匹配消息。 我也总是使用.value而不是.text

'declare as dates to ensure that the values are treated as dates and not as something else
dim tm1 as Date, tm2 as Date, tm3 as Date

For i = 2 To 32
    'test to make sure the cells have date/time values
    If IsDate(Cells(i, 1).Value) And IsDate(Cells(i, 2).Value) Then
        tm2 = TimeValue(Cells(i, 1).Value) 
        tm3 = TimeValue(Cells(i, 2).Value)
        If tm1 >= tm2 And tm1 <= tm3 Then
            Z = i
            Exit For
        End If
    End If
Next i

您需要使用F8缓慢地逐步执行代码，并在每一步检查变量的值，以确定代码是否正常运行。 该代码将避免MisMatch错误，但是您将需要检查数据以确保其按您希望的方式工作。

关于第二个问题：i = 32，因为这是它在for循环中设置的最后一个值。

z = 0，因为条件永远不会在您的if语句中满足： If tm1 >= tm2 And tm1 <= tm3 Then