VBA---通過Z值算PPM
以下VBA宏放在Excel, word中都可以運行，各一個參數Z值就可以算出對應的PPM
Private Function SToPPM(Z As Double) As Double
Dim GPI As Double
Dim DX As Double
Dim temp As Double
Dim Count As Long
Dim Y1 As Double, Y2 As Double
DX = 0.01
GPI = 1 / Sqr(2 3.1415926) 1000000
Y2 = GPI Exp(-0.5 Z* Z)
Count = 0
SToPPM = 0
Do While Y2 > 0.00001
Y1 = Y2
Count = Count + 1
If Z> 0 Then
Y2 = GPI Exp(-0.5 (Z+ DX Count) (Z+ DX * Count))
Else
Y2 = GPI Exp(-0.5 (Z- DX Count) (Z- DX * Count))
End If
SToPPM = SToPPM + ((Y1 + Y2) * DX) / 2
Loop
SToPPM = SToPPM
End Function
Private Function SToPPM(Z As Double) As Double
Dim GPI As Double
Dim DX As Double
Dim temp As Double
Dim Count As Long
Dim Y1 As Double, Y2 As Double
DX = 0.01
GPI = 1 / Sqr(2 3.1415926) 1000000
Y2 = GPI Exp(-0.5 Z* Z)
Count = 0
SToPPM = 0
Do While Y2 > 0.00001
Y1 = Y2
Count = Count + 1
If Z> 0 Then
Y2 = GPI Exp(-0.5 (Z+ DX Count) (Z+ DX * Count))
Else
Y2 = GPI Exp(-0.5 (Z- DX Count) (Z- DX * Count))
End If
SToPPM = SToPPM + ((Y1 + Y2) * DX) / 2
Loop
SToPPM = SToPPM
End Function
不错，不错，就是能看懂VBA并能运用的人可能不是很多，呵呵
楼主在后加点备注就更好了V:
楼主在后加点备注就更好了V:
2006-04-25 09:56
本问题共 6 个回答，登录后查看全部
登录查看
相关问题
用Excel VBA自动化地做柏拉图例
19 回答 · 10477 浏览
xBar-R图中，如果用±3σ作控制线时，σ的值是用所有样本值算的还是xBar、R值算的？
22 回答 · 5585 浏览
Excel知识交流,VBA应用实例-Excel吧-www.excelba.com
0 回答 · 3057 浏览
《学习Excel VBA与XML、ASP协同应用》电子书
2 回答 · 3270 浏览
如何设定可变页码的打印VBA程序
2 回答 · 4823 浏览
塑膠電鍍不能通過thermal shock test,why?
3 回答 · 3925 浏览
急求:通過GP認證所需的資料
4 回答 · 3253 浏览
你們公司通過ISO9001認證的目的是什麼?
5 回答 · 3295 浏览
調查: 有多少家公司通過了ISO14001認證
57 回答 · 7380 浏览
你是通過怎樣的途徑找到現在這份工作的
9 回答 · 3011 浏览