Excel Maniacs

成績一覧表を作る(最終回)

【´･ω･`】：いよいよ、今回が最終回だ。AK３に授業日数を

　　　　　入れる仕様になっているので注意してくれ。下が出欠欄に

　　　　　関するコードだ。

　　　　　%授業日数=Range("AK3")

　　　　　For %i = 8 To 52
　　　　　　　!!出席すべき日数
　　　　　　　 !!＝授業日数－出停・忌引の日数
　　　　　　　 Cells(%i, 33)=%授業日数-Cells(%i, 32)
　　　　　　　!!出席日数
　　　　　　　 !!＝出席すべき日数－欠席日数
　　　　　　　Cells(%i, 35)=Cells(%i, 33)-Cells(%i, 34)
　　　　　Next

【´･ω･`】：コメントを見れば解説は要らないと思う。

　　　　　一応、成績一覧表のコード全てを掲載しておく。

　　　　　!!科目別成績
              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

              !!個人別成績
              for %j =8 To 52
                    %得点=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
               For %i = 8 To 52
                         Cells(%i, 31)= Rank(Cells(%i, 29),Range("AC8:AC52"))
                next

              !!出欠席
              %授業日数=Range("AK3")

               For %i = 8 To 52
                    !!出席すべき日数
                    !!＝授業日数－出停・忌引の日数
                     Cells(%i, 33)=%授業日数-Cells(%i, 32)
                    !!出席日数
                     !!＝出席すべき日数－欠席日数
                     Cells(%i, 35)=Cells(%i, 33)-Cells(%i, 34)
                Next

            Function Rank(%個人得点,%母集団) As Integer
                           %順位=1
                       For %i = 1 To Size(%母集団) 
                             If %母集団(%i) > %個人得点 Then
                                       %順位=%順位+1
                             End If
                      Next
                      Rank=%順位
           End Function

【´･ω･`】：最後に完成見本ファイルを用意したのでDLして

　　　　　　参考にしてくれ。

　　　　　Ohyou_Mihon.zipをダウンロード

成績一覧表を作る(16)

(●`ε´●)：え～と、順位の出し方は・・・・

　　　　　　まず自分の順位を１位として・・・

　　　　　　自分よりいい成績の奴がいたら・・・

　　　　　　その度に自分の順位に１を増やせばいいんだな。

【´･ω･`】：うん、そう。自分より上の奴がひとりなら、自分の順位の１位に

　　　　　　１を足して２位になる。もうひとり、自分より上の奴がいたら

　　　　　　今度は自分の順位の２位に１を加えて３位になるというわけだ。

　　　　　　コードは下のようになる。

Function Rank(%個人得点,%母集団) As Integer
   　 %順位=1
    　For %i = 1 To Size(%母集団) 
               If %母集団(%i) > %個人得点 Then
                     %順位=%順位+1
              End If
      Next
      Rank=%順位
End Function

【´･ω･`】:：個人別の得点合計、平均、順位を求める式は

　　　　　　下のようになる。

for %j =8 To 52
　　　%得点=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
For %i = 8 To 52
        Cells(%i, 31)= Rank(Cells(%i, 29),Range("AC8:AC52"))
next

Function Rank(%個人得点,%母集団) As Integer
    　%順位=1
    　For %i = 1 To Size(%母集団) 
     　　　If %母集団(%i) > %個人得点 Then
      　　　　　　　%順位=%順位+1
     　　　End If
    Next
    　Rank=%順位
End Function

(●`ε´●)：次は出欠欄か。いよいよ、ゴールが見えてきたな。

成績一覧表を作る(15)

(●`ε´●)：今回は順位を求めるんだよな？

【´･ω･`】：うん。

(●`ε´●)：おいら、Rank関数以外ではどうやればいいのかわからないよ。

【´･ω･`】：今までやった得点合計・受験者数・平均に比べれば

　　　　　　ちょっと頭を使うかもしれないが、落ち着いて考えれば

　　　　　　当たり前のことなので、しっかりついてきて欲しい。

(●`ε´●)：おいら、数学は苦手だぜ。

