Functionプロシージャは返り値をもちます。
それを利用した有名な再帰的使用のプログラムとして、階乗の計算があります。
階乗とは、５の階乗なら５！＝１×２×３×４×５です。
では皆さん、階乗を理解するために
１！、２！、３！、４！、５！、６！、７！、８！を手で計算してみましょう。
答えは３０行下。
解答
１！＝１
２！＝１×２＝２
３！＝１×２×３＝６
４！＝１×２×３×４＝２４
５！＝１×２×３×４×５＝１２０
６！＝１×２×３×４×５×６＝７２０
７！＝１×２×３×４×５×６×７＝５０４０
８！＝１×２×３×４×５×６×７×８＝４０３２０
です。皆さん計算していく内に、次のことに気がついたのではないでしょうか。
８！＝５０４０×８です。
つまり、８！＝８×７！ですね。
一般にｎ！＝ｎ×（ｎ−１）！です。
ｎがいくつでも同じ仕組みをしています。
７！＝７×６！
６！＝６×５！
５！＝５×４！
そうです。同じことの繰り返しです。
ということは、再帰的使用が向いているということです。
今回は、課題とするには難しすぎると思いますので、
プログラム例を示してから、１×２×３×・・・×ｎの計算をＦｏｒ文ではなく、Functionプロシージャの再帰的使用によって実現していただきます。
シート
コード
Private Sub CommandButton1_Click()
Dim n As Long
n = Cells(2, 4)
Cells(5, 1) = "答え"
Cells(5, 2) = f(n)
End Sub
Function f(n As Long)
If n = 1 Then f = 1
If n - 1 > 0 Then
f = n * f(n - 1)
End If
End Function
Private Sub CommandButton2_Click()
Rows("5").Select
Selection.ClearContents
Range("D2").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
実行例
