필터링 후 보이는 셀을 통해 루프

Question

For Each cell In rnData.Columns(13).SpecialCells(xlCellTypeVisible) 
    If cell > 0.25 And cell < 0.3 And cell.Offset(0, 3) >= valueMin And cell.Offset(0, 3) < valueMax And Year(cell.Offset(0, -2)) = Year(Sheet3.Cells(4, 3)) And Month(cell.Offset(0, -2)) = Month(Sheet3.Cells(4, 3)) Then 
     sum1 = sum1 + cell.Offset(0, 7) 
    End If 
Next 

이 코드는 런타임 오류 13을 반환하며, 문제가 될 수 있습니다.

Answer 1

숫자에 문자열을 추가하려고하면 오류 번호 13을 얻을 수 있습니다. 따라서 sum1 = sum1 + cell.Offset(0, 7)cell.Offset(0,7)은 아마도 문자열입니다. 런타임 오류가 표시되면 키를 누릅니다 Ctrl 키 + G,

For Each cell In rnData.Columns(13).SpecialCells(xlCellTypeVisible) 
    If cell > 0.25 And cell < 0.3 And cell.Offset(0, 3) >= valueMin And cell.Offset(0, 3) < valueMax And Year(cell.Offset(0, -2)) = Year(Sheet3.Cells(4, 3)) And Month(cell.Offset(0, -2)) = Month(Sheet3.Cells(4, 3)) Then 
     debug.print cell.Offset(0,7);sum 
     sum1 = sum1 + cell.Offset(0, 7) 
    End If 
Next 

하고 직접 실행 창에서 값을 살펴 :

은 다음과 같이 코드를 다시 작성

. 그 중 하나는 숫자가 아닌 문자열이어야합니다.