【´･ω･`】：大丈夫。考え方は小学生でもわかると思う。

(●`ε´●)：小学生でも、か・・・。プレッシャーがかかるぜ。

【´･ω･`】：まあ、気楽に・・・。考え方はこうだ。

　　　　　　ちょっとイメージして欲しい。いいかい。

(●`ε´●)：おう。

【´･ω･`】：今、試験が終わったところだ・・・。べべちゃんは思いの外

　　　　　試験ができた。「俺って天才！」って気分だ。。

　　　　　「俺って天才！」って気分なのだから、当然オイラが

　　　　　一番って気分だ・・・。

(●`ε´●)：うん。

【´･ω･`】：ところが時間が経って落ち着いてくると周りが見えてくる・・・。

　　　　　クラスメートの悪児さんがいた。彼は俺よりできそうだ・・・とおもう。

　　　　　自分より出来る奴の顔がひとり浮かんだ。この時点で

(●`ε´●)：一番だったはずが二番になった・・・。

【´･ω･`】：もっと落ち着いてくるときっちーさんの顔も浮かんできた。

　　　　　あいつも俺より出来そうだ。すると・・・

(●`ε´●)：二番だったのが三番に・・・。

【´･ω･`】：そう、自分より成績のいい奴が現れるたびに順位が

　　　　　１ずつ増加していくんだ。

　　　　　つまり、順位を求めるときは最初に自分の順位を１位と仮定して

　　　　　自分よりいい成績のものがあらわれるたびに順位を１だけ増加させればいい。

(●`ε´●)：な～るほど。

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

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

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

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

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

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

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

