런타임 오류를 찾을 수 없습니다 (13) 원인

Question

나는 이중 기준에 간단한 카운터를 설정하려고 내가

런타임 오류에 의해 중단하고 13

당신이 우는 소리시피, I 여러 개의 카운터를 모두 Integer로 가지고 있고 열 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 

이 난

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

처럼 바로 셀 구문에서 워크 시트 이름을 재배치하려하지만 도움이 될 것 같지 않습니다. 아무도 제안이 있습니까? If를 추가하는 것을 잊어 버렸습니다. 디버거에 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을 제외한 모든 변수는 Integer입니다.

2. 모든 변수 (Integer)는 자동으로 0으로 초기화됩니다.

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

   R은 다음이 비교 결과에 q 등 비교 0 같은지 여부를 체크있어 논리 비교, 즉를 가져온다.

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