Databases Reference
In-Depth Information
When the button labeled “Curve Fit Data” is pressed, the code in the Button_Fit_Click sub-
routine is executed. It is the code that resides in this subroutine that accesses and executes
appropriate COM calls from Excel to Origin.
Private Sub Button_Fit_Click()
'Get check box values corresponding to fix/vary status of
the four parameters
Dim Params(1 To 10, 1 To 1) As Double
Dim status
Const OriginSheet As String = "COMFit"
'Checkboxes To Fix or allow variance of Parameters
Params(1, 1) = Worksheets(pKaSheet).CheckBox_Ac.Value
Params(2, 1) = Worksheets(pKaSheet).CheckBox_An.Value
Params(3, 1) = Worksheets(pKaSheet).CheckBox_Aa.Value
Params(4, 1) = Worksheets(pKaSheet).CheckBox_pKa1.Value
Params(5, 1) = Worksheets(pKaSheet).CheckBox_pKa2.Value
'Parameter Values
Params(6, 1) = Range("Acat").Value
Params(7, 1) = Range("Aneut").Value
Params(8, 1) = Range("Aanion").Value
Params(9, 1) = Range("pKa1").Value
Params(10, 1) = Range("pKa2").Value
'Write in X
Data
Set rngDataAndParam = Range("XData")
If Not ThisWorkbook.ObjOrigin.PutWorksheet(OriginSheet,
rngDataAndParam.Value) Then Exit Sub
'Write in Y Data
Set rngDataAndParam = Range("YData")
Select Case Sheet1.OptionButton_mono.Value
Case True
'Write to mono Column (2) in COMfit Origin Worksheet
(Rows\Columns Zero Based!)
If Not ThisWorkbook.ObjOrigin.PutWorksheet(OriginSheet,
rngDataAndParam.Value, 0, 1) Then Exit Sub
Case False
'Write to bis Column (3) in COMfit Origin Worksheet
(Rows\Columns Zero Based!)
If Not ThisWorkbook.ObjOrigin.PutWorksheet(OriginSheet,
rngDataAndParam.Value, 0, 2) Then Exit Sub
End Select
'Set Fixed Parameters
Select Case Sheet1.OptionButton_mono.Value
Case True
