Vba Excel:RTE 13-类型不匹配

试着编一个小代码来计算一天的工作时间。它会一直工作，直到它遇到里面有“Off”这个词的单元格，然后就轮到我了。我不确定它为什么会这样做，或者不匹配是从哪里来的，因为它所做的只是检查单元格是否为Off，如果是，则在offset hours worked列中输入0。想法？

任何东西都不能减去“关”这个词。（假设在代码部分>代码> > Active EcCEL.Office（i，j）.Value中崩溃。您总是在测试A1。活动单元格从不更改。必须读取：考虑使用<代码>范围。查找< /COD>而不是RooCin。Active EcCEL会发生灾难性的后果。运行此命令，然后在工作表运行时“意外”单击工作表周围的单元格，同时工作表正在运行

Sub Off_Hours_Set_TEST()
      Dim x As String
      Dim found As Boolean
      Dim i As Integer, j As Integer

' Select first line of data.
      Range("A1").Select
' Set search variable value.
      x = "Off"

    For i = 0 To 2
        For j = 0 To 10
            If ActiveCell.Value = x Then
                found = True
                ActiveCell.Offset(i, j + 2) = "0"
            Else
                ActiveCell.Offset(i, j + 2).Value = ActiveCell.Offset(i, j + 1).Value - ActiveCell.Offset(i, j).Value
            End If
            j = j + 2
        Next j
    Next i
End Sub