第８話 成績一覧表の完成
前話問題
実行ボタンを押すと出席番号が発生して、
合計も計算され、
消去ボタンを押すと、
と戻るマクロ解答例Private Sub CommandButton1_Click()
Dim w As Integer, i As Byte
w = 0
For i = 1 To 10
Cells(5 + i, 2) = i
w = w + Cells(5 + i, 3)
Next
Cells(16, 3) = w
End Sub
Private Sub CommandButton2_Click()
Cells(16, 3).Select
Selection.ClearContents
Range("B6:B15").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
さて、次の課題です。
次話の課題です。
（データは毎回異なったものが発生します。）のように100以下の整数をランダムに発生させましょう。
例えば、Cells(6,1)に100以下の整数を発生させるためには、
Cells(6, 1) = Int(100 * Rnd())
とします。Rnd()によって、ランダムな小数が発生します。
Int(・)は（）の中の小数を切り捨てて整数にする命令です。
Rnd()によって、０．７０５９・・・が発生したとすれば、
100 * Rnd()で100倍となり７０．５９・・・となります。
Int(100 * Rnd())のピンクの働きによって小数が切り捨てられ７０という整数になるというわけです。
では皆さんプログラムの文章を考えてみましょう。
第７話へ 第９話へ
vc++講義へ
