Question

Private Sub ROLparameter_Click()
Line1: RolLow = InputBox("Please enter the lower bound percentage for ROL calculation between 0 and 100 (initially " & RolLow * 100 & "%):")

If Not 0 <= RolLow <= 100 Then GoTo Line1
End If

End Sub

我有用户表单按钮，当我按下它将进入此子。问题是它给出了错误“如果没有if就结束”。当我删除end if时，它的工作方式很奇怪。

如;

当用户输入80时，它确实识别RolLow值，为“80”。如果没有将它指向end sub，如果我只使用“if”那么它将一直指向第1行。没有检查价值。

此代码在模块中正常工作。

可能是什么问题？

（变量在潜艇前公开定义）

（我也尝试过module.variable的事）

Answer 1

这是您尝试运行的代码：如果用户输入的值小于0或大于100，则返回 InputBox

Private Sub ROLparameter_Click()

Line1: Rollow = CLng(InputBox("Please enter the lower bound percentage for ROL calculation between 0 and 100 (initially " & Rollow * 100 & "%):"))

If Not ((0 <= Rollow) And (Rollow <= 100)) Then
    GoTo Line1
End If

End Sub

VBA用户表单无法识别是否有功能？

1 个答案: