最有爱的VBA讲解

输入关键字就可以自动返回所有包含关键字的记录,一起看看最有爱的VBA讲解吧~~

风哥哥 !~~~~


怎么了,亲爱的?


老板说,他很多公司都记不住全称,能不能随便输入个关键字就把包含关键字的名字全列出来?


也就是做关键字查询呗?


操作步骤有点多,谁让你总是要帮我。


好好好!!那就用VBA做!


要快要快要赶快,不然我把别人爱。


好了好了,还好有现成的数据,改改就好!


随风哥哥真厉害,我要天天把你爱。


小宝贝儿,别发嗲,哥要给你说代码


Step  01:

右键单击工作表标签→查看代码

Step  02:

把下面的代码复制进事件代码窗口:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim rng As Range

Application.EnableEvents = False '禁用事件(由于这是单元格变化即可触发事件,我们还要对单元格进行录入数据)

If Target.Address = '$C$2' Then '限定触发事件的单元格为C2单元格(target表示触发事件的单元格)

Range('d2:d100').ClearContents '清除上一次的查询结果

For Each rng In Range('a2:a58') '套路,遍历区域

If rng.Value Like '*' & Target.Value & '*' Then 'like关键字匹配包含条件的数据  *表示任意长度字符

i = Cells(Rows.Count, 4).End(xlUp).Row + 1 '获取D列最后一个非空单元格行号

Cells(i, 4) = rng.Value '记录查询结果

End If

Next

End If

Application.EnableEvents = True '启用事件

End Sub


告诉我怎么用啊?亲亲


直接在C2单元格里录入数据即可!


多谢亲亲


再见,宝贝儿~~


图文制作:随风

专业的职场技能充电站
(0)

相关推荐