成績一覧表マクロプログラム例
Private Sub CommandButton1_Click()
CommandButton2_Click
f1 'データ作成
Dim i As Integer
For i = 5 To 12
f (i) '出席番号iの生徒の処理と表示
Next
For i = 3 To 6
Cells(13, i) = g1(i)
Next
Cells(1, 1).Select
End Sub
Function g1(a As Integer)
Dim i As Integer, w As Integer
w = 0
For i = 5 To 12
w = w + Cells(i, a)
Next
g1 = w
End Function
Sub dh(a As Integer)
Dim i As Integer
For i = 3 To 5
Cells(a, i) = Int(101 * Rnd)
Next
End Sub
Function g(a As Integer) '合計を求めるファンクションプロシージャ
Dim i As Integer, w As Integer
w = 0
For i = 3 To 5
w = w + Cells(a, i)
Next
g = w
End Function
Sub gh(w As Integer, a As Integer) '合否判定を行うサブプロシージャ
If w >= 150 Then Cells(a, 7) = "合格" Else Cells(a, 7) = "不合格"
End Sub
Sub k(w As Integer, a As Integer) '講評を行うサブプロシージャ
If w >= 210 Then
Cells(a, 8) = "あなたは超天才級です。"
Else
If w >= 180 Then
Cells(a, 8) = "あなたは天才級です。"
Else
If w >= 130 Then
Cells(a, 8) = "まあいいんじゃないでしょうか。"
Else
If w >= 90 Then
Cells(a, 8) = "もう少し頑張りましょう。"
Else
Cells(a, 8) = "早く人間になりたい。"
End If
End If
End If
End If
End Sub
Sub f1()
Dim i As Integer
For i = 5 To 12
dh (i)
Next
End Sub
Sub f(a As Integer)
Dim w As Integer
w = g(a)
Cells(a, 6) = w
Call gh(w, a)
Call k(w, a)
End Sub
Private Sub CommandButton2_Click()
Range(Cells(5, 3), Cells(13, 8)).Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
参考ダウンロード添付ファイル
それでは、生徒の人数と教科数を増やして
〜
１クラス分の成績一覧表を完成させましょう。
第８話へ 第10話へ
