|
Private Sub CommandButton1_Click()
Dn = Val(TextBox1.Text) 'データ数
'データにシーケンシャルNoを付ける
Range("B4").Select
For i = 1 To Dn
ActiveCell.Value = i
ActiveSheet.Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
Next i
'
xsum = 0
ysum = 0
x2sum = 0
xysum = 0
Worksheets("Sheet1").Activate
Range("C4").Select
'
For i = 1 To Dn
xx = ActiveCell.Value
'
ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column + 1).Select
yy = ActiveCell.Value
'
x2 = xx * xx
ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column + 1).Select
ActiveCell.Value = x2
'
xy = xx * yy
ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column + 1).Select
ActiveCell.Value = xy
'
xsum = xsum + xx
ysum = ysum + yy
x2sum = x2sum + x2
xysum = xysum + xy
'
ActiveSheet.Cells(ActiveCell.Row + 1, ActiveCell.Column - 3).Select
Next i
'
ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column - 1).Select
ActiveCell.Value = "sum"
ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column + 1).Select
ActiveCell.Value = xsum
ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column + 1).Select
ActiveCell.Value = ysum
ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column + 1).Select
ActiveCell.Value = x2sum
ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column + 1).Select
ActiveCell.Value = xysum
'
b = (ysum * x2sum - xysum * xsum) / (Dn * x2sum - (xsum * xsum))
a = (Dn * xysum - xsum * ysum) / (Dn * x2sum - (xsum * xsum))
' a, bの値を書く行を設定
ActiveSheet.Cells(ActiveCell.Row + 2, ActiveCell.Column - 3).Select
'
ActiveCell.Value = " a=" + Str(a) + " b=" + Str(b)
End Sub
|