怎么做表格_设备润滑记录表怎么做，用这个方法自动生成Excel表格

运行设备，特别是动设备，需要进行五定润滑管理，即定点、定期、定量、定质、定人。

在这些条件具备的情况下进行润滑作业，才能够起到应有的作用。

如何来做到全面而有效呢？

要有一套完整的润滑管理标准和操作流程。

介绍一下润滑记录表的制作。

新建设备润滑表

润滑表基本格式就是这个样子，看上去很简单，也没什么难以理解的地方，但是做了一些代码处理，包括添加内容也做了预设，在"设置"工作表里，下面有图。

右边有三个按钮，一个是新记录表，一个是重置，再一个就是打印。

我们制作完成之后需要一个输出结果。

无论是空白表，还是记录完成表打印必不可少。

所有内容，都可以自动下拉选择，全都做了定义名称。

程序代码

相对来说，这个代码不多，主要是做一个内容复制，选择好内容表格，进行复制新表就可以。

仅仅这几行代码，感觉不靠谱的样子，但它实实在在完成了功能。

'新建润滑记录表Private Sub CommandButton1_Click()Application.ScreenUpdating = FalseDim w As WorksheetSet w = ThisWorkbook.Worksheets.Add(after:=Sheets(2))With w    .Name = Me.Range("B2").Value & "加油记录表"    Me.Range("A1:I20").Copy    .PasteSpecialEnd WithMsgBox Range("B2").Value & "加油表新建成功！", vbInformation, "提示"Application.ScreenUpdating = TrueEnd Sub

再加几行代码，下面是当选择设备代码时自动刷新表编号的代码。

Private Sub Worksheet_Change(ByVal Target As Range)If Target.Address = "$B$2" Then    Range("B1").Value = ThisWorkbook.Worksheets("设置").Range("C2").Value _    & [b2].Value & "_" & VBA.Format(VBA.Date(), "yyyymmdd")End IfEnd Sub

系统设置

设置很重要，主要是对表选项进行预设，这一步做完，填表就只用鼠标点几下可以了。

对于一个懒人来说，这里麻烦点就是为了懒很多时候。

也懒得多说了。

新建表样式

新建表样式如上图，一个表代表一台设备或都一套装置，每台设置每年或每个月一张表，这样做记录还是可分清楚的。