Question

如果在列表框中选择Yes，我试图让VBA显示MsgBox。列表框没有任何特定的ID，但是此代码应该应用于我的列中的所有列表框。有人可以告诉他为什么这不起作用吗？

我收到一个对象未定义的错误，我的第一个if语句工作正常。

谢谢

If Target.Column = Range("V1").Column And _
   Range("R" & ActiveCell.Row).Value = "" And _
   Range("V" & ActiveCell.Row).Value <> "Yes" And _
   Range("G" & ActiveCell.Row).Value = "Pending" And _
   Range("A" & ActiveCell.Row).Value <> "" Then
    If ListBox.SelectedIndex = "Yes" Then
        MsgBox "Are You Sure you want to set-up the supplier on AX?" & vbNewLine & _
               "Waiting for Manager Approval & Documents have not been returned!"
    End If
End If

Answer 1

    If ListBox.SelectedIndex = "Yes" Then

SelectedIndex返回索引，所以1或4等。

如果您想比较实际值，请使用SelectedValue，例如：

    If ListBox.SelectedValue= "Yes" Then

vba检查下拉列表中的项目是否被选中？

1 个答案: