如何实现输入部分内容即下拉显示所有符合条件的列表

ranqingfeng

如全校职工姓名为：张三、张四、王五、刘七、李八。。。。。。，如果输入张，则显示张三、李四的下拉列表，如果输入王，则显示王五。
“有效性”只能解决下拉列表(全部职工)的问题，不能解决有限显示且自动弹出显示的问题。

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

ranqingfeng

谢谢你，不愧为盟主，哈哈