科教设备原创设备检修记录管理，全自

　

原标题：设备检修记录管理，全自动Excel工作表制作方法

No.1

设备检修是安全生产过程当中很重要的环节，是安全生产预防为主的重点体现。

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

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

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

No.2

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

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

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

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

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

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

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

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

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

No.3

下面看一下代码：

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

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

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

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

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

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 If

End Sub

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

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

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

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

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

结尾

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

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

欢迎关注、收藏。

---END---返回搜狐，查看更多

责任编辑：