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)) ' ActiveSheet.Cells(ActiveCell.Row + 2, ActiveCell.Column - 3).Select ' ActiveCell.Value = " a=" + Str(a) + " b=" + Str(b) End Sub