关健字模糊查询，怎么写代码

枫丹白露

求助版主：


    附件表格，列表框共7列，请帮我修改代码，使点击列表框第2列《客户》，即显示后面5列的内容及MsgBox对话框的内容,如下图



    再帮忙写一段关健筛选的代码，在列表框上可以输入关健字，进行模糊索检，比如：在客户处输入"联智"或联系人处输入"林小姐",即可获得该客户的各要素

582766

二个需求合在一起，看能不能满足你

枫丹白露

582766 发表于 2022-11-27 20:43
二个需求合在一起，看能不能满足你

非常感谢，正是我需要的，谢谢

枫丹白露

582766 发表于 2022-11-27 20:43
二个需求合在一起，看能不能满足你

但是，如果在另一个工作表，就不能打开这个数据了

能不能修改一下，使在同工作簿的另一个工作表里，也能查询？

枫丹白露

582766 发表于 2022-11-27 20:43
二个需求合在一起，看能不能满足你

可以了，加Sheet2就可以了，谢谢

582766

数据源固定就好了

枫丹白露

582766 发表于 2022-11-27 21:36
数据源固定就好了

我如果把数据源的工作表加密，就不能查询了，要怎么改？

数据源那张表，我需要加密，以防被人修改

还有，查询出来的标题，有时是一行，有时会有两行，如图

582766

枫丹白露 发表于 2022-11-27 22:38
我如果把数据源的工作表加密，就不能查询了，要怎么改？

数据源那张表，我需要加密，以防被人修改

用代码隐藏就好了，标题的问题第二个附件已经改好了，

niko88819

老师所有代码都遗失可以贴出分享吗

枫丹白露

582766 发表于 2022-11-27 23:17
用代码隐藏就好了，标题的问题第二个附件已经改好了，

你是说把数据源的这张工作表隐藏吗？
不能隐藏，因为经常也要添加新客户，只能密码锁定，用密码才可以修改

可是我加密后，列表框就搜索不到了