成績一覧表を作る(5)

(●`ε´●)：前回までで国語の表示項目

　　　　　　得点合計、受験者数、平均は全て求めることが

　　　　　　できた。後はこれを決められたセルに表示させるだけだ。

　　　　　　今日はくまぷーはいないけど、これぐらいなら俺だけでも

　　　　　　大丈夫。今までのコードをまとめると下のようになる・・・。

　　　　　　%国語=0
　　　　　　%国語受験者=0
　　　　　　For %i = 8 To 52
　　　　　　　　　%国語 = %国語 + Cells(%i, 4)
　　　　　　Next

　　　　　　For %i = 8 To 52
　　　　　　　　　If Cells(%i, 4) <> "" Then
        　　　　　　　　　　%国語受験者 = %国語受験者 + 1
　　　　　　　　　End If
　　　　　　Next

　　　　　　If %国語受験者>0 Then
　　　　　　　　　%国語平均= %国語/%国語受験者
　　　　　　End If

　　　　　　Cells(53,4)=%国語
　　　　　　Cells(54,4)=%国語受験者
　　　　　　Cells(55,4)=%国語平均