VBA, 비교 값을 추가 listbox 콤보 상자

Question

사용자 폼에 목록 상자와 콤보 상자가 있고 목록 상자에 '추가'단추를 통해 콤보 상자의 값이 표시됩니다. 콤보 상자에서 선택한 값이 이미 존재하는지 확인하기 위해 컨트롤을 작성해야합니다. 목록 상자에 값이 있으면 삐 소리가 재생됩니다. 이것은 몇 가지 테스트 코드 중 하나입니다, 빈 값의 컨트롤은 잘 작동하지만 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 

감사

Answer 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