在2021年春晚排练单中VBA模糊筛选你喜爱的演员和节目|vba|控件|春晚|节目单

置顶公众号或设为星标，否则可能收不到文章

个人微信号 | （ID：LiRuiExcel520）

微信服务号 | 跟李锐学Excel（ID：LiRuiExcel）

一年过得飞快，在春节即将到来的日子里，一定有很多人都在关心春节联欢晚会里是否有自己喜爱的演员和节目吧。

这类数据筛选、多条件查询的工作是Excel最拿手的了，无论是你想按照演员姓名查询，还是按照节目名称或类别查询，Excel都可以一键搞定！

就像这样，输入条件（支持模糊条件查询）后点击“挑选”按钮，一键查询：

今天我就根据春晚排练时公布的节目单作为实际案例，介绍VBA根据查询条件模糊筛选报表的技术，帮助大家开拓思路，换一种新视角看待Excel筛选。

本教程内容担心记不全的话，可以分享到朋友圈给自己备份一份。

除了本文内容，还想全面、系统、快速提升Excel技能，少走弯路的同学，请搜索微信公众号“LiRuiExcel”点击底部菜单，或下方二维码进知识店铺。

更多不同内容、不同方向的Excel视频课程

为了方便大家查询春晚节目，我将做好代码的Excel文件在本篇文尾提供下载，可以联系小助手获取。

准备数据源

首先把春晚排练单数据源准备好，如下图所示。

一句话解析：

你想按照几种方式提供查询，就可以把原始数据分别放置在几列中，比如节目类别放置在B列，节目名称和表演者放置在C列。

当然，以上节目单仅供参考，因为在最后两天时间里，春晚导演组应该还会有局部的优化微调，最终完整节目单及播放顺序以除夕春晚当天播出为准。

创建条件筛选区域

在挑选节目工作表中，分别准备好按照类别、节目表演者及内容的条件输入区域，如下图所示的A1:B2单元格区域

一句话解析：

这里和前面数据源结构对应，如果实际需要更多的条件，可以继续增加条件列。

进入VBE界面插入模块

按进入VBA后台的VBE界面，插入模块，如下图所示。

一句话解析：

很多同学可能听过VBA，但是第一次听说VBE，VBA是我们编程使用的工具，是一门程序语言，而VBA代码保存在哪里呢，就在VBE里面。

VBE是Visual Basic Edirtor的缩写，即VB代码编译器，是编写和保存VB代码的地方，在Excel里面体现为VB代码窗口的形式。

输入VBA代码

在刚才插入的模块中输入以下VBA代码，代码区底部有滚动条可以左右拖动查看。

Sub 挑选()Dim arr(1 To 99, 1 To 3)r = Sheets("春晚排练单").[a65536].End(3).Rowk = 1For i = 2 To rIf Sheets("春晚排练单").Cells(i, 2).Value Like "*" & Sheets("挑选节目").[a2].Value & "*" And _Sheets("春晚排练单").Cells(i, 3).Value Like "*" & Sheets("挑选节目").[b2].Value & "*" Thenarr(k, 1) = Sheets("春晚排练单").Cells(i, 1).Valuearr(k, 2) = Sheets("春晚排练单").Cells(i, 2).Valuearr(k, 3) = Sheets("春晚排练单").Cells(i, 3).Valuek = k + 1End IfNext iSheets("挑选节目").Range("a5").Resize(UBound(arr), 3) = arrEnd Sub

输入代码后，效果如下图所示。

一句话解析：

这里根据实际需要输入代码，此案例要求根据条件挑选节目，所以输入了一个sub（宏过程）名为“挑选”。

当工作需要时，我们可以输入更多个sub应对不同需求，方便用到哪个调用哪个。

插入控件按钮

在开发工具中插入控件按钮，并单击鼠标右键指定宏为“挑选”，也就是刚才输入的那段代码。

一句话解析：

如果VBA代码包含更多sub宏过程，可以分别插入多个控件按钮分别调用。这里仅调用“挑选”就可以实现需求，所以只插入了一个按钮足够用了。

一键查询

这时就可以根据在条件区域输入的条件，模糊查询结果了，条件不必输入完整，支持部分条件模糊查询。

比如按类别一键查询

比如按表演者姓名一键查询：