成績一覧表ソフト（参考ダウンロードファイル成績一覧表社員版）
のFunctionプロシージャによる改良第１弾解答例
Private Sub CommandButton1_Click()
hyouji
datesakusei
Dim w As Integer, i As Byte
For i = 0 To 4
w = syori(i)
Cells(47, 3 + i) = w
Cells(48, 3 + i) = w / 40
If w / 10 >= 50 Then
Cells(49, 3 + i) = "合格"
Else
Cells(49, 3 + i) = "不合格"
End If
Next
hyouka
sonota
End Sub
・
・
Function syori(i As Byte)
Dim j As Byte
For j = 0 To 39
syori = syori + Cells(7 + j, 3 + i)
Next
End Function
・
・
第６話課題です。
syoriのときと同様に
Sub hyouka()をFunctionプロシージャ
Function hyouka(i As Byte)
に変更して、任務を横合計の計算のみに限定して、
それ以外の仕事はPrivate Sub CommandButton1_Click()で行うようにしてください。
第４話へ 第６話へ
vc++講義へ
