Sub ttest()

'#################
'##### t検定 #####
'#################

'##### 変数の定義 #####
Dim i As Integer: i = 0
Dim ave, sum As Double: ave = 0#: sum = 0#


'##### 最小値，最大値，平均値の出力 #####
「F4セル」 = Application.WorksheetFunction.「最小値を計算したいセル」
「F5セル」 = Application.WorksheetFunction.「最大値を計算したいセル」
ave = Application.WorksheetFunction.「平均値を計算したいセル」
Cells(6, 6).Value = ave

'##### 自由度の出力 #####
Cells(9, 6).Value = Cells(3, 6).Value - 1

'##### 偏差と分散の出力 #####
For i = 1 To Cells(3, 6).Value Step 1
    「C列のセル」 = 「B列のセル」 - ave
    sum = sum + 「偏差の二乗」
Next i
Cells(7, 6).Value = sum / 「自由度」

'##### 検定 #####
「t0の計算」
「t分布の計算」

If 「t0」 > 「t分布の値」 Then
    Cells(12, 6).Value = "危険率5%の確率で砂の含水比が正しく調整されているとは言えない．"
Else
    Cells(12, 6).Value = "危険率5%の確率で砂の含水比が正しく調整されていると言える．"
End If

End Sub