Почему 1000 = «нет» — это True?

Question

[ti_zh_vrach]

Добрый день!
Есть часть рабочего кода:

On Error Resume Next
For row_port = 2 To row_port_end
    For row_abc = 2 To row_abc_end
        If Int(portion.Cells(row_port, 6).Value) = Int(abc.Cells(row_abc, 5).Value) Then Call any_do
    Next row_abc
Next row_port
On Error GoTo 0

Обработка исключений нужна, чтобы макрос работал круглосуточно. В обе части равенства приходят числа в виде строки. Слева - входящие данные. Справа - база, куда попала строка "нет". Должен был быть ноль. Без обработки исключений падем в ошибку 13 (type mismatch). А когда обработка есть, то, при попадании слова в правую часть, результат сравнения почему-то True. Почему так происходит? Можно ли как-то обойти или исправить такое поведение с помощью VBA?

Answer 1

[akelsey]

Сделайте нормальный обработчик:

For row_port = 2 To row_port_end
    For row_abc = 2 To row_abc_end
      On Error GoTo ErrHandler
        val1 = Int(portion.Cells(row_port, 6).Value)
        val2 = Int(abc.Cells(row_abc, 5).Value) 
        If  val1  =  val2 Then Call any_do
    Next row_abc
Next row_port
Exit Sub
:ErrHandler
  val1=0
  val2=0
Resume Next

PS
Ну само собой там логику поправьте так как вам нужно val2=0 или только val1=0...

Comments

[ti_zh_vrach]

Немного почитал про Resume.
А если будет так:

On Error GoTo ErrHandler
val1 = Int(portion.Cells(row_port, 6).Value)
val2 = Int(abc.Cells(row_abc, 5).Value)
If  val1  =  val2 Then 
    any_do
End If
Exit Sub
:ErrHandler
  val1=0
  val2=0
Resume Next

Как поведёт себя Resume Next?
Я правильно понял, что Resume Next переводит на следующую строку кода после строки с ошибкой, а Resume 0 - в строку с ошибкой?

[akelsey]

Илья,
Не скажу про Resume 0, может путаете с Goto 0?
А так да - эксепшн - идёт на обработчик, а далее след. комманда по очереди где эксепшн был сгенерирован.

[ti_zh_vrach]

akelsey, да перепутал. Ваш ответ натолкнул меня на отличную идею. Ещё нашёл просто Resume. Кидеает обратно в строку, где возникла ошибка. Наверное, тоже можно как-то использовать.