第10講 ファンクションプロシージャの再帰的使用

第４話 ファンクションプロシージャの再帰的使用による１からｎまでの積

を実現するプログラム例
Private Sub CommandButton1_Click()
　　
　　Dim n As Long
　　n = Cells(4, 2)
　　Cells(4, 5) = f(n)

End Sub

Function f(g As Long)

　　If g > 1 Then
　　　　f = f(g - 1)
　　Else
　　　　f = 1
　　End If
　　f = f * g
　　
End Function

Private Sub CommandButton2_Click()
　　
　　Range("E4,B4").Select
　　Selection.ClearContents
　　Cells(1, 1).Select
　　
End Sub

参考ダウンロード添付ファイル

たったの３カ所の変更で成功です！
でも、結構難しかったですよね。
次話で解説しましょう。

第３話へ　第５話へ

eclipse c++ 入門
魔方陣 数独で学ぶ VBA 入門
数独のシンプルな解き方・簡単な解法の研究
vc++講義へ
excel 2013 2010 2007 vba入門へ
ＶＢ講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座へ
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
専門用語なしの C言語 C++ 入門（Visual C++ 2010で学ぶ C言語 C++ 入門）
専門用語なしの excel vba マクロ 入門 2013 2010 2007 対応講義 第1部
eclipse java 入門へ
excel 2016 vba 入門へ第２部へ
小学生からエンジニアまでのRuby入門へ
本サイトトップへ