计算机基础一级证exlse函数,原创—EXCEL自定义函数完成CPK/PPK/CP/PP/CPU/CPL等的计算...

因为个人加载项文件功能较多包括直方图、帕拉图的宏自动汇制，现只分享部份做品质用的比较多的，自定义函数内容，会使用EXCEL加载项定义的同行朋友，这个原码，可以自己考过去用。再不用复杂的去用软件计算，只要在EXCEL内输入“=cpk(USL，LSL，要分析的数据区域)”回车就可以算出CPK值 了，其它的同理。如果其它的函数也需要，具体可以加QQ89702813讨论。

'################## ppk=min(ppu,ppl)=(1-k)*pp 整体的过程能力指数 带中心值的

Function ppk(USL As Single, LSL As Single, ParamArray rng() As Variant) As Variant

Dim AV  As Single, rang As Range, n As Integer, T As Single, SumN As Single, SE As Single, k As Single

For Each R In rng

If rang Is Nothing Then Set rang = R Else Set rang = Union(rang, R)

For Each c In R

Next

Next

T = USL - LSL

n = rang.Cells.Count

AV = Application.WorksheetFunction.Average(rang)

For Each R In rang 'rng

SumN = SumN + Application.WorksheetFunction.Power(R - AV, 2)

Next