Excel+VBA实战：中小型制造企业PMS生产管理系统完整设计与实现

目录

一、项目概述

二、系统整体架构与设计亮点

1. 架构设计

2. 核心设计亮点

三、核心功能模块详解

1. 首页导航模块

2. BOM 物料管理模块

3. 车间生产日报模块（冲压 / 注塑 / 载带 / 全检 / 自动化工序）

4. 生产周报可视化分析模块

5. 生产月报可视化分析模块

6. 生产年报模块

四、VBA 自动化核心技术实现

五、核心代码

1. 首页导航跳转（按钮点击事件）

2. 生产指标自动计算

3. 多条件一键查询（按日期 + 物料筛选）

4. 周报自动汇总（核心逻辑）

5. 一键导出当前数据

六、系统价值与应用场景

1. 企业价值

2. 典型应用场景

七、系统获取

非开源|系统定制|咨询|合作联系

一、项目概述

智慧工厂 PMS（Production Management System）生产管理系统 是一套基于 Excel+VBA 开发的轻量化生产管理系统，专为中小电子制造企业打造，解决了传统生产管理中数据分散、统计滞后、分析低效、追溯困难等痛点。系统以 Excel 为载体，通过 VBA 实现自动化数据处理、一键查询、报表生成与可视化分析，无需复杂部署即可快速落地，覆盖从 BOM 管理、车间日报采集到周 / 月 / 年度生产数据可视化的全流程管理，帮助企业实现生产过程的透明化、数据化管控，提升生产效率与质量管控水平。

二、系统整体架构与设计亮点

1. 架构设计

系统采用模块化多工作表架构，以 “主页” 为导航入口，通过工作表标签页实现不同业务模块的隔离与联动，同时通过 VBA 实现跨工作表数据互通、自动计算与批量操作，核心架构如下：

2. 核心设计亮点

• 低门槛落地：基于 Excel 开发，无需额外安装复杂软件，兼容 WPS/Office，电脑端直接打开即可使用，适配中小企业的低成本数字化需求。
• 全流程联动：通过 VBA 实现数据自动流转，车间日报数据自动同步至周 / 月 / 年报，无需人工二次录入，减少数据误差。
• 可视化看板：周 / 月 / 年报模块集成科技风可视化仪表盘，自动生成产量趋势、良率分析、达成率等图表，生产状态一目了然。
• 轻量化交互：系统内置一键查询、一键导出、快速定位、返回顶部等 VBA 功能按钮，降低操作门槛，一线员工可快速上手。
• 权限与易用性平衡：支持工作表保护与单元格锁定，防止误操作修改基础数据，同时保留业务数据的编辑权限，兼顾数据安全与使用灵活性。

三、核心功能模块详解

1. 首页导航模块

• 功能定位：系统的总控入口，提供模块快速跳转与系统欢迎界面，提升使用体验。
• 核心内容：

1. 系统标题与中英文标识：智慧生产PMS系统 / Smart Production PMS System，明确系统定位。
2. 业务模块导航按钮：直接跳转至 BOM 录入、冲压日报、注塑日报、载带日报、全检日报、自动化一报、自动化二报、生产周报、生产月报、生产年报等核心工作表。
3. 日期自动展示：显示当前系统日期，辅助生产数据的时间管理。
4. 轻量化视觉设计：采用工业风插画与紫色主题配色，契合电子制造场景，同时降低 Excel 文件体积，避免卡顿。

2. BOM 物料管理模块

• 功能定位：产品物料清单的层级化管理，支持 1-4 级 BOM 结构维护，为生产数据采集提供基础物料编码支撑。
• 核心功能：
• 多级 BOM 录入：

1. 4 级 BOM：延伸至物料明细层级，实现全产品结构的完整追溯。
2. 3 级 BOM：绑定上级 BOM 与物料编码、物料名称（如 A11X、NT11-E、C2 等），细化至具体物料。
3. 2 级 BOM：绑定上级 BOM 与产品系列（如 RF - 一代、16P、18P 等），建立成品与系列的关联。
4. 1 级 BOM：维护成品编码与成品名称（如 RF 射频座、TYPE-C、MICRO USB 等）。
5. 基础数据维护：支持物料编码、名称的批量录入与修改，为后续生产日报的物料匹配提供基础数据。
6. 一键定位功能：通过 VBA 实现快速跳转至指定 BOM 层级，提升大型 BOM 结构的维护效率。

3. 车间生产日报模块（冲压 / 注塑 / 载带 / 全检 / 自动化工序）

• 功能定位：各生产工序的日常数据采集与管理，是系统的核心数据来源，覆盖电子制造的全工序生产管控。
• 通用功能（各工序日报通用）：

1. 生产数据采集：支持录入日期、产品系列、产品类型、成品名称、物料编码、物料名称、计划产量、实际产量、不良数量、良品数量、负责人、备注等核心字段。
2. 自动计算指标：通过 VBA 与 Excel 公式自动计算完成率、不良率、合格率，无需人工手动计算，确保数据准确性。
3. 合格率 = 良品数量 / 实际产量
4. 不良率 = 不良数量 / 实际产量
5. 完成率 = 实际产量 / 计划产量
6. 可视化数据看板：内置产量达成对比、产品良率对比柱状图，实时展示计划与实际产量、良品与不良品的对比情况。
7. 多条件查询：支持按开始 / 结束日期、成品名称、物料编码、物料名称一键查询历史生产数据，快速定位目标记录。
8. 数据导出与定位：通过 VBA 实现一键导出（将日报数据导出为独立文件）、快速定位（跳转至指定数据行）功能，提升数据处理效率。
9. 工序差异化适配：冲压日报、注塑日报等不同工序，可根据业务特点调整字段与看板配置，适配不同工序的生产管理需求。

4. 生产周报可视化分析模块

• 功能定位：以周为单位，汇总各工序生产数据，实现生产过程的阶段性分析与可视化管控。
• 核心功能：

1. 数据自动汇总：自动拉取本周各工序日报数据，生成部门生产作业周数据汇总分析表，按周一至周日维度统计计划产量、实际产量、不良品产出、合格品产出、生产达成率、不良率占比、合格率占比。
2. 核心指标仪表盘：周生产达成率、周不良品占比、周合格品占比的环形图可视化展示。周计划产量、周实际产量、周不良品产出、周合格品产出的总量统计。
3. 多维度趋势分析：
4. 本周生产良率分析：直观对比不良率与合格率占比，辅助质量管控决策。
5. 生产合格品分析、产品质量分析：通过折线图 / 柱状图展示本周良品与不良品的变化趋势。
6. 生产作业产能趋势：分析本周每日产能利用情况。
7. 生产作业计划趋势：展示本周每日计划产量与实际产量的变化趋势。
8. 工序筛选：支持切换不同生产部门（如冲压部、注塑部），查看对应工序的周度生产数据。
9. 智能提示：当无生产数据时，自动提示 “本周暂无生产数据记录，建议先录入生产数据后再进行数据分析”，避免无效操作。

5. 生产月报可视化分析模块

• 功能定位：以月为单位，汇总全月生产数据，实现月度生产绩效、质量指标的全面分析与复盘。
• 核心功能：
  1. 月度数据汇总：自动整合当月 1-31 日的生产日报数据，生成部门生产作业月数据汇总分析表，按日期维度统计各项生产指标。
  2. 月度核心指标看板：展示月计划产量、月实际产量、月不良品产出、月合格品产出、月生产达成率、月不良品占比、月合格品占比的关键数据。
  3. 多维度趋势分析：
     • 生产作业计划趋势：展示全月每日计划与实际产量的变化趋势。
     • 生产作业产能趋势：分析月度产能波动情况，识别产能瓶颈。
     • 生产合格品分析、产品质量分析：展示月度良品与不良品的分布趋势，定位质量问题高发时段。
     • 月度生产良率分析：对比月度不良率与合格率占比，评估整体质量水平。
  4. 工序筛选：支持切换不同生产部门，查看各工序的月度生产数据，适配多车间管理需求。

6. 生产年报模块

• 功能定位：以年度为周期，汇总全年生产数据，为年度生产复盘、产能规划、质量改进提供数据支撑，功能逻辑与周 / 月报一致，适配年度数据统计需求。

四、VBA 自动化核心技术实现

系统的核心能力依赖 VBA 实现，关键自动化功能如下：

五、核心代码

1. 首页导航跳转（按钮点击事件）

' 首页导航按钮 - 跳转到冲压日报 Sub btnToStampingDaily() On Error Resume Next Sheets("冲压日报").Select Range("A1").Select On Error GoTo 0 End Sub ' 跳转到生产月报 Sub btnToMonthlyReport() On Error Resume Next Sheets("生产月报").Select Range("A1").Select On Error GoTo 0 End Sub

2. 生产指标自动计算

' 自动计算合格率、不良率、达成率 Sub AutoCalculateKPI() Dim ws As Worksheet Dim lastRow As Long Dim i As Long Set ws = ActiveSheet lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row ' 从第3行开始计算（假设表头占2行） For i = 3 To lastRow ' 计划产量 planVal = ws.Cells(i, "H").Value ' 实际产量 realVal = ws.Cells(i, "I").Value ' 不良数量 badVal = ws.Cells(i, "J").Value If realVal > 0 Then ' 良品数 ws.Cells(i, "K").Value = realVal - badVal ' 达成率 ws.Cells(i, "L").Value = realVal / planVal ' 不良率 ws.Cells(i, "M").Value = badVal / realVal ' 合格率 ws.Cells(i, "N").Value = (realVal - badVal) / realVal Else ws.Cells(i, "K:N").ClearContents End If Next i MsgBox "指标计算完成！", vbInformation End Sub

3. 多条件一键查询（按日期 + 物料筛选）

' 多条件查询生产日报 Sub QueryDailyData() Dim ws As Worksheet Dim startDate As Date, endDate As Date Dim materialCode As String Set ws = Sheets("冲压日报") startDate = Range("StartDate").Value endDate = Range("EndDate").Value materialCode = Trim(Range("MaterialCode").Value) ' 取消原有筛选 ws.Range("A2:N10000").AutoFilter Field:=1 ' 日期范围筛选 ws.Range("A2:N10000").AutoFilter Field:=1, Criteria1:=">=" & startDate, Operator:=xlAnd, Criteria2:="<=" & endDate ' 物料编码不为空则追加筛选 If materialCode <> "" Then ws.Range("A2:N10000").AutoFilter Field:=6, Criteria1:=materialCode End If MsgBox "查询完成，已显示符合条件的数据！", vbInformation End Sub

4. 周报自动汇总（核心逻辑）

vb

' 自动汇总本周生产数据到周报 Sub AutoCollectWeeklyData() Dim wsWeek As Worksheet, wsDaily As Worksheet Dim i As Long, j As Long Dim weekStart As Date, today As Date Set wsWeek = Sheets("生产周报") weekStart = wsWeek.Range("WeekStartDate").Value ' 遍历每日数据 For i = 0 To 6 today = DateAdd("d", i, weekStart) ' 从各日报表读取对应日期数据 ' 冲压车间 Set wsDaily = Sheets("冲压日报") ' 匹配日期并汇总产量、不良、良品 ' 写入周报对应列 wsWeek.Cells(10, 3 + i).Value = totalReal wsWeek.Cells(11, 3 + i).Value = totalBad wsWeek.Cells(12, 3 + i).Value = totalGood Next i ' 刷新图表 Call RefreshWeeklyChart MsgBox "本周数据汇总完成！", vbInformation End Sub

5. 一键导出当前数据

' 一键导出数据到新Excel Sub ExportToNewFile() Dim wbNew As Workbook Dim ws As Worksheet Dim fileName As String Set ws = ActiveSheet fileName = "生产数据_" & Format(Date, "YYYYMMDD") & ".xlsx" ' 新建工作簿并复制内容 Set wbNew = Workbooks.Add ws.Cells.Copy wbNew.Sheets(1).Range("A1") wbNew.Sheets(1).Name = "导出数据" ' 保存 wbNew.SaveAs ThisWorkbook.Path & "\" & fileName wbNew.Close MsgBox "导出完成：" & vbCrLf & ThisWorkbook.Path & "\" & fileName, vbInformation End Sub

六、系统价值与应用场景

1. 企业价值

• 降本增效：减少人工统计、数据录入的时间成本，数据处理效率提升 80% 以上，同时降低人工误差带来的管理风险。
• 数据透明化：生产数据实时汇总，管理层可通过周 / 月 / 年报看板，随时掌握产量、良率、达成率等核心指标，实现数据驱动决策。
• 全流程追溯：通过 BOM 层级与日报数据联动，实现从成品到物料的全链路追溯，快速定位质量问题根源。
• 轻量化落地：无需服务器、无需复杂部署，仅需 Excel 即可运行，适配中小电子制造企业的低成本数字化转型需求。

2. 典型应用场景

• 电子制造企业多工序（冲压 / 注塑 / 自动化 / 全检）的日常生产数据采集与管理。
• 生产车间的产量、良率、达成率的实时监控与阶段性复盘。
• 产品物料清单（BOM）的层级化维护与物料追溯。
• 月度 / 年度生产绩效分析与产能规划，为生产计划调整提供数据支撑。

七、系统获取

大家点赞、收藏、关注、评论啦 、👇🏻获取方式在文章末尾👇🏻

非开源|系统定制|咨询|合作

• 系统基于VBA + Excel 开发，启用宏即可直接使用
• 适合电子、注塑、冲压、装配等中小型车间，简单易上手
• 有使用问题、功能需求可以在评论区留言，我会尽量回复
• 如需定制化修改、新增功能（计件工资、设备管理等）也可交流
• 觉得实用欢迎点赞、收藏、关注，后续会持续更新更多实战项目