再帰呼出しについて(再帰プロシージャー)
再帰プロシージャとは、自分自身を呼び出すプロシージャです。
プロシージャが、そのプロシージャ内で自分自身を呼び出すような処理を再帰呼び出しと呼びます。
自分自身を呼び出し、終了条件を満たすまで、意図的に無限ループさせます。
再帰呼出を実装したプロシージャーは再帰プロシージャーと呼びます。
指定数値の階乗を求める再帰VBA
Sub sample()
MsgBox sample_sub(5)
End Sub
Function sample_sub(ByVal n As Long) As Long
If n <= 1 Then
sample_sub = 1 'ここで再帰処理は終了します。
Else
sample_sub = n * sample_sub(n - 1) 'ここで自分自身を呼び出しています。
End If
End Function
上の例では、5の階乗、つまり、120がメッセージボックスに表示されます。
ステップ実行(F8)で、1行ずつ確認しながら、nの変化を確認して下さい。
これが実行されると、再び、
Function sample_sub(ByVal n As Integer)
ここに入ってくることが確認できます。
sample_sub = 1
この後は、
End Function
が繰り返されることが分かる筈です。
ぜひ、ステップ実行(F8)で確認してみてください。
再帰プロシージャで考慮すべき事項
制限条件の確認
また、妥当な回数の再帰呼び出しを行ってもこの条件が満たされない場合の処理も必要です。
必ず満たされる条件を最低 1 つ用意しないと、プロシージャが無限ループに陥る可能性が高くなります。
再帰プロシージャを作成した場合、最低 1 つの制限条件を満たしていることを必ずテストする必要があります。
また、再帰呼び出しが多すぎるためにメモリを使い果たすことがないことを確認する必要があります。
メモリ使用状況
プロシージャが自分自身を呼び出す際、ローカル変数のコピーが毎回作成され、領域を消費します。
このプロセスがいつまでも続くと、最終的には StackOverflowException エラーが発生します。
かっこ()を使った呼び出しをする
そうしないと、関数名が関数の戻り値を表していると見なされてしまいます。
Subプロシージャーで再帰呼び出しする場合
フィボナッチ数列(再帰呼び出し)
実際の再帰処理では、Functionの戻り値とByRef引数を組み合わせて使用することも多々あります。
再帰呼び出しの実践例
サブフォルダの階層は際限がない為、一般的なループでは処理が難しいのですが、
再帰呼出しを使う事で、短いVBAコードで実現する事が出来ます。
再帰呼出しとFileSystemObjectが出てくるのは、№6からですが、Dir関数と合わせて、一度は目を通しておくと良いでしょう。
各種ゲーム
ナンバーリンク(パズル)を解くVBAに挑戦
オセロを作りながらマクロVBAを学ぼう
同じテーマ「マクロVBA技術解説」の記事
マクロ作成後に表位置がずれた場合の対処
ExecuteExcel4Macroについて
再帰呼出しについて(再帰プロシージャー)
フィボナッチ数列(再帰呼び出し)
文字列でのセル参照と文字列の計算式について(Evaluate,INDIRECT)
リボンを非表示、2003以前ならメニューを非表示
印刷ページ設定の余白をセンチで指定する(CentimetersToPoints)
文字列としてのプロシージャー名を起動する方法(Run,OnTime)
ドキュメントの作成者を取得(GetObject,BuiltinDocumentProperties)
画像サイズ(横x縦)の取得について
文字種(ひらがな、全半角カタカナ、半角英大文字等々)の判定
新着記事NEW ・・・新着記事一覧を見る
Select Caseでの短絡評価(ショートサーキット)の使い方|VBA技術解説(1月3日)
VBA100本ノック 迷宮編:巡回セル問題|VBA練習問題(12月31日)
VBA100本ノック 58本目:番号リストを簡潔にした文字列で返す|VBA練習問題(12月30日)
VBA100本ノック 57本目:ファイルの更新日時|VBA練習問題(12月29日)
VBA100本ノック 56本目:数式内の自身のシート名を消す|VBA練習問題(12月28日)
VBA100本ノック 55本目:他ブックのマクロを起動|VBA練習問題(12月26日)
VBA100本ノック 54本目:シートのChangeイベント|VBA練習問題(12月25日)
VBA100本ノック 53本目:テーブルの扱いと年齢計算|VBA練習問題(12月23日)
VBA100本ノック 52本目:複数シートの一括印刷|VBA練習問題(12月22日)
VBA100本ノック 51本目:シート一覧と印刷ページ数|VBA練習問題(12月21日)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得(End,Rows.Count)|VBA入門
2.RangeとCellsの使い方|VBA入門
3.変数宣言のDimとデータ型|VBA入門
4.マクロって何?VBAって何?|VBA入門
5.セルのコピー&値の貼り付け(PasteSpecial)|VBA入門
6.繰り返し処理(For Next)|VBA入門
7.Range以外の指定方法(Cells,Rows,Columns)|VBA入門
8.セルに文字を入れるとは(Range,Value)|VBA入門
9.とにかく書いてみよう(Sub,End Sub)|VBA入門
10.繰り返し処理(Do Loop)|VBA入門
- ホーム
- マクロVBA応用編
- マクロVBA技術解説
- 再帰呼出しについて(再帰プロシージャー)
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。