Databases Reference
In-Depth Information
'frm10ADA!SolCheck.Value = True Then
'Call ColorCell(row + 7, col + 1)
'End If
'Clean Up built strings for next pass
cellstr$ = "": funcstr$ = ""
Next row
Next col
'Add Heading Parameters to RowRpt Sheet
Workbooks(CalcBook).Worksheets("RowRpt").range("H3").Value =
Trim(str(UtilScans)) & "/" & Trim(str(NoScans))
Workbooks(CalcBook).Worksheets("RowRpt").range("H4").Value =
str(OhmMin)
Workbooks(CalcBook).Worksheets("RowRpt").range("D3").Value =
Val(frm10ADA.TextBox_GageR.Text)
Workbooks(CalcBook).Worksheets("RowRpt").range("D4").Value =
Val(frm10ADA.TextBox_GageRT.Text)
Workbooks(CalcBook).Worksheets("RowRpt").range("L3").Value =
Val(frm10ADA.TextBox_BridVolt.Text)
Workbooks(CalcBook).Worksheets("RowRpt").range("L4").Value =
str(OhmMax)
End Sub
Sub DoColCalcs()
'Create a Worksheet with Col Wise Averages if desired
Dim ii As Integer
Dim row As Integer, col As Integer, ROrigin As Integer,
cellstr$, funcstr$, wsheet$
Sheets("ColRpt").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, "ColRpt", ((row + 7)), ((col + 1)),
funcstr$)
'If Average > Threshold Value in GUI Color iff option set
'If Workbooks(CalcBook).Worksheets("ColRpt").Cells(row + 7,
col + 1).Value > Val(frm10ADA!ThreshBox.Text) And _
'frm10ADA!SolCheck.Value = True Then
'Call ColorCell(row + 7, col + 1)
