前話問題解答例
Private Sub CommandButton1_Click()
Dim i As Byte
For i = 1 To 10
Cells(5 + i, 1) = Int(100 * Rnd())
Next
End Sub
Private Sub CommandButton2_Click()
Rows("6:200").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
では次の課題です。
このプログラムを改良していただきます。
エクセルのシート側から、次のように罫線を入れておいて、
実行ボタンを押すと、
（データは毎回異なったものになります。）と表示されるようにしましょう。
解答例は、30行下。
解答例
Private Sub CommandButton1_Click()
Cells(6, 2) = "出席番号"
Cells(6, 3) = "国語"
Dim i As Byte
For i = 1 To 10
Cells(6 + i, 2) = i
Cells(6 + i, 3) = Int(100 * Rnd())
Next
Cells(17, 2) = "合計"
End Sub
では、次話の課題です。
さらに改良して、実行ボタンを押すと
（データは毎回異なったものになります。）となるようにしましょう。
第８話へ 第10話へ
vc++講義へ
