Автозаполнение комбобокса от userform

Question

Я новичок в VBA, и моя проблема, с которой я борюсь, заключается в том, чтобы автоматически заполнить комбинированный список в моей форме.Например, мой выпадающий список перечисляет эти значения: «яблоко», «дерево», «сок». Я спрашиваю, как сделать так, чтобы он просматривал мой список и когда я пишу «приложение», чтобы предоставить мне результат «яблоко».

Это мой код:

Private Sub ComboBox3_Change()

If Me.ComboBox3.Value <> "" Then
    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("11")
    Set ph = ThisWorkbook.Sheets("22")
Dim i As String

i = Application.Match((Me.ComboBox3.Value), sh.Range("A:A"), 0)

    Me.TextBox8.Value = ph.Range("D" & i).Value
    Me.TextBox13.Value = ph.Range("P" & i).Value
    Me.TextBox41.Value = ph.Range("B" & i).Value

End If
End Sub

Private Sub UserForm_Activate()
Dim i As Integer

Me.ComboBox3.Clear
Me.ComboBox3.AddItem ""

For i = 2 To sh.Range("A" & Application.Rows.Count).End(xlUp).Row

    Me.ComboBox3.AddItem sh.Range("A" & i).Value

Next i

Answer 1

Я не могу воспроизвести вашу проблему.Я сделал ComboBox с элементами, как показано ниже:

Если я начну печатать App, он будет выглядеть ниже, где он выбрал Appleавтоматически

По умолчанию он выполняет именно то, что вы запрашиваете.