ComboBox数字MatchEntry

Question

我的用户表单中有一个ComboBox，它包含数值列表。当我按下字母字符但不能使用数字字符时，不同的Combobox自动完成。

单击数值时，是否可以将MatchEntry（或任何其他属性）设置为自动填充？

Answer 1

这样的事情有帮助吗？

Option Explicit

Dim i As Long

Private Sub UserForm_Initialize()
    For i = 100 To 1000 '<~~ Adding sample data for testing
        ComboBox1.AddItem "Sid" & i
        ComboBox1.AddItem i
    Next
End Sub

Private Sub ComboBox1_Change()
    For i = 0 To ComboBox1.ListCount - 1
        If ComboBox1.Value = Left(ComboBox1.List(i), Len(ComboBox1.Value)) Then
            ComboBox1.Value = ComboBox1.List(i)
            Exit For
        End If
    Next i
End Sub