软件|EXCEL仿软件制作模糊查找下拉筛选框 excel

【软件|EXCEL仿软件制作模糊查找下拉筛选框】

文章图片

文章图片

多数分析软件中的筛选器可以实现部分字段输入后显示下拉筛选框供使用者快速获取需要的选项值。如在tableau中的使用效果是这样的。

在我的实际工作中，这样的操作方式是非常便捷的，在不需要输入全部款号的情况下也可进行筛选，特别是当你只记得款号的部分内容时，这种筛选器表现的尤为省时省力。
软件毕竟不常用，那么如何利用Excel制作出仿软件式模糊查找下拉筛选框呢？
需要用的工具有列表框、文本框、宏代码、SQL 。代码部分会在文末分享，所以实际操作中没有想象中的困难。
使用时只需要插入列表框、文本框控件，再将文末的代码放置在相应的Sheet宏编辑器内。

上述操作完成后，就可以进行额外的“高级操作” 。

代码中<select distinct 名称 from [清单$
where 名称>需要修改的部分是“名称”和“清单” 。其中名称为本例中的款号，清单为需要查找的款号所在的工作表。
本例的全部代码如下：
Private Sub TextBox1_GotFocus()
TextBox1.Text = \"\"
End Sub
Private Sub TextBox1_Change()
Dim arr() As Variant
ListBox1.Visible = True
'sql基本模式
Set conn = CreateObject(\"Adodb.Connection\")
conn.Open \"Provider=Microsoft.ACE.OLEDB.12.0;extendedproperties=excel 12.0;data source=\" & ThisWorkbook.Path &\"/\" & ThisWorkbook.Name
Sql = \"select distinct名称from [清单$
where名称like '%\" & TextBox1.Text & \"%'\"
Set rst = conn.Execute(Sql)
'sql基本模式语句结束
ListBox1.Clear
On Error Resume Next
arr = rst.getrows
ListBox1.List() = Application.Transpose(arr)
Set rs = Nothing
conn.Close
If ListBox1.ListCount < 1 Then
ListBox1.Visible = False
End If
End Sub
Private Sub ListBox1_Click()
TextBox1.Value = https://mparticle.uc.cn/api/ListBox1.Value
ListBox1.Visible = False
End Sub

软件|EXCEL仿软件制作模糊查找下拉筛选框

相关经验推荐

如何炖羊肉最营养？炖羊肉的技巧有哪些？

二次元|假如猫咪也能够二次元化，你是否会从此爱上养宠物

双十一|双11后怎么选手机懂行的人推荐这三款款款高性价比你最钟爱哪一款

南京雨花台区教资认定体检要注意什么2023

节食减肥的危害都有哪些

爆炒猪肝图片高清大图爆炒猪肝图片

果酸换肤后多久可以化妆

金麒麟黄叶落叶怎么处理好金麒麟黄叶落叶怎么处理

对于喜欢观看电竞比赛的小伙伴们来说|RNG陷入“欠薪”风波，被Mlxg和一笑联手控告，猫神无辜“躺枪”了！

3个月开出300多家店！盒马一出手，社区电商抖三抖！

2023年喀什大学硕士研究生调剂公告 2023年喀什大学硕士研究生调剂公告发布

鸡蛋肉丸面条怎么做鸡蛋肉丸煮面怎么做

山姆会员卡用了一次可以全额退款吗-山姆会员卡用了一次可以免费退吗

毛衣缩水了怎么办？毛衣缩水了怎么恢复

山药猪肝辅食怎么做好吃

新鲜的红桃k怎么晒干红桃k可以晒干保存吗

身体这几处毛发越浓密财气越旺

原神：魈专属圣遗物曝光，绫人大招加攻速成疑，八重池子有祭礼剑

2023绍兴越城区综合类事业编招聘报名时间及网上入口

Dota2：“茶队这群人真狗”！茶队一番操作惹圈内人士不满！