设备检修记录治理全自动Excel工作表制作方法

既然是检修作业，那么就要留下事情痕迹，记录管理也要做到完善。

如果是一些同质化的表格记录，可以利用Excel高效地完成这些记录操作。

本节重点先容一下，如何制作检修记录管理的操作过程。

No.2

如下图所示，紧张的维修记录模版大概便是这个样子，也是所有检修记录操作的主页。

右侧为一些操作按钮，分别实现不同的功能。

技能哀求、施工方案、检修职员这三个按钮实现对表格的输入功能，单击按钮后弹出一个对话框，分别进行内容输入，确定之后，自动添加到表格里。

下图为，单击检修职员按钮弹出检修职员列表框，这些职员都是自定义预设在表格内的姓名。

检修记录按钮可实现对检修记录表查看，删除的一些功能。

检修记录列表，可自动查找出所有记录表，正常情形下，这些表都设置了隐蔽模式，单击查看按钮可自动显示，进行修正、打印等操作。

也可实现记录表删除功能。

选择某一个记录列表，单击删除记录按钮，记录表就删除了。

打印预览、和保存记录也是十分实用的两个功能。

下面看一下代码：

上图代码为保存记录表的按钮代码，其功能是将编辑完成的表进行保存，首先对记录表进行一个检重处理，也便是说是否已经保存过了，如果表已经存在，那么就删除以前的表。

如果是第一次保存，就进行保存。

为什么要对表进行保存，这是一个十分主要的过程，如果不保存那么就没有记录的意义。

而所有操作都在这一个表进行操作，以是，要对当前编辑的表其余复制到一个新表里面。

设备名称和代码匹配代码：

Private Sub Worksheet_Change(ByVal Target As Range)'''''''''''''''''' 设置设备代码If Not Target.Address = "$B$2" Then Exit Sub Dim S As Worksheet, cell As Range, cR As Range, ri As Integer Set S = ThisWorkbook.Worksheets("set") ri = S.Cells(S.Rows.Count, 1).End(xlUp).Row If ri <= 1 Then Exit Sub Set cell = S.Range("A2:A" & ri) Set cR = cell.Find(what:=Target.Value, LookIn:=xlValues, lookat:=xlWhole) If Not cR Is Nothing Then Target.Offset(0, 2).Value = cR.Offset(0, 1).Value Else Target.Offset(0, 2).ClearContents End IfEnd Sub

为什么要进行设备名称和设备代码的自动匹配，这里是为了更方便地以设备名称和代码录入体例了一些代码。

代码放在Worksheet_Change过程里，这个过程触发的条件是当表格内容发生改变的时候。

做了一些条件判断，当改变的单元格为设备名称单元格的时候，实行以上代码。

也便是说，当选择某一个设备名称的时候，相应的设备代码自动更新。

默认设备代码和设备名称该当是逐一对应的。

结尾

总体来说，检修记录表的功能都实现了，不敷之处没有做一结统计。

如果增加一些统计，对设备检修管理是一个很有用的数据，那样就对某些常常维修的设备有一个清楚的认识。

欢迎关注、收藏。

---END---