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関数以外ではどうやればいいのかわからないよ。

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

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

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

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

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

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

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

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

(●`ε´●)：おう。

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

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

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

　　　　　一番って気分だ・・・。

(●`ε´●)：うん。

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

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

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

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

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

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

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

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

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

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

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

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