我有一个模块,该模块可以找到最小值和最大值以计算测量范围。
我无所适从。它可以正常工作3个月,并以错误编译错误Invalid qualifier停止。 Val突出显示为蓝色。
'查找切割带的最小值和最大值。
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
预期结果是最大值和最小值之间的差。实际结果是突出显示Val的语法错误。