Databases Reference
In-Depth Information
FIGURE 10.12
Analysis of substrate rows.
Sub DoRowCalcs()
'Create a Worksheet with Row Wise Averages if desired
Dim ii As Integer
Dim row As Integer, col As Integer, ROrigin As Integer,
cellstr$, funcstr$, wsheet$
Sheets("RowRpt").Activate
'Determine Which Sheet Data is to be drawn from
If CalcOutliers = True Then
wsheet$ = "ORAVG!": ROrigin = 1
Else
wsheet$ = "AVG!": ROrigin = 0
End If
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, "RowRpt", ((row + 7)), ((col +
1)), funcstr$)
'If Average > Threshold Value in GUI Color iff option set
'If Workbooks(CalcBook).Worksheets("RowRpt").Cells(row +
7, col + 1).Value > Val(frm10ADA!ThreshBox.Text) And _
FIGURE 10.13
Analysis of substrate columns.
