Excel VBA 런타임 오류 '13'형식 불일치 오류

Question

내 변수의 정의에 문제가 있는데 어디에서 또는 왜 볼 수 없습니다. 교사가 배운 교훈의 양을 세는 것은 아주 간단한 코드입니다. 이 정보는 워크 시트 'Subects and Teachers 2018'에 있으며 '교사'워크 시트에 인쇄해야합니다. 수량은 항상 이름 왼쪽에 표시됩니다.

다음은 코드입니다. 누군가 내가 잘못 정의한 것에 대한 힌트를 줄 수 있다면 나는 매우 감사 할 것입니다! 디버깅은 문제가 코드 끝에 포함되지 않은 ***** 행에 있음을 나타냅니다.

Sub Counter2018() 
    Dim Var1 As String 
    Dim CVar1 As Integer 

    Dim i As Integer 
    Dim j As Integer 
    Dim k As Integer 

    For k = 2 To 50 
     Var1 = Worksheets("Teachers").Cells(k, 3) 
     CVar1 = 0 
     For i = 2 To 45 
      For j = 2 To 45 
       If Worksheets("2018 Subjects and Teachers").Cells(i, j) = Var1 Then 
        CVar1 = CVar1 + Worksheets("2018 Subjects and Teachers").Cells(i, j - 1) ***** 
       End If 
      Next j 
     Next i 
     Worksheets("Teachers").Cells(k, 5) = CVar1 
    Next k 
End Sub 

Answer 1

---

Option Explicit 

Public Sub Counter2018() 
    Dim wsTeachers As Worksheet, wsSubjects As Worksheet 

    Set wsTeachers = Worksheets("Teachers") 
    Set wsSubjects = Worksheets("2018 Subjects and Teachers") 

    Dim teacher As String, counter As Long 
    Dim i As Long, j As Long, k As Long 

    For k = 2 To 50 
     teacher = wsTeachers.Cells(k, 3) 
     counter = 0 
     For i = 2 To 45 
      For j = 2 To 45 
       If wsSubjects.Cells(i, j).Value2 = teacher Then 
        If Not IsError(wsSubjects.Cells(i, j - 1)) Then 
         counter = counter + Val(wsSubjects.Cells(i, j - 1).Value2) 
        End If 
       End If 
      Next 
     Next 
     wsTeachers.Cells(k, 5) = counter 
    Next 
End Sub 

---

내가 형식 불일치 오류가 wsSubjects.Cells(i, j - 1)

그 카운터에 일부 셀에 의해 발생 생각 (안된)이 버전을 사용해보십시오가에 숫자를 기대 그 열에는 문자열이나 오류가있을 수 있습니다.