（指标编写教程）指标公式编写

今天本站就给我们广大朋友来聊聊指标编写教程,以下关于指标公式编写的观点希望能帮助到您找到想要的财经。

安全生产管理，最主要的就是对工艺指标进行管理，使各种设备运行在指标范围之内。

这样，生产过程才能保证安全，产品质量才能达到稳定。

所以，工艺指标的管理就显得尤为重要。

管理主页

指标管理当中，首先要对所有工艺指标进行统计建表，这里也做了指标登记功能。

管理主页当中有四项：工艺指标登记、指标查询、工艺状态、工艺指标数据管理。

数据表

工艺指标数据表格，的建立是管理的首项任务，必须要做到认真仔细，不出差错。

一旦有错误，就会影响产品质量。

就会出现差之毫厘，失之千里的结果。

数据表格如下：

运行状态查询

运行状态页面，下了一些功夫来编辑，主要是三个状态。

正常运行、超高限、超低限

一般在运行过程当中，生产指标会出现偏离状态。

通常地有相应的工艺偏离措施，这里没有做应急处理过程管理。

以后在另外的一个工艺生产应急管理方案里再做，这里先说说工艺指标状态提示。

这个很直观地看到哪些指标已经出现偏离状态，然后就启动偏离纠正方案，进行处理。

代码

这里主要介绍一下运行状态代码

以分页来显示不同的状态表格，不同的分页里有不同的表格显示结果。

有三个分页，这样一来，就有三套几乎相同的代码。

为了减少代码量，用了一个函数调用解决代码量增加的问题。

分页单击事件：

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 = Nothing End Function

指标录入

建立指标数据的操作，就是个录入工作，没有什么特别介绍的内容。

认真仔细完成这一步就行了。

某人比较粗枝大叶，不太适合做这项工作，比如，写篇文章的人。

查询

这个也很好理解，有些工厂里，工艺指标达上百个，甚至更多。

不可能一眼看过去就找到，那么就需要一眼看过去的功能。

查询可以做到这一点，输入设备设施或工艺位号就可以看到相应记录，很方便。

结尾

喜欢这篇文章请关注：江觅易见

单击下面：了解更多

今天的内容先分享到这里了，读完本文《（指标编写教程）指标公式编写》之后，是否是您想找的答案呢？想要了解更多，敬请关注本站,您的关注是给小编最大的鼓励。