ExcelVBA编程实现多元线性回归( 三 ) 这是几个月以前我用ExcelVBA进行的几个

<> "" And UserForm1.fxn4.Text <> "" ThenActiveWorkbook.Sheets(1).Range(addx).Cells(i, 1).Offset(0, 3).Value = http://kandian.youth.cn/index/Application.WorksheetFunction.Transpose(Evaluate("=" & UserForm1.fxn3.Text))(i)ActiveWorkbook.Sheets(1).Range(addx).Cells(i, 1).Offset(0, 4).Value = http://kandian.youth.cn/index/Application.WorksheetFunction.Transpose(Evaluate("=" & UserForm1.fxn4.Text))(i)End Ifx(i, 2) = ActiveWorkbook.Sheets(1).Range(addx).Cells(i, 1).Offset(0, 3).Valuex(i, 3) = ActiveWorkbook.Sheets(1).Range(addx).Cells(i, 1).Offset(0, 4).Valuey(i, 1) = ActiveWorkbook.Sheets(1).Range(addy).Cells(i, 1)Next ixt = Application.WorksheetFunction.Transpose(x)xtx = Application.WorksheetFunction.MMult(xt, x)xty = Application.WorksheetFunction.MMult(xt, y)xtxi = Application.WorksheetFunction.MInverse(xtx)beta = Application.WorksheetFunction.MMult(xtxi, xty)yp = Application.WorksheetFunction.MMult(x, beta)For i = 1 To numxActiveWorkbook.Sheets(1).Cells(i, 3).Value = http://kandian.youth.cn/index/yp(i, 1)Next iEnd IfIf nterm = 3 ThenReDim x(numx, 4) As Variant, y(numx, 1) As VariantFor i = 1 To numxx(i, 1) = 1If UserForm1.fxn1.Text ="" ThenActiveWorkbook.Sheets(1).Range(addx).Cells(i, 1).Offset(0, 3).Value = http://kandian.youth.cn/index/Application.WorksheetFunction.Transpose(Evaluate("=" & UserForm1.fxn2.Text))(i)ActiveWorkbook.Sheets(1).Range(addx).Cells(i, 1).Offset(0, 4).Value = http://kandian.youth.cn/index/Application.WorksheetFunction.Transpose(Evaluate("=" & UserForm1.fxn3.Text))(i)ActiveWorkbook.Sheets(1).Range(addx).Cells(i, 1).Offset(0, 5).Value = http://kandian.youth.cn/index/Application.WorksheetFunction.Transpose(Evaluate("=" & UserForm1.fxn4.Text))(i)End IfIf UserForm1.fxn2.Text = "" ThenActiveWorkbook.Sheets(1).Range(addx).Cells(i, 1).Offset(0, 3).Value = http://kandian.youth.cn/index/Application.WorksheetFunction.Transpose(Evaluate("=" & UserForm1.fxn1.Text))(i)ActiveWorkbook.Sheets(1).Range(addx).Cells(i, 1).Offset(0, 4).Value = http://kandian.youth.cn/index/Application.WorksheetFunction.Transpose(Evaluate("=" & UserForm1.fxn3.Text))(i)ActiveWorkbook.Sheets(1).Range(addx).Cells(i, 1).Offset(0, 5).Value = http://kandian.youth.cn/index/Application.WorksheetFunction.Transpose(Evaluate("=" & UserForm1.fxn4.Text))(i)End IfIf UserForm1.fxn3.Text = "" ThenActiveWorkbook.Sheets(1).Range(addx).Cells(i, 1).Offset(0, 3).Value = http://kandian.youth.cn/index/Application.WorksheetFunction.Transpose(Evaluate("=" & UserForm1.fxn1.Text))(i)ActiveWorkbook.Sheets(1).Range(addx).Cells(i, 1).Offset(0, 4).Value = http://kandian.youth.cn/index/Application.WorksheetFunction.Transpose(Evaluate("=" & UserForm1.fxn2.Text))(i)ActiveWorkbook.Sheets(1).Range(addx).Cells(i, 1).Offset(0, 5).Value = http://kandian.youth.cn/index/Application.WorksheetFunction.Transpose(Evaluate("=" & UserForm1.fxn4.Text))(i)End IfIf UserForm1.fxn4.Text = "" ThenActiveWorkbook.Sheets(1).Range(addx).Cells(i, 1).Offset(0, 3).Value = http://kandian.youth.cn/index/Application.WorksheetFunction.Transpose(Evaluate("=" & UserForm1.fxn1.Text))(i)ActiveWorkbook.Sheets(1).Range(addx).Cells(i, 1).Offset(0, 4).Value = http://kandian.youth.cn/index/Application.WorksheetFunction.Transpose(Evaluate("=" & UserForm1.fxn2.Text))(i)ActiveWorkbook.Sheets(1).Range(addx).Cells(i, 1).Offset(0, 5).Value = http://kandian.youth.cn/index/Application.WorksheetFunction.Transpose(Evaluate("=" & UserForm1.fxn3.Text))(i)End Ifx(i, 2) = ActiveWorkbook.Sheets(1).Range(addx).Cells(i, 1).Offset(0, 3).Valuex(i, 3) = ActiveWorkbook.Sheets(1).Range(addx).Cells(i, 1).Offset(0, 4).Valuex(i, 4) = ActiveWorkbook.Sheets(1).Range(addx).Cells(i, 1).Offset(0, 5).Valuey(i, 1) = ActiveWorkbook.Sheets(1).Range(addy).Cells(i, 1)Next ixt = Application.WorksheetFunction.Transpose(x)xtx = Application.WorksheetFunction.MMult(xt, x)xty = Application.WorksheetFunction.MMult(xt, y)xtxi = Application.WorksheetFunction.MInverse(xtx)beta = Application.WorksheetFunction.MMult(xtxi, xty)yp = Application.WorksheetFunction.MMult(x, beta)For i = 1 To numxActiveWorkbook.Sheets(1).Cells(i, 3).Value = yp(i, 1)Next iEnd IfIf nterm = 4 ThenReDim x(numx, 5) As Variant, y(numx, 1) As VariantFor i = 1 To numxx(i, 1) = 1ActiveWorkbook.Sheets(1).Range(addx).Cells(i, 1).Offset(0, 3).Value = http://kandian.youth.cn/index/Application.WorksheetFunction.Transpose(Evaluate("=" & UserForm1.fxn1.Text))(i)ActiveWorkbook.Sheets(1).Range(addx).Cells(i, 1).Offset(0, 4).Value = http://kandian.youth.cn/index/Application.WorksheetFunction.Transpose(Evaluate("=" & UserForm1.fxn2.Text))(i)ActiveWorkbook.Sheets(1).Range(addx).Cells(i, 1).Offset(0, 5).Value = http://kandian.youth.cn/index/Application.WorksheetFunction.Transpose(Evaluate("=" & UserForm1.fxn3.Text))(i)ActiveWorkbook.Sheets(1).Range(addx).Cells(i, 1).Offset(0, 6).Value = http://kandian.youth.cn/index/Application.WorksheetFunction.Transpose(Evaluate("=" & UserForm1.fxn4.Text))(i)x(i, 2) = ActiveWorkbook.Sheets(1).Range(addx).Cells(i, 1).Offset(0, 3).Valuex(i, 3) = ActiveWorkbook.Sheets(1).Range(addx).Cells(i, 1).Offset(0, 4).Valuex(i, 4) = ActiveWorkbook.Sheets(1).Range(addx).Cells(i, 1).Offset(0, 5).Valuex(i, 5) = ActiveWorkbook.Sheets(1).Range(addx).Cells(i, 1).Offset(0, 6).Valuey(i, 1) = ActiveWorkbook.Sheets(1).Range(addy).Cells(i, 1)Next ixt = Application.WorksheetFunction.Transpose(x)xtx = Application.WorksheetFunction.MMult(xt, x)xty = Application.WorksheetFunction.MMult(xt, y)xtxi = Application.WorksheetFunction.MInverse(xtx)beta = Application.WorksheetFunction.MMult(xtxi, xty)yp = Application.WorksheetFunction.MMult(x, beta)For i = 1 To numxActiveWorkbook.Sheets(1).Cells(i, 3).Value = http://kandian.youth.cn/index/yp(i, 1)Next iEnd Ifypre = ActiveWorkbook.Sheets(1).Range("C1:C" & numx).AddressIf nterm = 1 ThenIf UserForm1.fxn1.Text