Внести уникальное значение в Комбобокс.

[KOSTIK1]

Всем доброго здравия! Помогите пожалуйста доработать код. Вносятся значения в комбобокс5, как сделать их уникальными то есть без повторений.

Private Sub ComboBox3_Click()
   ComboBox5.Clear

    N = 0
    While Worksheets(3).Cells(N + 2, 3).Value <> ""
        N = N + 1
    Wend
    For i = 1 To N
        If ComboBox3.Text = Worksheets(3).Cells(i + 1, 3).Value And ComboBox2.Text = Worksheets(3).Cells(i + 1, 2).Value Then
            
            ComboBox5.AddItem Worksheets(3).Cells(i + 1, 4).Value
        End If
    Next

End Sub

Заранее Спасибо.

[SAS888]

Попробуйте так:

Private Sub ComboBox3_Click()
    Dim i As Long, x As New Collection: ComboBox5.Clear
    With Sheets(3)
    For i = 2 To .Cells(Rows.Count, 3).End(xlUp).Row
        If .Cells(i, 3) <> "" Then
            If ComboBox3.Text = .Cells(i + 1, 3) Then
                If ComboBox2.Text = .Cells(i + 1, 2) Then
                    On Error Resume Next
                    x.Add .Cells(i + 1, 4), CStr(.Cells(i + 1, 4))
                    If Err = 0 Then ComboBox5.AddItem .Cells(i + 1, 4) Else On Error GoTo 0
    End If: End If: End If: Next: End With
End Sub

Примечание: Вложенные операторы If будут выполняться быстрее, чем один If с несколькими условиями (And, Or и т.п.), т.к. в последнем случае, проверяются (вычисляются) все условия, не зависимо от того, выполняется какое-нибудь из них, или нет.

[KOSTIK1]

Спасибо SAS888! Работает. Только немного трудновато читать ваш код, для меня он немного замудрёный, но да ладно, главное идёт. Спасибо ещё раз.
Нашёл в инете такой вариант, только не понял как его можно приспособить, что Вы думаете про этот способ?
Можно использовать свойство MatchFound

ComboBox1.Style = fmStyleDropDownCombo 
For i = 1 To 25 
    ComboBox1.Text = Cells(i, 2) 
    If ComboBox1.MatchFound = False Then ComboBox1.AddItem Cells(i, 2) 
Next 
ComboBox1.Text = "" 
ComboBox1.Style = fmStyleDropDownList 'Если нужно заблокировать ручной ввод

[SAS888]

Можно и так. Все зависит от конкретной задачи. После закрытия формы значения, внесенные в ComboBox теряются, а созданную коллекцию уникальных значений можно использовать (если, конечно, это нужно).

[KOSTIK1]

Спасибо за разъяснения, просто мне показался этот код немного по проще. В принципе задача решена, за что Вам спасибо.