Databases Reference
In-Depth Information
Sheets("Compare").Activate
'Fill in Data Calculated utilizing all points
wsheet$ = "AVG!": ROrigin = 0
For col = 1 To 12
For row = 0 To 7
'Assemble string with cell information
cellstr$ = wsheet$ & Chr(col + 65) & Trim(str(7 +
ROrigin + row))
funcstr$ = "=" & cellstr$
Call AddFormula(CalcBook, "Compare", ((row + 8)),
((col + 1)), funcstr$)
Call CopyCellFormat(7 + ROrigin + row, col + 1, 7 +
ROrigin + row, col + 1, "AVG", CalcBook, (row + 8), (col
+ 1), (row + 8), (col + 1), "Compare", CalcBook)
'Clean Up built strings for next pass
cellstr$ = "": funcstr$ = ""
Next row
Next col
'Fill in Data Calculated eliminating Outliers
wsheet$ = "ORAVG!": ROrigin = 1
For col = 1 To 12
For row = 0 To 7
'Assemble string with cell information
cellstr$ = wsheet$ & Chr(col + 65) & Trim(str(7 + ROrigin + row))
funcstr$ = "=" & cellstr$
Call AddFormula(CalcBook, "Compare", ((row + 20)), ((col +
1)), funcstr$)
Call CopyCellFormat(7 + ROrigin + row, col + 1, 7 + ROrigin
+ row, col + 1, "AVG", CalcBook, (row + 20), (col + 1),
(row + 20), (col + 1), "Compare", CalcBook)
'Clean Up built strings for next pass
cellstr$ = "": funcstr$ = ""
Next row
Next col
'Add Heading Parameters to Compare Sheet
Workbooks(CalcBook).Worksheets("Compare").range("H3").Value =
Trim(str(UtilScans)) & "/" & Trim(str(NoScans))
Workbooks(CalcBook).Worksheets("Compare").range("H4").Value =
str(OhmMin)
Workbooks(CalcBook).Worksheets("Compare").range("D3").Value =
Val(frm10ADA.TextBox_GageR.Text)
Workbooks(CalcBook).Worksheets("Compare").range("D4").Value =
Val(frm10ADA.TextBox_GageRT.Text)
