成績一覧表を作る(7)

【´･ω･`】：べべちゃん、成績一覧表を作る(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)=%国語平均

                ・・・よく見ると何か気がつかないかい？

（●｀ε´●）：ループの外枠（赤文字部分）が同じだな。

【´･ω･`】：うん、だったらループの部分をひとつにまとめて

　　　　　　しまったほうが効率がいいだろう。下のような

　　　　　　かんじにすればいいよ。

　　　　　　!!国語
　　　　　　%国語=0
　　　　　　%国語受験者=0
　　　　　　For %i = 8 To 52
　　　　　       %国語 = %国語 + Cells(%i, 4)
                      If Cells(%i, 4) <> "" Then
                                 %国語受験者 = %国語受験者 + 1
                        End If
                Next
                If %国語受験者>0 Then
                       %国語平均= %国語/%国語受験者
                End If
                Cells(53,4)=%国語
                Cells(54,4)=%国語受験者
                Cells(55,4)=%国語平均

（●｀ε´●）：なるほど。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）