実は、仕事の依頼は自分にもできるのです。
『自分が自分に仕事をお願いする？？？』
ですよね。
では、どういうことが早速体験して頂きましょう。
参考ファイルを開くか、
ご自分で次のようにプログラミングをして、
実行ボタンを押してみてください。
Private Sub CommandButton1_Click()
f (0)
End Sub
Sub f(n As Byte)
Cells(5 + n, 2) = "はじめてのプロシージャの再帰的使用。"
If n < 10 Then f (n + 1)
End Sub
Private Sub CommandButton2_Click()
Rows("5:200").Select
Selection.ClearContents
Range("A1").Select
End Sub
すると、エクセルシートの実行画面は、
となります。
If n < 10 Then f (n + 1)
のf (n + 1)の部分が、自分に仕事を依頼している部分です。
ちょっとわかりにくいかも知れませんので、
プログラムを次のように変更してみてください。
Dim n As Byte
Private Sub CommandButton1_Click()
n = 0
f
End Sub
Sub f()
Cells(5 + n, 2) = "はじめてのプロシージャの再帰的使用。"
n = n + 1
If n < 10 Then f
End Sub
Private Sub CommandButton2_Click()
Rows("5:200").Select
Selection.ClearContents
Range("A1").Select
End Sub
参考ファイル
実行画面はまったく同じで
です。
１行目
Dim n As Byte
に注目してください。
前に、プロシージャは独立であるといい、
独立とは同名であっても変数は、
そのプロシージャ内でしか有効でないと説明しました。
このようにプロシージャ内でしか有効でない変数を
ローカル変数といいます。
プロシージャ内で宣言した変数は、
すべてローカル変数となります。
ですが、
ときにはプログラム全体で有効な変数も
欲しい場面もある訳です。
このようにプロシージャを越えてプログラム全体で、
有効な変数をグローバル変数といいます。
このグローバル変数を用意するには、
Dim n As Byte
Private Sub CommandButton1_Click()
・・・
・・・
・・・
のようにプログラム冒頭で宣言すれば良いのです。
さて、
Sub f()
Cells(5 + n, 2) = "はじめてのプロシージャの再帰的使用。"
n = n + 1
If n < 10 Then f
End Sub
のfに注目してください。
Subプロシージャfの中で、
fすなわち自分に仕事を依頼しています。
ただし、If n < 10 Thenの条件が付いていますが。
Subプロシージャの仕事内容は、
① エクセルシートに『はじめてのプロシージャの再帰的使用。』を表示させる。
② 回数を数える。
③ 自分に仕事を依頼する。
の３つからなります。
③については、回数が１０回以内ならという条件が付いています。
ですが、自分が自分に仕事を依頼するってどういうことでしょうか。
何故、たった１人なのに１０人分の仕事ができてしまうのでしょうか。
この問いに答えるには、
最初のコード
Private Sub CommandButton1_Click()
f (0)
End Sub
Sub f(n As Byte)
Cells(5 + n, 2) = "はじめてのプロシージャの再帰的使用。"
If n < 10 Then f (n + 1)
End Sub
の方がわかりやすいことになります。
