找不到运行时错误13的原因

Question

我试图建立一个双重标准的简单计数器，我停下来

运行时错误13

正如你看到的那样，我有多个计数器，全部都是整数，我希望它们根据列D和A的值来计算每个被锁定的命中。）如果它很重要：D列中的文本是通过Dates-comparisson在另外两列中，但格式为文本）。

Private Sub Workbook_Open()

Dim lr, i, k, a, b, c, d, e, f, g, h, j, l, m, n, o, p, q, r, s As Integer

a = b = c = d = e = f = g = h = j = l = m = n = o = p = q = r = 0

Worksheets("overdue").Activate

lr = Range("D" & Rows.Count).End(xlUp).Row

k = 1

For i = 1 To lr

If Cells(i, "D").Value = "OVERDUE" And Cells(i, "A") Like "*φίλτρου*" Then
a = a + 1
ElseIf Cells(i, "D").Value = "OVERDUE" And Cells(i, "A") Like "*Λιπαντικού*" Then
b = b + 1

k = k + 1

End If
Next i

我甚至试图在单元格语法中重新定位Worksheet-name

If Worksheets("overdue").Cells(i, "D").Value = "OVERDUE" And Worksheets("overdue").Cells(i, "A") Like "*ößëôñïõ*" Then

但它似乎没有帮助。有人有建议吗？我忘了添加，调试器显示If正在开始的行，所以第一个计数器的语句。

另外，我看到，如果我彻底改变代码并尽可能地简化代码，就像这样

 Sub testcounter()

 Dim cell As Range
 Dim a As Integer

 For Each cell In Worksheets("Sheet2").Range("D1:D3500")

 If cell.Value = "1" Then
 a = a + 1
 End If
 Next

 MsgBox a

 End Sub

它仍然给出了

错误13

在IF声明的第一行。

Answer 1

1. 除s外，所有变量都不是Integers。
2. 所有变量（他们是Integers）都会自动初始化为零。
3. a = b = c = d = e = f = g = h = j = l = m = n = o = p = q = r = 0提出逻辑比较，即检查r是否等于0，然后将该比较的结果与q进行比较，依此类推。

Answer 2

Dim a, b, c, d As Integer '<< only d is integer...

a = b = c = d = 0

Debug.Print "a", a
Debug.Print "b", b
Debug.Print "c", c
Debug.Print "d", d

输出：

a             True
b             
c             
d              0