あると便利な表の作成

あると便利な表の作成
（偏差値の計算）
１年組番＿＿＿＿
偏差値とは…
偏差値＝（自分の得点ー平均）÷標準偏差×10＋50
標準偏差＾2＝｛（Aの点ー平均）＾2＋
（Bの点ー平均）＾2＋
（Cの点ー平均）＾2＋
‥‥‥＋
（Zの点ー平均）＾2｝÷人数
マ
ク
ロ
の
説
明
Sub 偏差値()
b=1
c=0
While Cells(b, 1) > 0
c = c + Cells(b, 1).Value
b=b+1
Wend
Cells(1, 3) = c / (b - 1)
a = Cells(1, 3).Value
b=1
c=0
While Cells(b, 1) > 0
c = c + (Cells(b, 1).Value - a) ^ 2
b=b+1
Wend
Cells(1, 4) = (c / (b - 1)) ^ (1 / 2)
For d = 1 To b - 1
Cells(d, 2) = ((Cells(d, 1).Value - a) / Cells(1, 4).Value) * 10 + 50
Next d
Rows("1:1").Insert Shift:=xlDown
Cells(1, 1) = "得点"
Cells(1, 2) = "偏差値"
Cells(1, 3) = "平均"
Cells(1, 4) = "標準偏差"
End Sub
使い方
Aの列に数字数字を入れる。
 「算出」のボタンを押す。
 入力した数字の横に偏差値が出る。
 数字だけの状態に戻すときは、「元に戻す」を
押す。

実際に使ってみましょう

Download Report