导言

机器设备检点在生产制造过程之中是一个常态工作中，也是一个动态性持续过程，根据对机器设备巡检可以提早发现问题，提前处理，也是贯彻落实生产安全的一个关键內容。

下边制做了一个检点纪录的过程方式，可以完成加上、查询、删掉、打印出、导出这些作用，假如在工作中之中有效合理地运用，可以大大的提高工作能力，根据一系列统计分析結果，可以得到什么机器设备经常会出现问题，因此可以主要解决。可能尽最大限度地防止不安全要素的产生。

图中为全部实际操作首页，各自设定了一些作用按键，相对应地完成其作用。

本运用，沒有做太多的文本框设计方案，只必须在这里页开展就可以进行其他作用，全部的解决编码完成掩藏运作，降低了对编码不了解的一些问题。

或以简易下手，对于不一样的设定信息，可以任意设定。

因此也合适不一样种类的机器设备检点过程。

下边看一下编码

查询过程

Private Sub 查询()On Error Resume NextApplication.DisplayAlerts = FalseApplication.ScreenUpdating = FalseThisWorkbook.Worksheets("检点纪录").SelectDim xArrxArr = ActiveSheet.UsedRangeActiveSheet.UsedRange.Rows.Hidden = FalseDim xR As Long, xc As Long, xi As Integer, ci As Integer, cc As IntegerxR = UBound(xArr, 1)xc = UBound(xArr, 2)ci = 2 '日期列cc = 5 '模块列For xi = 3 To xR If VBA.Format(xArr(xi, ci), "yyyy/mm/dd") = VBA.Format(Me.DTPicker1.Value, "yyyy/mm/dd") And _ Me.ComboBox1.Value = xArr(xi, cc) Then ActiveSheet.Rows(xi).Hidden = False'掩藏行 Else ActiveSheet.Rows(xi).Hidden = True'表明行 End IfNext xiErase xArrApplication.DisplayAlerts = TrueApplication.ScreenUpdating = TrueEnd Sub

查询过程根据一个简便的隐藏功能来完成，假如查询到信息即表明在图表中，不符查询标准就掩藏掉，编码简易，基础理论也简易沒有太多深层了解的內容。

文档导出

Private Sub SaveFiles() '导出文件On Error Resume NextDim xSheetName As StringDim isTrue As IntegerxSheetName = VBA.InputBox("键入文件夹名称...", "导出文档", VBA.Format(VBA.Date, "yyyymmdd"))If VBA.Len(VBA.Trim(xSheetName)) = 0 Then Exit SubIf VBA.Dir(ThisWorkbook.Path & "\\" & xSheetName & ".xlsx") <> "" Then isTrue = MsgBox("文件早已存有！是不是要遮盖？", vbYesNo, "提醒") If isTrue <> 6 Then Exit SubEnd IfApplication.DisplayAlerts = FalseApplication.ScreenUpdating = FalseApplication.CutCopyMode = FalseActiveSheet.Cells(2, 1).Resize(ActiveSheet.UsedRange.Rows.Count - 1, ActiveSheet.UsedRange.Columns.Count).CopyDim xExcel As Excel.ApplicationDim xBook As WorkbookDim xSheet As WorksheetSet xExcel = CreateObject("Excel.Application")'新创建运用Set xBook = xExcel.Workbooks.AddSet xSheet = xBook.Worksheets(1)xSheet.Cells(1, 1).PasteSpecial xlPasteAllxSheet.Name = xSheetNamexExcel.Visible = TruexBook.SaveAs ThisWorkbook.Path & "\\" & xSheetName & ".xlsx"xBook.ClosexExcel.QuitIf Err.Number = 0 Then MsgBox "文档导出取得成功！" & VBA.vbCrLf & xSheetName, vbInformation, "提醒"End IfApplication.DisplayAlerts = TrueApplication.ScreenUpdating = TrueApplication.CutCopyMode = TrueEnd Sub

文档导出作用是很适用的作用，可以十分便捷地将当今备份数据到新工作表中，因此干了一些编码解决，并且此编码还可以同时应用，有兴趣爱好可以拷贝运用一下。

此应用也有一些未健全的作用，例如统计分析作用，通过一些数据分析可获得一些要想的結果，如必须下一步再次进行一下。

热烈欢迎关心、个人收藏

---END---