Question

根据用户表单上的条目尝试使用If Else的无辜新手：

If OptionButtonMed.Value = True Then
    pp = pp + 2
ElseIf OptionButtonLarge = True Then
    pp = pp + 4
ElseIf OptionButtonXL = True Then
    pp = pp + 8
Else: pp
End If

它根本不起作用。建议值得。

Answer 1

您收到运行时错误，因为您的Else声明，您需要为pp提供有效值。

如果您尝试pp = pp +1或任何值，它都会有效。

此外，最好在.Value尝试测试Critera之后保留Control。（= True实际上不是必需的）

将您的代码修改为：

If OptionButtonMed.Value Then
    pp = pp + 2
ElseIf OptionButtonLarge.Value Then
    pp = pp + 4
ElseIf OptionButtonXL.Value Then
    pp = pp + 8
Else
    pp = pp + 1 ' <-- just for example
End If

非功能性IF Else VBA

1 个答案: