目录一、项目概述二、系统整体架构与设计亮点1. 架构设计2. 核心设计亮点三、核心功能模块详解1. 首页导航模块2. BOM 物料管理模块3. 车间生产日报模块冲压 / 注塑 / 载带 / 全检 / 自动化工序4. 生产周报可视化分析模块5. 生产月报可视化分析模块6. 生产年报模块四、VBA 自动化核心技术实现五、核心代码1. 首页导航跳转按钮点击事件2. 生产指标自动计算3. 多条件一键查询按日期 物料筛选4. 周报自动汇总核心逻辑5. 一键导出当前数据六、系统价值与应用场景1. 企业价值2. 典型应用场景七、系统获取非开源|系统定制|咨询|合作联系一、项目概述智慧工厂 PMSProduction Management System生产管理系统 是一套基于 ExcelVBA 开发的轻量化生产管理系统专为中小电子制造企业打造解决了传统生产管理中数据分散、统计滞后、分析低效、追溯困难等痛点。系统以 Excel 为载体通过 VBA 实现自动化数据处理、一键查询、报表生成与可视化分析无需复杂部署即可快速落地覆盖从 BOM 管理、车间日报采集到周 / 月 / 年度生产数据可视化的全流程管理帮助企业实现生产过程的透明化、数据化管控提升生产效率与质量管控水平。二、系统整体架构与设计亮点1. 架构设计系统采用模块化多工作表架构以 “主页” 为导航入口通过工作表标签页实现不同业务模块的隔离与联动同时通过 VBA 实现跨工作表数据互通、自动计算与批量操作核心架构如下模块层级核心功能对应工作表首页导航层系统入口、模块快速跳转、日期展示主页基础数据层BOM 物料层级管理、产品结构维护BOM 录入车间执行层各工序生产日报数据采集与查询冲压日报、注塑日报、载带日报、全检日报、自动化一报、自动化二报数据分析层周 / 月 / 年度生产数据汇总与可视化分析生产周报、生产月报、生产年报2. 核心设计亮点低门槛落地基于 Excel 开发无需额外安装复杂软件兼容 WPS/Office电脑端直接打开即可使用适配中小企业的低成本数字化需求。全流程联动通过 VBA 实现数据自动流转车间日报数据自动同步至周 / 月 / 年报无需人工二次录入减少数据误差。可视化看板周 / 月 / 年报模块集成科技风可视化仪表盘自动生成产量趋势、良率分析、达成率等图表生产状态一目了然。轻量化交互系统内置一键查询、一键导出、快速定位、返回顶部等 VBA 功能按钮降低操作门槛一线员工可快速上手。权限与易用性平衡支持工作表保护与单元格锁定防止误操作修改基础数据同时保留业务数据的编辑权限兼顾数据安全与使用灵活性。三、核心功能模块详解1. 首页导航模块功能定位系统的总控入口提供模块快速跳转与系统欢迎界面提升使用体验。核心内容系统标题与中英文标识智慧生产PMS系统 / Smart Production PMS System明确系统定位。业务模块导航按钮直接跳转至 BOM 录入、冲压日报、注塑日报、载带日报、全检日报、自动化一报、自动化二报、生产周报、生产月报、生产年报等核心工作表。日期自动展示显示当前系统日期辅助生产数据的时间管理。轻量化视觉设计采用工业风插画与紫色主题配色契合电子制造场景同时降低 Excel 文件体积避免卡顿。2. BOM 物料管理模块功能定位产品物料清单的层级化管理支持 1-4 级 BOM 结构维护为生产数据采集提供基础物料编码支撑。核心功能多级 BOM 录入4 级 BOM延伸至物料明细层级实现全产品结构的完整追溯。3 级 BOM绑定上级 BOM 与物料编码、物料名称如 A11X、NT11-E、C2 等细化至具体物料。2 级 BOM绑定上级 BOM 与产品系列如 RF - 一代、16P、18P 等建立成品与系列的关联。1 级 BOM维护成品编码与成品名称如 RF 射频座、TYPE-C、MICRO USB 等。基础数据维护支持物料编码、名称的批量录入与修改为后续生产日报的物料匹配提供基础数据。一键定位功能通过 VBA 实现快速跳转至指定 BOM 层级提升大型 BOM 结构的维护效率。3. 车间生产日报模块冲压 / 注塑 / 载带 / 全检 / 自动化工序功能定位各生产工序的日常数据采集与管理是系统的核心数据来源覆盖电子制造的全工序生产管控。通用功能各工序日报通用生产数据采集支持录入日期、产品系列、产品类型、成品名称、物料编码、物料名称、计划产量、实际产量、不良数量、良品数量、负责人、备注等核心字段。自动计算指标通过 VBA 与 Excel 公式自动计算完成率、不良率、合格率无需人工手动计算确保数据准确性。合格率 良品数量 / 实际产量不良率 不良数量 / 实际产量完成率 实际产量 / 计划产量可视化数据看板内置产量达成对比、产品良率对比柱状图实时展示计划与实际产量、良品与不良品的对比情况。多条件查询支持按开始 / 结束日期、成品名称、物料编码、物料名称一键查询历史生产数据快速定位目标记录。数据导出与定位通过 VBA 实现一键导出将日报数据导出为独立文件、快速定位跳转至指定数据行功能提升数据处理效率。工序差异化适配冲压日报、注塑日报等不同工序可根据业务特点调整字段与看板配置适配不同工序的生产管理需求。4. 生产周报可视化分析模块功能定位以周为单位汇总各工序生产数据实现生产过程的阶段性分析与可视化管控。核心功能数据自动汇总自动拉取本周各工序日报数据生成部门生产作业周数据汇总分析表按周一至周日维度统计计划产量、实际产量、不良品产出、合格品产出、生产达成率、不良率占比、合格率占比。核心指标仪表盘周生产达成率、周不良品占比、周合格品占比的环形图可视化展示。周计划产量、周实际产量、周不良品产出、周合格品产出的总量统计。多维度趋势分析本周生产良率分析直观对比不良率与合格率占比辅助质量管控决策。生产合格品分析、产品质量分析通过折线图 / 柱状图展示本周良品与不良品的变化趋势。生产作业产能趋势分析本周每日产能利用情况。生产作业计划趋势展示本周每日计划产量与实际产量的变化趋势。工序筛选支持切换不同生产部门如冲压部、注塑部查看对应工序的周度生产数据。智能提示当无生产数据时自动提示 “本周暂无生产数据记录建议先录入生产数据后再进行数据分析”避免无效操作。5. 生产月报可视化分析模块功能定位以月为单位汇总全月生产数据实现月度生产绩效、质量指标的全面分析与复盘。核心功能月度数据汇总自动整合当月 1-31 日的生产日报数据生成部门生产作业月数据汇总分析表按日期维度统计各项生产指标。月度核心指标看板展示月计划产量、月实际产量、月不良品产出、月合格品产出、月生产达成率、月不良品占比、月合格品占比的关键数据。多维度趋势分析生产作业计划趋势展示全月每日计划与实际产量的变化趋势。生产作业产能趋势分析月度产能波动情况识别产能瓶颈。生产合格品分析、产品质量分析展示月度良品与不良品的分布趋势定位质量问题高发时段。月度生产良率分析对比月度不良率与合格率占比评估整体质量水平。工序筛选支持切换不同生产部门查看各工序的月度生产数据适配多车间管理需求。6. 生产年报模块功能定位以年度为周期汇总全年生产数据为年度生产复盘、产能规划、质量改进提供数据支撑功能逻辑与周 / 月报一致适配年度数据统计需求。四、VBA 自动化核心技术实现系统的核心能力依赖 VBA 实现关键自动化功能如下功能技术实现与作用一键查询通过 VBA 编写筛选与查询代码根据用户输入的日期、物料等条件自动过滤日报数据快速定位目标记录替代手动筛选操作。一键导出将当前工作表的日报数据通过 VBA 导出为独立 Excel 文件支持按日期 / 工序命名方便数据备份与跨部门分享。跨工作表数据联动通过 VBA 实现日报数据向周 / 月 / 年报的自动同步无需人工复制粘贴确保数据一致性减少人工误差。快速定位与返回顶部针对大型 BOM 表与年报数据通过 VBA 实现一键跳转至指定单元格或工作表顶部提升操作效率。自动计算与校验通过 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 Sub2. 生产指标自动计算 自动计算合格率、不良率、达成率 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 Sub3. 多条件一键查询按日期 物料筛选 多条件查询生产日报 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 Sub4. 周报自动汇总核心逻辑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 Sub5. 一键导出当前数据 一键导出数据到新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 开发启用宏即可直接使用适合电子、注塑、冲压、装配等中小型车间简单易上手有使用问题、功能需求可以在评论区留言我会尽量回复如需定制化修改、新增功能计件工资、设备管理等也可交流觉得实用欢迎点赞、收藏、关注后续会持续更新更多实战项目