Excel 2010 VBA 入门 125 创建动态智能匹配的下拉列表

目录题码TextBox控件和ListBox控件ListBox控件的ListFiIIRange属性和List属性ListBox控件的多列显示ListBox控件的值模糊查询下拉列表控件的选用ListBox和ComboBox控件题 在Excel中,可以使用数据有效性创建下拉列表。当列表项目较多时,数据有效性所创建的下拉列表就很难快速并准确地定位。如图所示,该表为某公司客户一览,现准备建立查询表,希望在查询表的客户列中建立下拉列表,并允许输入关键字后显示匹配该关键字..
摘要由CSDN通过智能技术生成

目录

TextBox控件和ListBox控件

ListBox控件的ListFiIIRange属性和List属性

ListBox控件的多列显示

ListBox控件的值

模糊查询下拉列表

控件的选用

ListBox和ComboBox控件


    在Excel中,可以使用数据有效性创建下拉列表。当列表项目较多时,数据有效性所创建的下拉列表就很难快速并准确地定位。如图所示,该表为某公司客户一览,现准备建立查询表,希望在查询表的客户列中建立下拉列表,并允许输入关键字后显示匹配该关键字的所有客户的列表。

客户
浙江天星药业有限公司
重庆天邓制药有限责任公司
浙江华丽生物科技有限公司
天津华顺药业有限公司
宁波宝石有限公司
北京盛华有限公司
莱新技术有限公司
上海创新有限公司
浙江邦华有限公司
浙江汉顺生物有限公司
浙江华府制药有限公司
上海倚天有限公司
上海天华有限公司

    在工作表中添加两个ActiveX控件:一个文本框(TextBox)和一个列表框(ListBox)。使用SelectionChange事件控制两个控件的显示和隐藏,并添加文本框的Change事件,查找“客户名称”表中包含文本框中所示文本的所有项目,并添加至列表框中。最后添加列表框的
Click事件,将列表框的值赋值给单元格,并隐藏控件。
 

Option Explicit

Private Sub Worksheet_Activate()
    Me.TextBox1.Visi
  • 4
    点赞
  • 37
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 1
    评论
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

ngbshzhn

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值