和VB中的运算符

时间:2017-07-26 20:53:00

标签: excel vba excel-vba

我正在尝试编写一些VB代码,以便在有人从下拉菜单中选择许可选项但不指示数量时显示错误消息。

当他们选择许可选项时,它会填充定义名称为FSValue的单元格。紧挨着另一个单元格来指定数量,称为FSQuantity。 FSValue的默认值为空(空),FSQuantity的默认值为零。

如果他们从下拉菜单中选择一个选项并填充FSValue单元格,但没有指明数量,我想显示错误消息。

这是我尝试使用的代码(我已经尝试了几次迭代,使用定义的单元名称和单元格位置):

If (FSValue = "") And (FSQuantity = 0) Then
     MsgBox ("Please Enter a Value Quantity")
     Range("F47").Select
     Exit Sub
End If

我也尝试使用嵌套的if语句,例如:

If FSValue = "" Then
    If FSQuantity=0 Then
        MsgBox ("Please Enter a Quantity")
        Range("F47").Select
        Exit Sub
    End if
End if

没有什么工作,似乎不应该那么困难。任何帮助将不胜感激。

2 个答案:

答案 0 :(得分:2)

  

如果他们从下拉菜单中选择一个选项并填充FSValue单元格,但没有指明数量,我想显示错误消息。

FSValue = "" 

一起看看这些事情。此时,他们选择了一个值。 FSValue不再是空白。你想要这个:

FSValue <> ""

答案 1 :(得分:0)

您可能希望将测试包装在NZ功能中,

如果Nz(FSValue,“”)=“”那么     如果Nz(FSQuantity,0)= 0那么         MsgBox(“请输入数量”)         范围( “F47”)。选择         退出子     万一 如果

结束