目录
ListBox控件的ListFiIIRange属性和List属性
题
在Excel中,可以使用数据有效性创建下拉列表。当列表项目较多时,数据有效性所创建的下拉列表就很难快速并准确地定位。如图所示,该表为某公司客户一览,现准备建立查询表,希望在查询表的客户列中建立下拉列表,并允许输入关键字后显示匹配该关键字的所有客户的列表。
客户 |
浙江天星药业有限公司 |
重庆天邓制药有限责任公司 |
浙江华丽生物科技有限公司 |
天津华顺药业有限公司 |
宁波宝石有限公司 |
北京盛华有限公司 |
莱新技术有限公司 |
上海创新有限公司 |
浙江邦华有限公司 |
浙江汉顺生物有限公司 |
浙江华府制药有限公司 |
上海倚天有限公司 |
上海天华有限公司 |
码
在工作表中添加两个ActiveX控件:一个文本框(TextBox)和一个列表框(ListBox)。使用SelectionChange事件控制两个控件的显示和隐藏,并添加文本框的Change事件,查找“客户名称”表中包含文本框中所示文本的所有项目,并添加至列表框中。最后添加列表框的
Click事件,将列表框的值赋值给单元格,并隐藏控件。
Option Explicit
Private Sub Worksheet_Activate()
Me.TextBox1.Visi