计算cp & cpk

Question

我已经录制了一个宏以避免重复相同的任务，但是第一个平均公式在执行后消失了，请查看程序并帮助纠正。**我要执行的实际步骤：

c列的

1. 平均值，c列的最小，c列的最大值，最小和最大(所有4个相邻单元- p1、q1、r1、s1)
2. 标准差，c列(信元: p2)
3. 6 *标准差(信元: p3)
4. ABS(p1 - s1)/0.31 (信元：
5. )
6. 0.62/(en0 20#)(单元格:en0#)

    Sub Macro5()
'
' Macro5 Macro
'
' Keyboard Shortcut: Ctrl+t
'
    ActiveCell.FormulaR1C1 = "=AVERAGE(C[-13])"
    Range("Q1").Select
    ActiveCell.FormulaR1C1 = "=MIN(C[-14])"
    Range("R1").Select
    ActiveCell.FormulaR1C1 = "=MAX(C[-15])"
    Range("S1").Select
    ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-2]:RC[-1])"
    Range("P2").Select
    ActiveCell.FormulaR1C1 = "=STDEV(C[-13])"
    Range("P3").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=6*R[-1]C"
    Range("P4").Select
    ActiveCell.FormulaR1C1 = "=ABS(R[-3]C-R[-3]C[3])/0.31"
    Range("P5").Select
    ActiveCell.FormulaR1C1 = "=0.62/R[-2]C"
    Range("P6").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C*(1-R[-2]C)"
    Range("P5").Select
End Sub

Answer 1

按照生成的代码的逻辑(即不进行任何优化)，您需要首先选择单元格P1。在代码中，C列的平均值是在执行代码之前输入所选单元格的。

尝尝这个

    Sub Macro5()
'
' Macro5 Macro
'
' Keyboard Shortcut: Ctrl+t
'
    Range("P1").Select
    ActiveCell.FormulaR1C1 = "=AVERAGE(C[-13])"
    Range("Q1").Select
    ActiveCell.FormulaR1C1 = "=MIN(C[-14])"
    Range("R1").Select
    ActiveCell.FormulaR1C1 = "=MAX(C[-15])"
    Range("S1").Select
    ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-2]:RC[-1])"
    Range("P2").Select
    ActiveCell.FormulaR1C1 = "=STDEV(C[-13])"
    Range("P3").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "=6*R[-1]C"
    Range("P4").Select
    ActiveCell.FormulaR1C1 = "=ABS(R[-3]C-R[-3]C[3])/0.31"
    Range("P5").Select
    ActiveCell.FormulaR1C1 = "=0.62/R[-2]C"
    Range("P6").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C*(1-R[-2]C)"
    Range("P5").Select
End Sub