練習問題24（再帰呼出し）解答
マクロVBA練習問題24の解答ページです。
マクロVBA練習問題
サンプルデータでは、組み合わせの数は、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)してください。
すぐに解答を見ずに、必ず自力で書けるとこまででも良いので書きましょう。
シンキングタイム
シンキングタイム終了
書くべきマクロVBAが分からない時は、
ここでじっくり勉強してから再チャレンジしてください。
ﾏｸﾛVBA練習問題解答
※.Valueは適宜省略しています。
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
For i = 2 To ws1.Cells(ws1.Rows.Count, n).End(xlUp).Row
ary(n) = ws1.Cells(i, n)
If n >= UBound(ary) Then
'横の繰り返しが終わったので出力
With ws2
.Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1) = Join(ary, ",")
End With
Else
'ここで自分自身を呼び出しています。
Call sample_sub(ws1, ws2, ary, n + 1)
End If
Next
End Sub
かなり難しかったかもしれません。
書き方はいろいろあります。
上記VBAでは、出力用の横配列を用意して、そこに入れていき全て入ったら出力。
これを再帰で横に繰り返しています。
以下のように書く事も可能です。
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入門.第111回.静的配列
同じテーマ「マクロVBA練習問題解答」の記事
練習問題21（総合練習3）解答
練習問題22（総合練習4）解答
練習問題23（総合練習5）解答
練習問題24（再帰呼出し）解答
練習問題25（各種VBA関数）解答
練習問題26（全シート処理とハイパーリンク）解答
練習問題27（データ分割し別ブック保存）解答
練習問題28（シートを別ブックにして値のみにする）解答
練習問題29（ロット引き当て）解答
練習問題30（マトリックス→リスト形式）解答
練習問題31（セル結合を解除して値を埋める）解答
新着記事NEW ・・・新着記事一覧を見る
VBA100本ノック 100本目：WEBから100本ノックのリストを取得｜VBA練習問題（3月3日）
VBA100本ノック 99本目：自動席替え（行列と前後左右が全て違うように）｜VBA練習問題（3月2日）
VBA100本ノック 98本目：席替えルールが守られているか確認｜VBA練習問題（3月1日）
VBA100本ノック 97本目：Accessデータを取得（グループ集計）｜VBA練習問題（2月27日）
VBA100本ノック 96本目：Accessデータを取得（マスタ結合&抽出）｜VBA練習問題（2月26日）
VBA100本ノック 95本目：図形のテキストを検索するフォーム作成｜VBA練習問題（2月24日）
VBA100本ノック 94本目：表範囲からHTMLのtableタグを作成｜VBA練習問題（2月23日）
VBA100本ノック 93本目：複数ブックを連結して再分割｜VBA練習問題（2月22日）
VBA100本ノック 92本目：セルの色を16進で返す関数｜VBA練習問題（2月20日）
VBA100本ノック 91本目：時間計算（残業時間の月間合計）｜VBA練習問題（2月19日）
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.RangeとCellsの使い方｜VBA入門
3.変数宣言のDimとデータ型｜VBA入門
4.マクロって何？VBAって何？｜VBA入門
5.Range以外の指定方法（Cells,Rows,Columns）｜VBA入門
6.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
7.繰り返し処理（For Next)｜VBA入門
8.セルに文字を入れるとは（Range,Value）｜VBA入門
9.マクロはどこに書くの（VBEの起動）｜VBA入門
10.とにかく書いてみよう（Sub,End Sub）｜VBA入門
- ホーム
- マクロVBA入門編
- マクロVBA練習問題解答
- 練習問題24（再帰呼出し）解答
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、
間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。
掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。