У меня есть модуль, который находит самые низкие и самые высокие значения для расчета диапазона измерений.
У меня нет вариантов, чтобы попробовать. Он работал нормально в течение 3 месяцев и просто остановился с ошибкой при компиляции. Вал выделен синим цветом.
'Нахождение значений Min и Max обрезанной ленты.
Dim tMin As Integer
Dim tMax As Integer
tVar = 0
tMin = 10
tMax = -10
For j = 1 To 5
If tMin > Val(Controls("Tape" & j)).Value Then
tMin = Val(Controls("Tape" & j)).Value
End If
If tMax < Val(Controls("Tape" & j)).Value Then
tMax = Val(Controls("Tape" & j)).Value
End If
Debug.Print tMin, tMax
Next j
tVar = tMax - tMin
ожидаемый результат - разница между значениями Max и Min. Фактические результаты - синтаксическая ошибка с выделенным Val.