Excel Maniacs

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

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

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