how to create Searchable Combobox in Excel VBA

Опубликовано: 15 Май 2021
на канале: Daood Computer Academy

6,489

VBA Code
Private Sub calc_combo()
ComboBox1.Clear
Dim ln As Long
Dim lrow As Long

ln = Len(TextBox1.Text)

For lrow = 3 To Sheet1.Range("b" & Rows.Count).End(xlUp).Row

If UCase(Left(Sheet1.Cells(lrow, 2), ln)) = UCase(TextBox1.Text) Then
ComboBox1.AddItem Sheet1.Cells(lrow, 2)
End If
Next

End Sub

Private Sub TextBox1_Change()
Call calc_combo
End Sub

Private Sub UserForm_Initialize()
Call calc_combo
End Sub

Смотрите видео how to create Searchable Combobox in Excel VBA онлайн без регистрации, длительностью часов минут секунд в хорошем качестве. Это видео добавил пользователь Daood Computer Academy 15 Май 2021, не забудьте поделиться им ссылкой с друзьями и знакомыми, на нашем сайте его посмотрели 6,48 раз и оно понравилось 9 людям.

1,82