(●`ε´●)：今回もくまぷーは留守だ。あいつのことだから
またどっかでさぼっているに違いない。このブログも
「くまぷーの三四郎道場」から「べべちゃんの三四郎道場」に
改めた方がいいな。
さて前回、国語の得点合計、受験者数、平均を求めたのだから
今回は残りの科目もやってしまおう。簡単なもんだ。コードは
下の通りだ！！（べべちゃんは得意満面だった・・・。）
!!国語
%国語=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)=%家庭平均
（続く）
コメント