标题: 如何实现数据的下拉框选择与输入共存。 [打印本页] 作者: sohuriancy 时间: 2008-12-28 10:24 标题: 如何实现数据的下拉框选择与输入共存。 在excel中，可以利用“数据有效性”定义数据，如“男,女”。像这种有效数据较少的，可以直接用下拉框选择。但是，如果数据很多，比如“所学专业”，也想用这种方式定义，然后选择，如果一条一条地选，耗时费力。
记得有些数据库，可以输入几个字，就自动显示相近的定义好的数据。
比如，在数据有效性中包括“机械设计制造，机械设计制造及自动化，机械工程”等，在字段中输入“机械”，这三个字段自动弹出，可以选择，其他与此无关的字段不再出现。
即：实现下拉框选择与输入共存。
如何操作？作者: pureshadow 时间: 2008-12-28 12:14
显示窗体
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 时间: 2008-12-28 20:10
初学，看不懂。
当然，还是要谢谢！作者: joyark 时间: 2011-7-3 00:44
受益非浅