Excel Maniacs

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

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

【´･ω･`】：うん。