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

2024-04-08 16:35:42

因为个人加载项文件功能较多包括直方图、帕拉图的宏自动汇制，现只分享部份做品质用的比较多的，自定义函数内容，会使用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

SE = Sqr(SumN / (n - 1)) '计算标准差SE

k = Abs(((((USL + LSL) / 2) - AV) / (T / 2)))

ppk = (1 - k) * T / (SE * 6)

End Function

'################## cpk=min(cpu,cpl)=(1-k)*cp 组间的过程能力指数带中心值的

Function cpk(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

SE = Sqr(SumN / n)

k = Abs(((((USL + LSL) / 2) - AV) / (T / 2)))

cpk = (1 - k) * (T / (SE * 6))

End Function

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

计算机基础函数运用,计算机应用基础第十二讲：EXCEL中函数的实际运用.doc
文档介绍: 计算机应用基础第十二讲:EXCEL中函数的实际运用.doc计算机应用基础第十二讲:EXCEL中函数的实际运用课题EXCEL屮函数的实际运用课型多媒体课授课时间第20周教学目的实例分析,掌 ...
大学计算机一级word,大学计算机基础一级考试复习资料
大学计算机基础一级考试复习资料判断题 1. 在Word字体对话框中,选择中文字号越大,实际的字就越大. 答案:错 2. 在Excel中,一个工作表可以包含多个工作簿. 答案:错 3. 在Word中, ...
excel自定义函数的注释_打印Excel注释的自定义列表
excel自定义函数的注释 If you've added comments to an Excel worksheet, you have a couple of built-in options ...
excel自定义函数添加和使用方法
第一,excel自定义函数简介 Excel自带很多函数供使用,但有些问题用内置函数解决起来很复杂,甚至是无能为力,这时就可以利用VBA开发自定义函数. 第二,excel如何添加自定义函数 excel自 ...
VBA Excel 自定义函数不能调用成功的问题的解决方法
VBA Excel 自定义函数不能调用成功的问题的解决方法问题以及解决方案的列举(持续更新中) 问题以及解决方案的列举(持续更新中) 自定义函数是自动化各种Excel重复操作的重要函数,我们可以用它 ...
Excel 自定义函数按单元格背景颜色/字体颜色实现计数或求和
Excel 自定义函数按单元格背景颜色/字体颜色实现计数或求和 https://download.csdn.net/download/sea1_2/34881468
php datedif,关于VB的DateDiff()函数与EXcel DateDif()函数
自定义了一个日期差函数.用法见附件. Function timediff(x As Date, y As Date, Optional z As String) As String Dim i As ...
EXCEL自定义函数无法运行的原因：可以在VBA里运行的函数，在EXCEL用自定义函数为什么报错？
目录 1目标问题: 为什么VBA里,function可以运行的代码,在EXCEL用自定义函数,会返回错误值? 2 先说结论 2.1 最容易发生的原因 2.2 其他原因梳理 3 自定义函数返回值的情况 ...
php nl2p,PHP函数nl2br()与自定义函数nl2p()换行用法分析，nl2brnl2p_PHP教程
PHP函数nl2br()与自定义函数nl2p()换行用法分析,nl2brnl2p 本文实例讲述了PHP函数nl2br()与自定义函数nl2p()换行用法.分享给大家供大家参考,具体如下: 使用情景很 ...
[C语言] 函数：库函数--自定义函数--函数的调用--练习--详解＜个人＞------（1）
文章目录前言一. 函数是什么? 二. C语言中函数的分类三. 库函数四. 自定义函数五. 函数的调用六. 练习总结前言本节内容主要记录函数的相关内容,其中包括:库函数,自定义函数,函 ...

最新文章

热门文章