前話問題解答例
Private Sub CommandButton1_Click()
Dim w As Long, i As Long
w = 1
Dim a As Long, b As Long, c As Long
a = Cells(6, 2)
b = Cells(7, 2)
c = Cells(8, 2)
For i = a To b Step c
w = w * i
Next
Cells(9, 1) = "のときの積"
Cells(9, 2) = w
End Sub
Private Sub CommandButton2_Click()
Range("B6:B8").Select
Selection.ClearContents
Range("A9:B9").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
解説
かけ算の場合w = 1とすることがミソです。
次話の課題です。
まず、エクセルのシート側に
を作っておきます。そして、実行ボタンを押すと国語の合計が計算され、
となり、消去ボタンを押すと、と戻るマクロを組んでください。ヒントを書いておくと、CellsはCells(5 + i, 3)のような使い方もできるということです。
(出席番号については、後で実行ボタンを押すと発生できるようにします。）
第５話へ 第７話へ
vc++講義へ
