ですが、実は社員は自分にも命令できるのです。
例えば、次のようなマクロを組んでださい。
シート
プログラムの文章
Dim cn As Integer
Private Sub CommandButton1_Click()
cn = 0
Call f
End Sub
Private Sub CommandButton2_Click()
Rows("6:200").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
Sub f()
Cells(6 + cn, 1) = "自分に命令"
cn = cn + 1
If cn > 10 Then Exit Sub
Call f
End Sub
実行結果
自分が自分に命令できることがわかります。
この場合、
プログラムを止める条件文を入れておかないと
無限ループになってしまいますので、
Dim cn As Integer
If cn > 10 Then Exit Sub
の２文が入れてあるわけです。
同じことの繰り返し（For文）は、
基本的に社員が自分に命令するプログラム
（プロシージャの再帰的使用という）
でできます。
例えば、
１＋２＋３＋４＋５＋６＋７＋８＋９＋１０
を社員が自分に命令するプログラムの実現を考えてみましょう。
１から１０までの和は、
Subプロシージャによっても
Functionプロシージャによってもできます。
Functionプロシージャのよる方が簡単だと思われますので、
最初は、
Functionプロシージャの再帰的使用によって行ってみます。
今回は、問題にするの難しすぎるので問題という形にはしませんが、
不屈の精神をお持ちの方は考えてみましょう。
第８講第７話へ 第２話へ
vc++講義へ
