成績一覧表を作る(14)

【´･ω･`】：さて今回は個人別の得点合計、平均を求めるコードを

　　　　　　書いてみようか。

(●`ε´●)：科目の評価(得点）と欠時が交互に並んでいるから

　　　　　　得点の合計を求めるためには一つおきに足していかなければ

　　　　　　ならないな。

【´･ω･`】：こういうときはforループにStepキーワードをを組み合わせるといい。

(●`ε´●)：Step？

【´･ω･`】：ワークシート関数のSumStepと同じ感覚だ。

　　　　　　書式は・・・

　　　　　　For %i = 開始値　To　終了値 Step n

                             (何かの処理をするコード）

                Next

                ・・・だ。（ｎは整数）

　　　　　　こうすると%iの増加分がｎになる。

(●`ε´●)：ではこの場合はStep 2 とすればいいのか？

【´･ω･`】：うん。で・・・コードは下のようになる。科目別で得点合計や

　　　　　　平均を求めたときと考え方は同じなのでコードの意味が

　　　　　　解らない場合は前の方に戻って欲しい。

　　　　　　for %j =8 To 52
                        %得点=0
                        %科目数=0
                        %平均=0
                        for %i = 4 To 26 Step 2
                             %得点=%得点+Cells(%j, %i)
                            If Not IsBlank(Cells(%j, %i)) Then
                                        %科目数=%科目数+1
                            End If
                        next

                        If %科目数>0 Then
                                %平均=%得点/%科目数
                        End If
                       Cells(%j, 29)=%得点
                      Cells(%j, 30)=%平均
                  next

(●`ε´●)：次回は順位を求めるコードだな？

【´･ω･`】：うん。