日漫肉番在线观看,outdome,黑衣人2高清完整版下载
随着输入文本的逐步增多,供选择的条目会逐渐自动减少,直至精确匹配,如下图1所示。
图1
其实,实现上述效果的过程很简单。
将数据放置在工作表Sheet1的列A中,如图2所示。
图2
创建动态的名称Data,如图3所示。
图3
在VBE中,创建一个如图4所示的用户窗体,上方用于输入的文本框命名为txtFind,下方用于显示的列表框命名为lbxData。
图4
在用户窗体模块中,输入代码:
'完美Excel 创建
'微信公众号: excelperfect
PrivateSub txtFind_Change()
Dim i As Long
Dim strFind As String
strFind = "*" &UCase(Me.txtFind.Text) & "*"
With Me.lbxData
.List = Application.Transpose([Data])
For i = .ListCount - 1 To 0 Step -1
If Not UCase(.List(i)) Like strFindThen
.RemoveItem i
End If
Next i
End With
EndSub
说明:
在文本框中输入内容时,VBA会即时将输入的内容和列表框中的数据进行比较,并移除不匹配的数据。
也可以在代码中使用VBA的Filter函数,达到同样的效果:
'完美Excel 创建
PrivateSub txtFind_Change()
Me.lbxData.List =Filter(SourceArray:=Application.Transpose([Data]), _
Match:=txtFind.Value, _
Include:=True, _
Compare:=vbTextCompare)
EndSub
扩展
收集用户输入的数据:如果用户输入的数据不在已有列表中,那么可以将该数据自动放置到列表中,这样,再次输入时就会出现该数据
如对本文有疑问,请在下面进行留言讨论,广大热心网友会与你互动!! 点击进行留言回复
同一个Excel 文件中的任意多个工作表合并到一个表中的神技
Excel 根据身份证直接算出退休年月 用哪个函数 如何区别男女
Excel 中如何选择正确的地图类型及各种地图类型的应用场景
根据入职日期用Excel 计算工龄补贴 满1年补贴50满2年补贴100
Excel 微图表对数据进行可视化处理实现数据与图表的一体化衔接
被雪藏的datedif()函数的典型用法 适用最新版本的Excel
EXCEL 数据分析之合并单元格后按合计得分排序的整个心路历程
Excel-VBA批量将表达式转换为运算结果把代表的汉字给替换掉
网友评论