(●`ε´●)：？？？

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

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

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

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

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

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

　　　　　　見て欲しい・・・。

成績一覧表を作る(11)

【´･ω･`】：今回は前回紹介した下のコードをさらにまとめてみよう。

　　    Call 教科別成績(4)　!!国語
　　　  Call 教科別成績(6)　!!現社
　　　  Call 教科別成績(8)　!!数学
　　　  Call 教科別成績(10)　!!化学
　　　  Call 教科別成績(12)　!!体育
　　　  Call 教科別成績(14)　!!保健
　　     Call 教科別成績(16)　!!音楽
　　　  Call 教科別成績(18)　!!美術
　　　  Call 教科別成績(20)　!!書道
　　　  Call 教科別成績(22)　!!英語
　　　  Call 教科別成績(24)　!!オーラル
　　　  Call 教科別成績(26)　!!家庭

　　　　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 %i = 4 TO 26 Step 2
   　　　　　　　　　　Call 教科別成績(%i)
　　　　　　Next

(●`ε´●)：３行マクロか・・・。ところでStepってのは何だ？

【´･ω･`】：変数%iの増加分だ。Stepを省略するとForループでは

　　　　　　ループ１回につき%iが１増加する。Step　２　とすると

　　　　　　２ずつ増加するんだ。

(●`ε´●)：そうか。こう書けば４のつぎに%iは５を飛ばして

　　　　　　６になるんだな？

【´･ω･`】：そう。

(●`ε´●)：かなり、短くなったな。

【´･ω･`】：うん。でもここまでやったら、もう一押ししたくなる・・・。

　　　　　　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

(●`ε´●)：まだやるのか？

成績一覧表を作る(10)

【´･ω･`】：さて、べべちゃんの作った各科目の得点合計・受験者数・平均点の

　　　　　　コードをもう一度じっくりと見て欲しい。たしか、成績一覧表を作る(6)だったな。

　　　　　　べべちゃん、あのコードはどうやって作ったんだい？

(●`ε´●)：ああ、科目名と列が異なるだけだから国語のために作った下のコードを

　　　　　　コピペしてつくったんだ。変数の名前を変えて、列を表す数字を変えてな。

　　　　　　俺って頭いいだろ！！

　　　　　　※べべちゃんは国語のコードの赤字の部分を変えて数学のコードを

　　　　　　　作りました。

　　　　　　**********************************************************************

　　　　　　%国語=0
　　　　　　%国語受験者=0
　　　　　　For %i = 8 To 52
　　　　　　　　　　　%国語 = %国語 + Cells(%i, 4)
　　　　　　Next
　　　　　　For %i = 8 To 52
　　　　　　　　　　 If Not IsBlank(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, 6)
　　　　　　Next
　　　　　　For %i = 8 To 52
　　　　　　　　If Not  IsBlank(Cells(%i, 6)) Then
       　　　　　　　　　 %現社受験者 = %現社受験者 + 1
　　　　　　　　End If
　　　　　　Next
　　　　　　If %現社受験者>0 Then
　　　　　　　　　%現社平均= %現社/%現社受験者
　　　　　　End If
　　　　　　Cells(53,6)=%現社
　　　　　　Cells(54,6)=%現社受験者
　　　　　　Cells(55,6)=%現社平均

【´･ω･`】：同じような処理を繰り返すときはその処理を

　　　　　1カ所（さぶルーチン）にまとめ、そのルーチンを

　　　　　呼び出して使うのが定石だ。例えば上の処理なら

　　　　　・・・・

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

           ・・・・こうしておけば変数%列を変えれば同じコードで全ての

　　　　科目に対応させることが出来る。

　　　　似たようなコードをたくさんいろんなところに書き散らかしておくと

　　　　コードの保守が難しくなる。どこかを変えようと思ったら何十カ所も

　　　　書き換えなくてはならない。バグを生み出す元凶だな。

　　　　このサブルーチンをメインルーチンの下に書いておけば

　　　　このようなコードでべべちゃんがやったのと同じことができる。

　　　　**********************************************************************

　　　　Call 教科別成績(4)　!!国語
　　　　Call 教科別成績(6)　!!現社
　　　　Call 教科別成績(8)　!!数学
　　　　Call 教科別成績(10)　!!化学
　　　　Call 教科別成績(12)　!!体育
　　　　Call 教科別成績(14)　!!保健
　　　　Call 教科別成績(16)　!!音楽
　　　　Call 教科別成績(18)　!!美術
　　　　Call 教科別成績(20)　!!書道
　　　　Call 教科別成績(22)　!!英語
　　　　Call 教科別成績(24)　!!オーラル
　　　　Call 教科別成績(26)　!!家庭

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

(●`ε´●)：ずいぶん、コードが短くなってすっきりしたな。

【´･ω･`】：ふふふ、まだまだ。次回は今紹介したコードを更にまとめてみよう。

(●`ε´●)：え、まだまとめられるのか？

【´･ω･`】：うん。では次回に・・・

成績一覧表を作る(9)

(●`ε´●)：成績一覧表を作る(８)で下のコードにバグがあったと騒いでいたな？

　　　　　　%受験者数=0

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

【´･ω･`】：うん、ちょっと不注意だった。

(●`ε´●)：おまえが不注意なのは今に始まったことでないので別に驚きは

　　　　　　しないが、俺にはどういう不具合があるのか今ひとつわからんので

　　　　　　ちょっと解説してくれないか？

【´･ω･`】：OK。上のコードは得点入力欄（D8からD52)に入力された得点の数が

　　　　　　いくつあるか、数えているんだ。

(●`ε´●)：受験すれば普通、１００点満点なら0点から100点までの何らかの

　　　　　　点が入力されるはずだから、得点の数イコール受験者の数という

　　　　　　発想だな。

【´･ω･`】：そう。それでうまくいくと思っていた。ところが三四郎は０と""の

　　　　　　区別がつかないんだ。0点を三四郎は""だと判断してしまうんだ。

(●`ε´●)：すると・・・例えば４０人受験したとして、その中に０点を取った者が

　　　　　　受験者数が39人になってしまうというわけか？

【´･ω･`】：そうなんだ。

(●`ε´●)：それじゃあ、実際より平均点も高くなってしまうな。

【´･ω･`】：その通りなんだよ。で、それを回避したのが下のコードだ。

　　　　　　%受験者数=0

　　　　　　For %i = 8 To 52
　　　　　　　　 If Not IsBlank(Cells(%i, 4)) Then
        　　　　　　　　%受験者数 = %受験者数 + 1
　　　　　　　　End If
　　　　　　Next

　　　　　受験者数を求めるコードは何通りか、考えられるが

　　　　　これはそのうちの一つだ。

　　　　　　

成績一覧表を作る(8)

　今回は【´･ω･`】と(●`ε´●)の二人のキャラはちょっとお休みです。

くまぷーの無知より、バグ入りコードを公開してしまいました。

バグはどこに潜んでいたかというと受験者数を求めるコードの

ところです。

　くまぷーは受験者数を求めるのに以下の考えを用いました。

　(1)受験していれば何かしらの点数がつく。

　(2)ならば、その生徒の得点欄には何かしらの

　　点数が入力される。

　(3)従って受験した生徒の得点欄は空欄ではない。

　(4)従って空欄でないセルの数を数えれば受験者数が

　　求められる。

　・・・よって以下のコードを書きました。（得点欄がD8：D52の場合）

　%受験者数=0

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

　　　　　　　　　　　　　　　　　_|￣|○　うぐぅ・・・・

ところがこれではダメなんです。三四郎は０と空欄の区別がつかないんですね・・・。

例えばA1に１、A2に２、A3に３、A4に４、A5に０として以下のコードを

実行してみると・・・４になります。

　%cnt = 0
   For %i = 1 To 5
    　　If Cells(%i, 1) <> "" Then
       　　　 %cnt = %cnt + 1
   　　 End If
　Next
   MsgBox (%cnt)

・・・０と入力されていても三四郎は""だと思ってしまうんです・・・。　

エクセルならば・・・５です。

　　Sub Test()
   　　　　cnt = 0
  　　　　 For 　i 　= 1 To 5
   　　　　　　　 If Cells(i, 1) <> "" Then
       　　　　　　　　 cnt = cnt + 1
    　　　　End If
　　　　Next
    　　　MsgBox cnt
End Sub

エクセルならこれでよかったんですが・・・。

　　　　　　ゲッ☆(゜ュ)с=（｀´メ　おい、三四郎を甘く見るなよ！！

三四郎ならばこうしなければいけないんですね・・・。

      %cnt = 0
      For %i = 1 To 5
            If Not IsBlank(Cells(%i, 1))  Then
                   %cnt = %cnt + 1
            End If
      Next
       MsgBox (%cnt)

勉強になりましたぜい(^。^)

成績一覧表を作る(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)=%国語平均

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

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

成績一覧表を作る(6)

(●`ε´●)：今回もくまぷーは留守だ。あいつのことだから

　　　　　　またどっかでさぼっているに違いない。このブログも

　　　　　　「くまぷーの三四郎道場」から「べべちゃんの三四郎道場」に

　　　　　　改めた方がいいな。

　　　　　　　さて前回、国語の得点合計、受験者数、平均を求めたのだから

　　　　　　今回は残りの科目もやってしまおう。簡単なもんだ。コードは

　　　　　　下の通りだ！！（べべちゃんは得意満面だった・・・。）

　　　　　　!!国語
　　　　　　%国語=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, 6)
　　　　　　Next
　　　　　　For %i = 8 To 52
　　　　　　　　If Cells(%i, 6) <> "" Then
       　　　　　　　　　 %現社受験者 = %現社受験者 + 1
　　　　　　　　 End If
　　　　　　Next
　　　　　　If %現社受験者>0 Then
　　　　　　　　%現社平均= %現社/%現社受験者
　　　　　　End If
　　　　　　Cells(53,6)=%現社
　　　　　　Cells(54,6)=%現社受験者
　　　　　　Cells(55,6)=%現社平均

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

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

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

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

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

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

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

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

　　　　　!!オーラル
　　　　　%オーラル=0
　　　　　%オーラル受験者=0
　　　　　For %i = 8 To 52
　　　　　　　　%オーラル = %オーラル + Cells(%i, 24)
　　　　　Next
　　　　　For %i = 8 To 52
　　　　　　　　If Cells(%i, 24) <> "" Then
        　　　　　　　　%オーラル受験者 = %オーラル受験者 + 1
　　　　　　　　End If
　　　　　Next
　　　　　If %オーラル受験者>0 Then
　　　　　　　　%オーラル平均= %オーラル/%オーラル受験者
　　　　　End If
　　　　　Cells(53,24)=%オーラル
　　　　　Cells(54,24)=%オーラル受験者
　　　　　Cells(55,24)=%オーラル平均

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

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

　

成績一覧表を作る(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)=%国語平均

成績一覧表を作る(4)

(●`ε´●)：前回までが国語の得点合計と受験者数だったな？

　　　　　　で、今回は何をやるんだ？

【´･ω･`】：国語の平均点を求める。

(●`ε´●)：関数ならば・・・

　　　　　　=Avg(D8:D52)

　　　　　　・・・とやるところだな。

【´･ω･`】：うん、マクロでやるならば国語の得点合計を

　　　　　　受験者数で割ればいい。どちらも前回までで

　　　　　　わかっているから・・・。

(●`ε´●)：　国語の平均を表す変数を%国語平均とすると・・・

　　　　　　　　　　%国語平均= %国語/%国語受験者　　

　　　　　　　　・・・で求められるな。

【´･ω･`】：うん、ただ零除算によるエラーを回避するために

　　　　　　ここは・・・　　　　

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

　　　　　　・・・とした方がいい。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

成績一覧表を作る(3)

【´･ω･`】：さて前回は国語の得点の合計を求めた。

（●｀ε´●）：こんなコードだったな。 国語の合計点を表す変数を

　　　　　　%国語として・・・

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

【´･ω･`】：今回は国語の受験者数を求める。

（●｀ε´●）：関数でやるなら、得点の入力されている

　　　　　　　セルを数えればいい。よって・・・

　　　　　　　=CountNum(D8:D52)

　　　　　　　いたって簡単だな。

【´･ω･`】：マクロでやっても基本的な考え方は変わらない。

　　　　　　国語の受験者数を表す変数を%国語受験者とすると・・・

　　　　　　%国語受験者=0

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

　　　　　　・・・となる。

（●｀ε´●）：では解説してくれ。

【´･ω･`】：Ok。まず、%国語受験者=0のコードで変数%国語受験者の初期値を

　　　　　　０にしておく。

　　　　　　次にForループで%iを８から５２まで変化させて・・・

　　　　　　Cells(%i ,4)の内容をチェックしていく・・・。

(●`ε´●)：%iが８の時は　Cells(8 ,4),つまりD8、そして

　　　　　　%iが52の時は　Cells(52 ,4),つまり５２ということだったな？

【´･ω･`】：うん。チェックの具体的内容はセルが空欄かどうかだ。

　　　　　　空欄でなければ、%国語受験者の値を１増加させていく。

(●`ε´●)：これをD8からD52まで繰り返してやれば%国語受験者が

　　　　　　国語の受験者数になるというわけだな？

【´･ω･`】：うん。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

　　　　　　

成績一覧表を作る(2)

★国語の合計点を求める。

【´･ω･`】：まず国語の得点を入力するを確認しよう。

(●`ε´●)：D8からD52までだ。

【´･ω･`】：それでは、国語の合計点を表示するセルは？

(●`ε´●)：D53だ。

【´･ω･`】：マクロを使わないで関数でやるならばあっさりと

　　　　　　D53に・・・

　　　　　　　　　　=Sum(D8:D52)

                 ・・・入力するだけだ。もちろん、この方が簡単なのだが

　　　　　　マクロのコードを書く練習だから、関数は使わない。

　　　　　　それでは基本事項Cells()の使い方の確認だ。

　　　　　　べべちゃん、D8はどう表す？

(●`ε´●)：Cells(8, 4)

【´･ω･`】：うん。それではD52は？

(●`ε´●)：Cells(52, 4)

【´･ω･`】：うん。A列、B列、C列・・・をそれぞれ、1列、２列、３列・・・と

　　　　　　見立てて・・・

　　　　　　　　　　　　　　　Cells(行番号, 列番号)

　　　　　　・・・だったね。D列はこのルールでいけば４列になるから

　　　　　　D8はCells(8, 4)に、D52はCells(8, 52)になるというわけだ。

　　　　　　ここまでは大丈夫かな？

(●`ε´●)：おう。

【´･ω･`】：それでは肩慣らしとして・・・

　　　　　　D８に６０

　　　　　　D9に７０

　　　　　　D10に８０

　　　　　　D11に５０

　　　　　　D12に９０

　　　　　　・・・と入力されているとして、この５つのセルの

　　　　　　合計点を求めてみよう。

　　　　　　上記赤文字5行はCells()形式に直すと・・・

　　　　　　Cells(8, 4)に６０

　　　　　　Cells(9, 4)に７０

　　　　　　Cells(10, 4)に８０

　　　　　　Cells(11, 4)に５０

　　　　　　Cells(12, 4)に９０

                ・・・となる。ここで合計点を表す変数を　%合計　とする・・・

　　　　　　それでは和を求めるコードを紹介しよう。

　　　　　　全部で6行だ。

　　　　　　%合計 =0      !!変数の初期化

　　　　　　%合計　=  %合計 +  Cells(8, 4)

                %合計　=  %合計 +  Cells(9, 4)

　　　　　　%合計　=  %合計 +  Cells(10, 4)

                %合計　=  %合計 +  Cells(11, 4)

                %合計　=  %合計 +  Cells(12, 4)

                ・・・とすればよい。ここでこの等号の意味をもう一度思い出してもらいたい。

(●`ε´●)：右辺を計算して、その結果を左辺に代入する・・・だったな。

【´･ω･`】：じゃあ、解説だ。

　　　　　　1行目で右辺の0を左辺に代入しているのでこの左辺の%合計は

　　　　　　0になる。次に2行目でその0にCells(8, 4)、つまり60を加えた結果を左辺に

　　　　　　代入する。故に、この左辺の%合計は60になる。次に3行目でその60に

　　　　　　Cells(9, 4)、つまり70を加えた結果を左辺に代入する。故に、この左辺の

　　　　　　%合計は130になる。次に4行目でその130にCells(10, 4)、つまり80を

　　　　　　　加えた結果を左辺に代入する。故に、この左辺の%合計は210になる。

(●`ε´●)：パターンが見えてきたな。次は俺が言おう。

　　　　　　5行目でその210にCells(11, 4)、つまり50を加えた結果を左辺に代入する。

　　　　　　故に、この左辺の%合計は260になる。そして最後に6行目で

　　　　　　その260にCells(12, 4)、つまり90を加えた結果を左辺に代入する。

　　　　　　故に、この左辺の%合計は350になる。この３５０が答えだ。

【´･ω･`】：この説明のように同じことを繰り返すのはかったるい。

　　　　　これをForループを使って書くとすっきりする。Forループに

　　　　　ついては１５パズル(7)、１５パズル(8)、１５パズル(9)を参考にしてくれ。

              国語の合計点を表す変数を　%国語　とすると・・・

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

　　　　　・・・となる。

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）

　　　　　　

成績一覧表を作る(1)

(●`ε´●)：「教員のための・・・」と謳っていながら、校務に関わる

　　　　　　題材が少ないんじゃないか？

【´･ω･`】：そうかもしれない。リクエストがあればやってみるけど

　　　　　　取りあえず、成績一覧表（大票）でも作ってみようか。

　　　　　　 ★仕様：
    　　　　　　　 (1)教科ごとの合計点、平均点、受験者数の表示
     　　　　　　　(2)生徒ごとの合計点、平均点、順位の表示
    　　　　　　　 (3)出席すべき日数の表示、出席日数の表示

(●`ε´●)：これぐらいのことならマクロなんか使わずに

　　　　　　ワークシート関数だけで十分じゃないか？

【´･ω･`】：もちろん、関数だけで十分に対応できる。だけど関数は

　　　　　　一切使わない。マクロだけでやる。対象は記録マクロを

　　　　　使う程度で、自分でコードを書くのはどうも・・・という方だ。

　　　　　これが成績一覧表（大票）の画像だ。

　　　　　　

それと成績一覧表（大票）の枠を用意したから

DLして使ってくれ。

snsOhyou00.lzhをダウンロード