Excel Maniacs

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

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　（続く）