ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 Office知识技巧免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 318|回复: 0

[分享] 第五版FMEA手册AP评价表公式分享

[复制链接]

TA的精华主题

TA的得分主题

发表于 2020-2-14 16:01 | 显示全部楼层 |阅读模式
本帖最后由 五号刺客 于 2020-2-14 16:03 编辑

质量工具的 FMEA 在2019年进行更新,取消了S*O*D=RPN的RPN值,改用组合方式的AP值,改用AP后FMEA表再使用的Excel完成时因为是组合方式(如下图),常规公式不易计算,我使用了一个自定义公式的进行计算AP值,使用的时候直接使用=AP(S,O,D)(SOD为这个自定义函数的三个参数)的方式获得对应的AP值,使用的效果如下图,代码分享如下
搞质量又没学习过VBA的朋友应该用得上,但是这个方法有缺点因为要使用VBA,所以模板表需要保存为带宏的.xlsm 文件,做为使用人员如果不清楚把它保存为普通文件,公式会被丢失掉导致错误
VBA大神来看的话是很简单的,欢迎各大神分享其它更方便的解决方案

2019第五版FMEA手册AP评价表

2019第五版FMEA手册AP评价表
image.png

Function AP(S, O, D) As String

S = Application.WorksheetFunction.Substitute(S, " ", "")
O = Application.WorksheetFunction.Substitute(O, " ", "")
D = Application.WorksheetFunction.Substitute(D, " ", "")
S = Application.WorksheetFunction.Substitute(S, Chr(10), "")
O = Application.WorksheetFunction.Substitute(O, Chr(10), "")
D = Application.WorksheetFunction.Substitute(D, Chr(10), "")
S = S * 1
O = O * 1
D = D * 1

Select Case S
    Case Is >= 9
        Select Case O
            Case Is >= 6: AP = "H"
            Case Is >= 4
                Select Case D
                    Case Is >= 2: AP = "H"
                    Case Is = 1: AP = "M"
                End Select
            Case Is >= 2
                Select Case D
                    Case Is >= 7: AP = "H"
                    Case Is >= 5: AP = "M"
                    Case Is <= 4: AP = "L"
                End Select
            Case Is = 1: AP = "L"
        End Select
    Case Is >= 7
        Select Case O
            Case Is >= 8: AP = "H"
            Case Is >= 6
                Select Case D
                    Case Is >= 2: AP = "H"
                    Case Is = 1: AP = "M"
                End Select
            Case Is >= 4
                Select Case D
                    Case Is >= 7: AP = "H"
                    Case Is <= 6: AP = "M"
                End Select
            Case Is >= 2
                Select Case D
                    Case Is >= 5: AP = "M"
                    Case Is <= 4: AP = "L"
                End Select
            Case Is = 1: AP = "L"
        End Select
    Case Is >= 4
        Select Case O
            Case Is >= 8
                Select Case D
                    Case Is >= 5: AP = "H"
                    Case Is <= 4: AP = "M"
                End Select
            Case Is >= 6
                Select Case D
                    Case Is >= 2: AP = "M"
                    Case Is = 1: AP = "L"
                End Select
            Case Is >= 4
                Select Case D
                    Case Is >= 7: AP = "M"
                    Case Is <= 6: AP = "L"
                End Select
            Case Is >= 2: AP = "L"
            Case Is = 1: AP = "L"
        End Select
    Case Is >= 2
        Select Case O
            Case Is >= 8
                Select Case D
                    Case Is >= 5: AP = "M"
                    Case Is <= 4: AP = "L"
                End Select
            Case Is <= 7: AP = "L"
        End Select
    Case Is = 1: AP = "L"
End Select

If Not D Like "[1-9]" And D <> 10 Then AP = "D值错误"
If Not O Like "[1-9]" And O <> 10 Then AP = "O值错误"
If Not S Like "[1-9]" And S <> 10 Then AP = "S值错误"

End Function

您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2020-6-2 13:25 , Processed in 0.062768 second(s), 15 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表