ExcelVBAのFor～Nextステートメントのネスト｜プログラミング学習おすすめ書籍情報発信パソコン初心者エンジニア希望者新人エンジニア IT業界への就職・転職希望者サポートサイト Programming learning Recommended schools Recommended books Information dissemination Computer beginners Prospective engineers New engineers Prospective job seekers in the IT industry Support site

目標
For～Nextステートメントのネストの利用方法と動作
- For～Nextステートメントのネストの利用方法
- ネストされた繰り返し文のプログラムの動き
Resizeプロパティの概要と利用方法
ブックマークのすすめ

目標

For～Nextのネストを理解して利用できる
ネストした繰り返し文の動きをイメージできる
Resizeプロパティを理解して利用できる。

For～Nextステートメントのネストの利用方法と動作

For～Nextステートメントのネストの利用方法

ネストとは入れ子構造のことでした。先ずは、どのような場面で利用されるのかを考えてみたいと思います。

例えば形式の同じ表が複数個用意されているExcelファイルで、それぞれの表に同様の計算や処理を行わせたい場合などがあります。このような場面でひとつ目の表の複数のセルで繰り返しの処理を行わせ、終わったら次の表へ、また終わったら更に次の表へと処理が移動するようなプログラムを記述する時に利用されます。

今回は上記のようなプログラムを記述してみます。次の制御構造（Part.7）ではもう少し複雑な処理のプロシージャを組んでみようと思います。

ネストされた繰り返し文のプログラムの動き

先ずは基本の動きを理解するためにシンプルなFor文のネストを確認します。

サンプルプロシージャ１

Sub NestFor1()

Dim i As Integer, j As Integer

For i = 1 To 5
    For j = 1 To 5
        Cells(i, j) = i * j
    Next j
Next i

End Sub

実行結果

動作の確認

繰り返しの入れ子では外の繰り返しが1回動くごとに、内側の繰り返すが全て動きます。

具体的には

外側の「i」が１の時「j」が1,2,3,4,5とカウントされ5回動く
外側の「i」が２の時「j」が1,2,3,4,5とカウントされ5回動く
外側の「i」が３の時「j」が1,2,3,4,5とカウントされ5回動く
外側の「i」が４の時「j」が1,2,3,4,5とカウントされ5回動く
外側の「i」が５の時「j」が1,2,3,4,5とカウントされ5回動く

となっています。

サンプルプロシージャ２

次は、冒頭であげた「形式の同じ表が複数個用意されているExcelファイルで、それぞれの表に同様の計算や処理を行わせたい場合」について参考のプロシージャを作成します。

Dim sheetName(3) As String
sheetName(1) = "Sheet1"
sheetName(2) = "Sheet2"
sheetName(3) = "Sheet3"

Sheets("Sheet4").Select
Range("C3").Select
ActiveCell.CurrentRegion.Select
Selection.ClearContents

For i = 1 To 3
    Worksheets(sheetName(i)).Select
    Range("C3").Select
    ActiveCell.CurrentRegion.Select
    tableRow = Selection.Rows.Count
    tableColumns = Selection.Columns.Count
   
    If i = 1 Then
        Selection.Copy
        Sheets("Sheet4").Select
        Range("C3").Select
        ActiveSheet.Paste
    Range("C3").Select
    ElseIf i <> 1 Then
        ActiveCell.Offset(1, 0).Resize(tableRow - 1, tableColumns).Select
        Selection.Copy
        Sheets("Sheet4").Select
        Range("C3").Select
        Selection.End(xlDown).Select
        ActiveCell.Offset(1, 0).Select
        ActiveSheet.Paste
    End If

    Application.CutCopyMode = False
    
    If i = 3 Then
        ActiveCell.CurrentRegion.Select
        tableRow = Selection.Rows.Count
        tableColumns = Selection.Columns.Count
        ActiveSheet.Range("H5").Select
        
        Application.ScreenUpdating = False
        Application.EnableEvents = False
        For j = 1 To tableRow - 2
            ActiveCell.FormulaR1C1 = "=R[-1]C+RC[-2]-RC[-1]"
            ActiveCell.Offset(1, 0).Select
        Next j
        Application.ScreenUpdating = True
        Application.EnableEvents = True
    End If
Next i

End Sub

ネストされているFor文は下から8行目の「For j = 1 To tableRow」の部分となります。

このプログラムでは下のキャプチャのような日計計算のエクセルファイルがあったと仮定して最終的な月次の収支を出すような場面を想定しています。シートは「現金収支のシート(Sheet1)」「口座収支のシート(Sheet2)」「ガード入金(Sheet3)」の三種類があり、最終的に一枚のシート(Sheet4)へ併合して月の収支を出すものです。

それぞれの収支はキャプチャのようになっています。