如何实现数据的下拉框选择与输入共存。

sohuriancy

在excel中，可以利用“数据有效性”定义数据，如“男,女”。像这种有效数据较少的，可以直接用下拉框选择。但是，如果数据很多，比如“所学专业”，也想用这种方式定义，然后选择，如果一条一条地选，耗时费力。
记得有些数据库，可以输入几个字，就自动显示相近的定义好的数据。
比如，在数据有效性中包括“机械设计制造，机械设计制造及自动化，机械工程”等，在字段中输入“机械”，这三个字段自动弹出，可以选择，其他与此无关的字段不再出现。
即：实现下拉框选择与输入共存。
如何操作？

pureshadow

显示窗体       
        sub show()
        UserForm1.Show
        End Sub
设置       
        Private Sub ComboBox1_Change()
            On Error Resume Next
            Dim xx()
            Dim zz(0)
            ww = ComboBox1.Value
            yy = Application.CountIf(Columns(1), ww & "*")
            If yy = 0 Then ComboBox1.List() = zz
            ReDim xx(yy - 1)
            k = -1
            For i = 1 To Sheets("sheet1").[a65536].End(xlUp).Row
                If Cells(i, 1).Value Like ww & "*" Then
                    k = k + 1
                    xx(k) = Cells(i, 1).Value
                End If
            Next i
            ComboBox1.List = xx
            ComboBox1.DropDown
        End Sub

sohuriancy

初学，看不懂。
当然，还是要谢谢！

joyark

受益非浅