函数+VBA，详细讲解用EXCEL做工艺流程管理系统（vba的3种流程控制结构）
用EXCEL做工艺流程管理系统
主要内容： 工艺流程管理系统的设计、数据录入、数据更改、数据查找以及基础数据的维护。
工艺流程管理系统的设计：包含界面设计和流程设计，因为每个公司或行业的工艺流程都存在差异，所以本次以上期发布的作品为例进行讲解。
数据录入：本文采用VBA的方式（含代码注释）
数据更改：当相同项目名（项目名为唯一值）录入时，系统自动删除原有数据，并录入新数据。
数据查找：数据查找采用函数公式的方式完成。
基础数据维护：基础数据维护采用直接修改基础数据所在工作表内容。
1、基础数据：
1.1 首先我们在EXCEL中新建一个工作表，如下图所示。将包含的项目名一一列出在表一中，将我们所需要设计到的工序名和设备名罗列在表二中，并将对应工序或设备需要控制的关键参数横向罗列在表中，如下图所示。
1.2 创建“项目名”名称管理器：选中表格—公式—根据所选内容创建定义的名称—首行—确定。
1.3创建“设备名”名称管理器：选中表格—公式—根据所选内容创建定义的名称—首行—确定。
1.4基础数据创建好后可直接进入下一步，如果后期有需要更改或增加的信息可直接在表一和表二中修改即可。
1.5 在开始之前先创建选图的所有表格，方便后期数据录入与查找。
2、信息录入界面设计：信息录入界面这里以上一期发布的作品为例。首先新建一个工作表，命名为“工艺流程维护”，再按照下图的方式在工作表中划定对应区域。这里可以根据工序的数量增加。下图设计为6道工序。
2.1 关键参数：对应的关键参数信息在钢网维护的基础数据内，下面我们就讲解如何在我们选择对应的工序或设备名后，自动显示对应的关键信息。
2.2 工序名或设备名的选择：按下图顺序依次选择对应单元格—数据—数据验证—序列– =INDIRECT($F$8)—确定。创建设备名的下拉选择框。按照同样的方式完成后面5个单的设置。
2.3 创建完后可下拉选择基础数据内的设备名。
2.4 对应设备的关键参数读取：如下图所示，选择对应设备后自动读取对应设备的关键参数。这里通过查找函数“vlookup”来实现。
2.4.1 查找函数：在选择关键参数的第一个单元格输入公式：=IFERROR(VLOOKUP($F$9,下拉信息!$F:$K,2,FALSE),"")
在选择关键参数的第二个单元格输入公式：= IFERROR(VLOOKUP($F$9,下拉信息!$F:$K,3,FALSE),"")
在选择关键参数的第三个单元格输入公式：= IFERROR(VLOOKUP($F$9,下拉信息!$F:$K,4,FALSE),"")
在选择关键参数的第四个单元格输入公式：= IFERROR(VLOOKUP($F$9,下拉信息!$F:$K,5,FALSE),"")
在选择关键参数的第五个单元格输入公式：= IFERROR(VLOOKUP($F$9,下拉信息!$F:$K,6,FALSE),"")
公式注释：在下图选中区域去查找F9单元格的值（F9单元格为上图的设备名），然后返回查找值对应行的第2行的值。
2.4.2 按照同样的方式，将公式复制到后面5列的关键参数区域即可。
2.5 创建项目名的下拉菜单：按照下图的顺序首先选择要创建项目名的单元格—数据—数据验证—序列–=INDIRECT($C$8)—确定。
2.6 录入和清除按钮：依次选择 开发工具—选择按钮—拖动按钮。修改按钮的名字为录入。并复制一个改名为清除。
2.7 插入模块 依次选择开发工具—visual—鼠标右键单击空白处—插入—模块
2.8 清除代码：新建一个清除的宏， 输入下图的代码即可
2.8.1 代码注释：
Sub 清除() 新建一个清除的宏
Sheet1.Range("f9:u9") = "" 将Sheet1（工艺流程维护）工作表F9到U9区域的值清除。
End Sub 结束宏
2.9 录入代码：录入代码是将下图红色区域（关键参数对应的数据）录入到指定工作表中，方便后期的查询。
2.9.1继续在下面创建一个录入代码的宏。
2.9.2 代码注释：代码运行的逻辑见下图，由于篇幅限制这里不再一一翻译，有兴趣的小伙伴可联系我单独讨论哦。
3、工艺流程查看：首先新建一个“工艺流程查看”的工作表。然后按下图的方式划定对应区域。这里所有查询信息均以函数公式的方式实现。
3.1 按照上面讲解的方式创建项目名的下拉信息。
3.2 通过VLOOKUP去查找对应项目名的设备：
图一
图二
3.2.1 在查找单元格输入公式：=IFERROR(VLOOKUP($C$6,数据源!$A:$K,2,FALSE),"")
3.2.2 公式大概意思是：在数据源的A列到K列区域（图二）中去查找C6(图一项目名所在单元格)的值，并返回查找值所在行的第二行的值。其中IFERROR的作用是查找返回错误值时返回空值。依次将所有公式复制到对应的设备单元格即可。这里讲解不是很详细，如果对VLOOKUP函数不是很了解的话可能不是很容易理解，有兴趣的话可以网上查看一下VLOOKUP函数的教材或联系小编交流。
3.3 关键参数读取：这里主要用到MATCH函数，if函数和OFFSET函数。
图三
图四
3.3.1 通过OFFSET函数返回第一个关键参数的值=IF(OR(F6=0,F6=""),"",OFFSET(关键参数表!$C$1,关键参数表!$G$1,ROW()-7))
通过match函数查找对应项目的行号。=IFERROR(MATCH(工艺流程查看!$C$6,关键参数表!$A:$A,0),1)-1（这里熟悉的话可以将两个函数写在一起）
3.3.2公式注释：以上公式的意思就是从图四的C1单元格从下移动G1(图四单元格)锁对应的值（图片对应的值是下移19行）。然后向右（列号）移动图三（G7单元格所在行号-7）0列（因为G7对应的行号是7，再减7，所以是0）。
3.3.3 通过同样的方式将公式复制到所有的关键参数对应的单元格内即可。
结语：由于篇幅限制，这里不一一讲解函数的运用。如果上期分享有获得作品的小伙伴可自行学习研究。也可以根据本文的讲解进行修改以便适用于自己。好啦，本期就分享到这里！
有喜欢本文的可点赞、转发、评论支持哦。希望大家多多支持！
