Excel Maniacs

成績一覧表を作る(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

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

【´･ω･`】：うん。　

成績一覧表を作る(13)

【´･ω･`】：さて前回までで成績一覧表の科目別の

　　　　　合計点、受験者数、平均点を表示する部分が

　　　　　できたので、そこまでのサンプルファイルを

　　　　　配布しよう。

             snsSample008.lzhをダウンロード

             次回は個人別の得点合計、平均点、順位を

           求めるコードを書くとしよう。

成績一覧表を作る(12)

(●`ε´●)：前回から、だいぶ間があいてしまったな。みんなは

　　　　　　何をやっていたか、たぶん忘れているぞ！！

【´･ω･`】：前回は下のコードをさらにまとめるというところだった。

　　　　　　For %i = 4 TO 26 Step 2
   　　　　　　　　　　Call 教科別成績(%i)
　　　　　　Next

　　　　　　Sub 教科別成績(%列)
　　　　　　   　%科目=0
　　　　　　  　 %科目受験者=0
　　　　　　　　For %i = 8 To 52
　　                     　 %科目 = %科目 + Cells(%i, %列)
　　                      　If Cells(%i, %列) <> "" Then
                                  　%科目受験者 = %科目受験者 + 1
　　                     　End If
　　            　 Next
　　　　 　　　If %科目受験者>0 Then
　　                  　%科目平均= %科目/%科目受験者
　　           　　End If
　　           　　Cells(53,%列)=%科目
　　           　　Cells(54,%列)=%科目受験者
　　           　　Cells(55,%列)=%科目平均 
            　 End Sub

(●`ε´●)：よくみるとForループのなかでやっていることは

　　　　　　　サブルーチン教科別成績を呼び出しているだけだな。

【´･ω･`】：うん。だから、結局下のように書いてサブルーチンの部分を

　　　　　　無くしても構わない。

　　　　　　For %列 = 4 TO 26 Step 2
    　　　　　　　　%科目=0
　　　　　　　　　 %科目受験者=0
                          %科目平均=0
　　                    For %行 = 8 To 52
　　                          %科目 = %科目 + Cells(%行, %列)
　　                          If Not IsBlank(Cells(%行, %列)) Then
                                           %科目受験者 = %科目受験者 + 1
　　                           End If
　　                     Next
　　
　　                    If %科目受験者>0 Then
　　                           %科目平均= %科目/%科目受験者
　　                    End If
　　　
　　                   Cells(53,%列)=%科目
　　                   Cells(54,%列)=%科目受験者
　　                  Cells(55,%列)=%科目平均 
                 Next

(●`ε´●)：赤い部分はなんだ？

【´･ω･`】：科目ごとに変数%科目、%科目受験者 、%科目平均を

　　　　　　０に初期化するためのコードだ。

(●`ε´●)：なんでそんなものをつけるんだ？

【´･ω･`】：サブルーチン教科別成績を呼び出す形式のコードでは

　　　　　　実はあってもなくてもよかった。

(●`ε´●)：？？？

【´･ω･`】：それはサブルーチンを呼びだす度に%科目、%科目受験者 、%科目平均は

　　　　　　自動的に初期化されるからだ。しかし、そうでないときは自動的に

　　　　　　初期化されないから不具合が起こる。

(●`ε´●)：どんな？

【´･ω･`】：例えば、ある科目の受験者がゼロの場合、その前の科目の

　　　　　　データがそのまま、表示されてしまう・・・。実際に試して

　　　　　　見て欲しい・・・。