标题: 如何实现输入部分内容即下拉显示所有符合条件的列表 [打印本页] 作者: ranqingfeng 时间: 2009-10-1 11:23 标题: 如何实现输入部分内容即下拉显示所有符合条件的列表 如全校职工姓名为：张三、张四、王五、刘七、李八。。。。。。，如果输入张，则显示张三、李四的下拉列表，如果输入王，则显示王五。
“有效性”只能解决下拉列表(全部职工)的问题，不能解决有限显示且自动弹出显示的问题。作者: pureshadow 时间: 2009-10-1 20:35
显示窗体
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 时间: 2009-10-5 07:15
谢谢你，不愧为盟主，哈哈