初項・末項・交差を入力して実行ボタンを押すと、
等差数列の和が求められるマクロ解答例
Private Sub CommandButton1_Click()
Dim a As Integer, b As Integer, c As Integer
a = Cells(5, 2)
b = Cells(5, 4)
c = Cells(5, 6)
Cells(6, 1) = "等差数列の和"
Cells(7, 1) = f(a, b, c)
End Sub
Private Sub CommandButton2_Click()
Rows("6:200").Select
Selection.ClearContents
Cells(5, 2).Select
Selection.ClearContents
Cells(5, 4).Select
Selection.ClearContents
Cells(5, 6).Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
Function f(a As Integer, b As Integer, c As Integer)
If b - c >= a Then f = b + f(a, b - c, c) Else f = a
End Function
頭が混乱します。
引数が３つです。
気をつけてほしい点は、末項bから始めることです。
今回は遡及の末たどり着いてた結末は初項だったのです。
さて、次の課題です。
ｎ！＝１×２×３×・・・×ｎ
を計算させるマクロを組んでください。
マクロは
Private Sub CommandButton1_Click()
Dim a As Integer, b As Integer, c As Integer
a = Cells(5, 2)
Cells(6, 1) = f(a)
End Sub
Private Sub CommandButton2_Click()
Rows("6:200").Select
Selection.ClearContents
Cells(5, 2).Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
Function f(a As Integer)
If a - 1 >= 0 Then f = a + f(a - 1) Else f = a
End Function
を改良しましょう。
第４話へ 第６話へ
vc++講義へ
