一つ一つのセルを、ひとつのプロシージャが分担するとすると、８１個のプロシージャを用意しなければなりません。
でもこれは無駄です。
それぞれのセルで処理することは、
① 列の重複チェック
② 行の重複チェック
③ ブロックの重複チェック
のすべてがクリアできたら、１以上９以下の整数を入れることです。
処理は同一なのです。
ですから、８１個のプロシージャを用意することは全くの無駄です。
処理内容が同一なのですから、１個のプロシージャを用意すればよいのです。
では、８１回もプロシージャを呼び出さなければならないでしょうか。
実は、実行プログラムであるPrivate Sub CommandButton1_Clickからは１回の呼び出しで済むように出来ます。
結果的には確かに８１回呼び出すのですが、Private Sub CommandButton1_Clickからは１回だけ呼び出せば、
自動的に８１回プロシージャを呼び出せるように出来るのです。
それが再帰的使用です。
再帰的使用のことを自己再帰ともいいます。
自己に再び変えるとはどういうことでしょうか。
それは、自己を自己から呼び出せばよいのです。
自分が自分を呼び出したとき、帰る先は自分です。
自己再帰とは、ロシアの入れ子式人形を思い浮かべていただければよいと思います。
Private Sub CommandButton1_Clickから、最初に一番大きい人形＝一番外側の人形を呼び出します。
人形は、さらに人形を呼び出します。
一番大きい人形＝一番外側の人形が、２番目に大きい人形＝外から２番目の人形を呼び出します。
外から２番目の人形は、外から３番目の人形を呼び出します。
以下繰り返し、
外から６番目の人形が、外から７番目の人形を呼び出します。
そして、一番小さい人形にたどり着いたとき（数独でいえば８１番目のセルにたどり着いたとき）、自分探しの旅が終わります。
自分のより深い起源＝本質を求める旅が終わりを告げるのです。
自分の一番深い本質＝起源が、入れ子式の一番小さい人形であることがわかったら（数独の場合は、数独が完成したら）、
旅路は、逆順をたどることになります。
一番内側の人形から、内側から２番目へと帰ります。
そして、内側から２番目から、３番目への還帰となります。
同様に次々に外側に帰り、一番外側に帰り着きます。
最後に、一番外側からPrivate Sub CommandButton1_Clickへ帰り着いて自分探しの旅は終わりとなります。
どんどん自分のより深い本質を求めて、深く遡及していって本質を見いだしたらもとの自分に返ることによって、
自分が何であるかを明らかにします。
確かに、自分を自分が呼び出しますが、同じ自分でも実は、外側に人形が内側の人形を呼び出すように、
次元の違う自分です。
ここを理解するかどうかが、自己再帰を理解するときのキーとなります。
自分が自分を呼び出しているが、呼び出す自分と呼び出される自分は次元の違う自分です。
さらに、呼び出された自分から呼び出した自分に帰りますが、
呼び出された自分と呼び出した自分も次元が違いますので、次元の異なる自分に帰るのです。
入れ子式人形で比喩的に説明してきましたが、
もう１回数独で説明し直しましょう。
Private Sub CommandButton1_Clickは、１番目のセルを呼び出します。
１番目のセルは、２番目のセルを呼び出します。
呼び出す自分と呼び出される自分は、次元が違うと申し上げましたが、
１番目のセルと２番目のセルは、まったく同一の構造をもっていますが、異なるセルです。
再帰的使用＝自己再帰では、今自分がどこの世界（セル）にいるのかを明確にしなければなりません。
２番目のセルは、３番目のセルを、３番目のセルは、４番目のセルを、・・・・、と呼びだしていって、
最終的には、８０番目のセルが８１番目のセルを呼び出します。
これで１個目の数独は完成します。
１個目が完成したら、２個めの数独を探すために、８０番目のセルに戻り、８１番目を呼び出してうまくいくかを確認します。
だめなら、何回も逆遡及をしていって、また遡及します。
逆遡及と遡及を何回も何回も繰り返すことによって、
プログラムはすべての解答を見つけようとします。
今回は、抽象的な説明に終始しました。
後に数独解答自動作成プログラムに挑戦しますが、そのときは是非ここに戻って熟読して下さい。
次話からいよいよ順列の具体的なプログラムに着手します。
次のシートとコード作ってください。
Dim a(15) As Byte
Dim cn As Long
Dim n As Byte
Private Sub CommandButton1_Click()
n = Cells(2, 10)
cn = 0
f (0)
Cells(3, 13) = cn
End Sub
Sub f(g As Integer)
・
・
・
～f(g+1)～
・
・
・
End Sub
Private Sub CommandButton2_Click()
Rows("5:20000").Select
Selection.ClearContents
Range("J2,M3").Select
Selection.ClearContents
Cells(1, 1).Select
End Sub
J2に値を入力すると、
となるようにSubプロシージャｆを考えてください。
再帰的使用なのでf(g+1)は不可避です。f(g)がf(g+1)を呼び出しています。
ここでｇはセル番号です。
