@•½‹Ï‚©‚ç•W€•Î·‚ðŒvŽZ‚µ‚Ü‚·B
@5‚‚̔‚ð—á‚É‚Æ‚Á‚Ä•½‹Ï‚Æ•ªŽUA•W€•Î·‚ð‚à‚Æ‚ß‚Ü‚·BŽÀs‰æ–Ê‚ÍŽŸ‚̂悤‚É‚È‚è‚Ü‚µ‚½B
@@•½‹Ïm‚Í m=ƒ°x(i)/n @@•ªŽUƒÐ2‚Í ƒÐ2=ƒ°ix(i)-m)2/n @@•W€•Î·ƒÐ‚Í ƒÐ=sqrt(•ªŽUj@‚Ü‚½ƒf[ƒ^‚ª•W–{ƒf[ƒ^‚̂΂ ‚¢‚ÍA•ªŽU‚Æ•W€•Î·‚̓f[ƒ^‚̌”ƒ}ƒCƒiƒX‚P‚ÅŠ„
Sub toukei()
Range(Cells(1, 2), Cells(50, 50)).Clear
n = InputBox("n=", 1)
Cells(3, 4) = " X="
Cells(3, 5) = " x-m"
Cells(3, 7) = " (x-m)^2"
Range(Cells(4, 4), Cells(3 + n, 4)).Borders.LineStyle = xlThin
With Worksheets("sheet1").Range(Cells(4, 4), Cells(3 + n, 4))
.Interior.ColorIndex = 28
.ColumnWidth = 6
End With
Range(Cells(4, 5), Cells(3 + n, 5)).Borders.LineStyle = xlThin
With Worksheets("sheet1").Range(Cells(4, 5), Cells(3 + n, 5))
.Interior.ColorIndex = 2
.ColumnWidth = 6
End With
Range(Cells(4, 7), Cells(3 + n, 7)).Borders.LineStyle = xlThin
With Worksheets("sheet1").Range(Cells(4, 7), Cells(3 + n, 7))
.Interior.ColorIndex = 2
.ColumnWidth = 6
End With
MsgBox "ƒf[ƒ^‚ð‘‚«ž‚ñ‚Å‚‚¾‚³‚¢Bƒy[ƒXƒg‚Å‚à‚¢‚¢‚Å‚·B"
Cells(4, 4).Activate
For i = 1 To n
Cells(3 + i, 4) = Cells(3 + i, 4).Value
Next i
End Sub
Sub sokudo()
Dim x(30)
For i = 1 To n
x(i) = Cells(3 + i, 4)
Next i
s = 0
For i = 1 To n
s = s + x(i)
Next i
Cells(3 + n + 1, 3) = "@‡Œv=": Cells(3 + n + 1, 4) = s
mean = s / n
Cells(3 + n + 2, 3) = "@•½‹Ï=": Cells(3 + n + 2, 4) = mean
For i = 1 To n
Cells(3 + i, 5) = x(i) - mean
Next i
For i = 1 To n
Cells(3 + i, 7) = (x(i) - mean) ^ 2
Next i
w = 0
For i = 1 To n
w = w + Cells(3 + i, 7)
Next i
Cells(3 + n + 1, 6) = "@‡Œv="
Cells(3 + n + 1, 7) = w
Cells(3 + n + 2, 6) = "@•ªŽU="
Cells(3 + n + 2, 7) = w / n
Cells(3 + n + 3, 6) = "•W€•Î·="
Cells(3 + n + 3, 7) = Sqr(w / n)
End Sub