这样，生产过程才能担保安全，产品质量才能达到稳定。
以是，工艺指标的管理就显得尤为主要。
管理主页
指标管理当中，首先要对所有工艺指标进行统计建表，这里也做了指标登记功能。
管理主页当中有四项：工艺指标登记、指标查询、工艺状态、工艺指标数据管理。
数据表
工艺指标数据表格，的建立是管理的首项任务，必须要做到负责仔细，不失足误。
一旦有缺点，就会影响产品质量。
就会涌现差之毫厘，失落之千里的结果。
数据表格如下：
运行状态查询
运行状态页面，下了一些功夫来编辑，紧张是三个状态。
正常运行、超高限、超低限
一样平常在运行过程当中，生产指标会涌现偏离状态。
常日地有相应的工艺偏离方法，这里没有做应急处理过程管理。
往后在其余的一个工艺生产应急管理方案里再做，这里先说说工艺指标状态提示。
这个很直不雅观地看到哪些指标已经涌现偏离状态，然后就启动偏离纠正方案，进行处理。
代码
这里紧张先容一下运行状态代码
以分页来显示不同的状态表格，不同的分页里有不同的表格显示结果。
有三个分页，这样一来，就有三套险些相同的代码。
为了减少代码量，用了一个函数调用办理代码量增加的问题。
分页单击事宜：
Private Sub MultiPage1_Click(ByVal index As Long)Dim st()st = Array("运行正常", "超高限", "超低限")'定义查询值 Call view1(st(index), index)'调用显示查询结果数据 函数End Sub
查询函数：
Function view1(st, indexs) Dim w As Worksheet, s As Worksheet Set w = ThisWorkbook.Worksheets("工艺指标管理") w.Activate Dim iRow As Integer, iCol As Integer iRow = w.Range("A65535").End(xlUp).Row iCol = w.Range("A1").End(xlToRight).Column Dim Rcells As Range 'Set Rcells = w.UsedRange Set Rcells = w.Range("I2:I" & iRow) Dim values As String values = st If VBA.Len(values) = 0 Then Exit Function Dim Lname As String Lname = "ListView" & indexs + 1 Me.Controls.Item(Lname).ListItems.Clear Dim lisObj As Object Dim x As Range, xr As Range For Each x In Rcells Set xr = x.Find(values, lookat:=False) If Not xr Is Nothing Then ' Set lisObj = Me.ListView1.ListItems.Add Set lisObj = Me.Controls.Item(Lname).ListItems.Add With lisObj .Text = w.Cells(x.Row, 1).Value For i = 1 To iCol - 1 .SubItems(i) = w.Cells(x.Row, i + 1).Value Next End With End If Next x Set xr = Nothing Set Rcells = Nothing Set w = NothingEnd Function指标录入
建立指标数据的操作，便是个录入事情，没有什么特殊先容的内容。
负责仔细完成这一步就行了。
某人比较粗枝大叶，不太适宜做这项事情，比如，写篇文章的人。
查询
这个也很好理解，有些工厂里，工艺指标达上百个，乃至更多。
不可能一眼看过去就找到，那么就须要一眼看过去的功能。
查询可以做到这一点，输入设备举动步伐或工艺位号就可以看到相应记录，很方便。
结尾
喜好这篇文章请关注：江觅易见
单击下面：理解更多
