練習問題24（再帰呼出し）回答

最終更新日：2015-10-22

練習問題24（再帰呼出し）回答

練習問題24の回答ページです、

問題

・以下の表の全組み合わせを作成して下さい。
　サンプルデータでは、組み合わせの数は、8*3*6*5=720通りです。

・各項目はカンマ(,)で区切って下さい。
・出力先は、新規シートを追加し、
　1行目に見出しとして"組み合わせ文字"と入れ、
　2行目より出力して下さい。

※組み合わせ文字
　項目A1,項目B1,項目C1,項目D1
　項目A1,項目B1,項目C1,項目D2
　・・・
　項目A1,項目B1,項目C2,項目D1
　項目A1,項目B1,項目C2,項目D2
　・・・
　項目A1,項目B2,項目C1,項目D1
　・・・
　このように出力します。

　　Ａ　　　　Ｂ　　　　Ｃ　　　　Ｄ

分類A	分類B	分類C	分類D
項目A1	項目B1	項目C1	項目D1
項目A2	項目B2	項目C2	項目D2
項目A3	項目B3	項目C3	項目D3
項目A4		項目C4	項目D4
項目A5		項目C5	項目D5
項目A6		項目C6
項目A7
項目A8

※上記表の全体選択し、コピー(Ctrl+C)の後、エクセルのシートのA1セルに貼り付け(Ctrl+V)してください。

では、お考えください。

すぐに回答を見ずに、必ず自力で書けるとこまででも良いので書きましょう。

・
・・
・・・
・・・・
・・・・・

当サイトのコンテンツ

ExcelマクロVBA入門
マクロの記録で覚えるVBA

ここで、じっくり勉強して下さい。

・
・・
・・・
・・・・
・・・・・

では回答です。


  
    
      Sub sample()

      　　Dim ary() As String

　　Dim ws1 As Worksheet

　　Dim ws2 As Worksheet

　　Application.ScreenUpdating = False

　　Set ws1 = ActiveSheet

　　Set ws2 = Worksheets.Add

　　ws2.Range("A1") = "組み合わせ文字"

　　With ws1

　　　　ReDim ary(1 To .Cells(1, Columns.Count).End(xlToLeft).Column)


　　　　Call sample_sub(ws1, ws2, ary, 1)

　　End With

      　　Application.ScreenUpdating = True

End Sub
Private Sub sample_sub(ByVal ws1 As Worksheet, ByVal ws2 As Worksheet, _

　　　　　　　　　　　　ByRef ary() As String, ByVal n As Integer)

　　Dim i As Integer

　　With ws2

　　　　For i = 2 To ws1.Cells(ws1.Rows.Count, n).End(xlUp).Row

　　　　　　ary(n) = ws1.Cells(i, n)

　　　　　　If n >= UBound(ary) Then

　　　　　　　　.Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1) = Join(ary, ",")

　　　　　　Else

　　　　　　　　Call sample_sub(ws1, ws2, ary, n + 1) 'ここで自分自身を呼び出しています。

　　　　　　End If

　　　　Next

　　End With

End Sub

かなり難しかったかもしれません。

ちなみに、（横の）項目数が固定の４つであれば、再帰呼出しも配列も使わずに、

以下のように書く事も可能です。


  
    
      Sub sample()

　　Dim ws1 As Worksheet

　　Dim ws2 As Worksheet

　　Dim i1 As Long, i2 As Long, i3 As Long, i4 As Long

　　Dim j As Long

　　Application.ScreenUpdating = False

　　Set ws1 = ActiveSheet

　　Set ws2 = Worksheets.Add

　　ws2.Range("A1") = "組み合わせ文字"

　　j = 2

　　With ws1

　　　　For i1 = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row

　　　　　　For i2 = 2 To .Cells(.Rows.Count, 2).End(xlUp).Row

　　　　　　　　For i3 = 2 To .Cells(.Rows.Count, 3).End(xlUp).Row

　　　　　　　　　　For i4 = 2 To .Cells(.Rows.Count, 4).End(xlUp).Row

　　　　　　　　　　　　ws2.Cells(j, 1) = .Cells(i1, 1) & "," & _

　　　　　　　　　　　　　　　　　　　　　　.Cells(i2, 2) & "," & _

　　　　　　　　　　　　　　　　　　　　　　.Cells(i3, 3) & "," & _

　　　　　　　　　　　　　　　　　　　　　　.Cells(i4, 4)

　　　　　　　　　　　　j = j + 1

　　　　　　　　　　Next

　　　　　　　　Next

　　　　　　Next

　　　　Next

　　End With

　　Application.ScreenUpdating = True

End Sub

この場合、項目数分のループが必要で、項目数不定では対応ができません。

先の再帰呼出しを使ったプログラムでは、項目数がいくつでも自動対応されます。

再帰呼出しは、頻繁に使うものではありませんが、通常のループ処理では困難な場合があります。

また、配列も必須テクニックです、合わせて、しかっりと習得して下さい。

以下を参考にして下さい。

マクロVBA技術解説.再帰呼出しについて（再帰プロシージャー）

再帰プロシージャとは、自分自身を呼び出すプロシージャです。プロシージャが、そのプロシージャ内で自分自身を呼び出すような処理を再帰呼び出しと呼びます。ExcelマクロVBAの問題点と解決策、エクセルVBAの技術的解説

マクロVBA入門.第111回.静的配列

配列は、値を格納するために多くの区画を持つ1つの変数です、集合住宅やアパートにたとえられますが、要は、変数の箱を複数つなげたものと理解すれば良いでしょう。1つの箱には、1つの値しか入れられませんが、その箱が複数つながっていますので、結果として、複数の値をいれられるのが,Excelマクロの基礎と応用、エクセルVBAの入門・初級・初心者向け解説

マクロVBA入門.第112回.動的配列（ReDim）

静的配列では、配列の要素数は宣言時点で決められていました、しかし、プログラミングをする上で、実行時点で要素数を決めたい場合や、実行途中で増やしたい場合が多くあります。実行時点で要素数を増減できるのが、動的配列になります。Excelマクロの基礎と応用、エクセルVBAの入門・初級・初心者向け解説

マクロVBA入門.第113回.配列に関連する関数

配列を使う上で、必要となるVBA関数がいくつかあります、より便利に配列を活用するために必須となるVBA関数について解説します。LBound関数配列の指定された次元で使用できる最小の添字を、長整数型(Long)の値で返します。Excelマクロの基礎と応用、エクセルVBAの入門・初級・初心者向け解説

マクロVBA入門.第114回.セル範囲⇔配列

セル範囲をVariant型変数に入れる事で、配列を作成することができます、また、配列をセル範囲にまとめて入れる事も出来ます。これは、VBAを高速処理したい時の必須テクニックになります、マクロVBAの処理が遅い場合は、このテクニックが使えないか検討してください。Excelマクロの基礎と応用

マクロVBA技術解説.配列の使い方について