VBA，添加比较值列表框组合框答案

【问题标题】：VBA, add compare values listbox comboboxVBA，添加比较值列表框组合框
【发布时间】：2014-08-27 19:51:49
【问题描述】：

在用户表单中，我有一个列表框和一个组合框，列表框将通过“添加”按钮从组合框接收值，我需要编写一个控件来检查组合框中选择的值是否已存在于列表框中，如果它存在如果没有添加值，则会播放哔声。这是一些经过测试的代码之一，空值的控制运行良好，但无法添加 vlues 或 tst 控件。

If etatgen.Value = vbNullString Then
    MsgBox ("Non authorized value")
    Exit Sub
Else
Dim i As Integer
    For i = 0 To (lstetatgen.ListCount - 1)
        If lstetatgen.List(i) = etatgen.Value Then
            Exit for
        Else
            lstetatgen.AddItem etatgen.Value
        End If
    Next
End If

谢谢

【问题讨论】：

你的问题是什么？
抱歉，原帖已更新

标签： excel vba combobox listbox compare

【解决方案1】：

我通过编辑我的代码找到了解决问题的方法，这是一个示例

 existant = 0
 non_existant = 0


If etatgen.Value = vbNullString Then
    MsgBox ("Valeur vide non autorisée")
    Exit Sub
Else
Dim i As Integer
    For i = 0 To (lstetatgen.ListCount - 1)
           If lstetatgen.List(i) = etatgen.Value Then
            MsgBox ("Existant")
            existant = 1
        Else
            non_existant = 1
        End If

    Next i


End If
If existant = 1 Then
Else
lstetatgen.AddItem etatgen.Value
End If
Exit Sub

【讨论】：