第６話問題解答例
Private Sub CommandButton1_Click()
Dim h As Long, o As Long, b As Long
h = Cells(5, 2)
o = Cells(6, 2)
b = Cells(7, 2)
f h, o, b
End Sub
Sub f(h As Long, o As Long, b As Long)
Dim w, i As Long
w = 0
For i = h To o Step b
w = w + i
Next
Cells(8, 2) = w
End Sub
Private Sub CommandButton2_Click()
Columns("B:AE").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
第６話へ 第６講第１話へ
