对于项目计划编制，需要在Excel中，分别针对不同部门的计划进行分组编制，数据记录多，读写频繁，容易误差。在此，介绍如何通过VBA代码编程，设计自定义窗体，来实现不同部门计划数据记录的自动过滤。
工具/原料
1
Excel中VBA userform filter自定义窗体过滤数据记录流程
2
自定义窗体的字段名称同步主要计划要素名称
3
UserForm1.Show
4
UserForm_Initialize()
5
UserForm1.ComboBox01.AddItem '?'
6
PA As Variant
7
PA = Array()
8
Select Case
9
UserForm1('Label0' & Cou).Caption = PA(Cou)
10
Rows(Cnt).Hidden = False
方法/步骤
1
如下Excel中，是一份项目计划表，分别制定了项目、物流、生产、质量、财务等五个部门的项目进度，行数较多，维护记录不便；
2
使用VBA代码编程，自定义窗体如下，以项目部为基准模板，下拉列表；
3
下拉列表选择Logistic后，Excel表仅剩下物流部的计划数据记录，而且自定义窗体的字段名称同步为物流部的主要计划要素名称；
4
下拉列表选择Produce后，Excel表仅剩下生产部的计划数据记录；
5
下拉列表选择Quality后，Excel表仅剩下质量部的计划数据记录；
6
下拉列表选择Finance后，Excel表仅剩下财务部的计划数据记录；
7
如下VBA代码1st；
8
如下VBA代码2nd；
9
如下VBA代码3rd；
10
如下VBA代码4th；