Databases Reference
In-Depth Information
funcstr$ = "=STDEV(" & cellstr$ & ")"
Call
AddFormula
(CalcBook,
"STDEV", ((row + 7)), ((col + 2)),
funcstr$)
CellDev(row + 1, col + 1) = Worksheets("STDEV").Cells(row +
7, col + 2).Value
'Debug.Print funcstr$
'If ALL Values in LOT Not within 6 sigma limits color cell
For CellPos = 1 To UtilScans
If
WithinSixSigma
("AVG",
row + 1, col + 1, (RowOrigin +
row + (CellPos - 1) * 10), ColOrigin + col, CellPos) _
= False Then
Call
ColorCell
(CalcBook,
"AVG", Chr(64 + col + 2) &
Trim(str(row + 7)))
Exit For
End If
Next CellPos
'Clean Up built strings for next pass
cellstr$ = "": funcstr$ = ""
Next row
Next col
'Add HEADINGS to AVG & STDEV Sheet
Workbooks(CalcBook).Worksheets("AVG").range("H3").Value =
Trim(str(UtilScans)) & "/" & Trim(str(NoScans))
Workbooks(CalcBook).Worksheets("STDEV").range("H3").Value =
Trim(str(UtilScans)) & "/" & Trim(str(NoScans))
Workbooks(CalcBook).Worksheets("AVG").range("H4").Value =
str(OhmMin)
Workbooks(CalcBook).Worksheets("STDEV").range("H4").Value =
str(OhmMin)
Workbooks(CalcBook).Worksheets("AVG").range("D3").Value =
Val(frm10ADA.TextBox_GageR.Text)
Workbooks(CalcBook).Worksheets("STDEV").range("D3").Value =
Val(frm10ADA.TextBox_GageR.Text)
Workbooks(CalcBook).Worksheets("AVG").range("D4").Value =
Val(frm10ADA.TextBox_GageRT.Text)
Workbooks(CalcBook).Worksheets("STDEV").range("D4").Value =
Val(frm10ADA.TextBox_GageRT.Text)
Workbooks(CalcBook).Worksheets("AVG").range("L3").Value =
Val(frm10ADA.TextBox_BridVolt.Text)
Workbooks(CalcBook).Worksheets("STDEV").range("L3").Value =
Val(frm10ADA.TextBox_BridVolt.Text)
Workbooks(CalcBook).Worksheets("AVG").range("L4").Value =
str(OhmMax)
Workbooks(CalcBook).Worksheets("STDEV").range("L4").Value =
str(OhmMax)
End Sub
