【Excelマクロ】インデントを揃える【VBA】

Pythonのようにインデントを強制されているわけではないが、強制されていないとしてもインデントは重要である。

まずはインデントが適切に設定されたコードを示す。

Sub SetColor()
    Dim i As Long
    For i = 1 To 3
        If Sheet1.Cells(i, 1).Value = "1" Then
            If Sheet1.Cells(i, 2).Value = "2" Then
                Sheet1.Cells(i, 3).Interior.Color = RGB(255, 255, 255)
            End If
        End If
    Next
End Sub

次にインデントが設定されていないコードを示す。

Sub SetColor()
Dim i As Long
For i = 1 To 3
If Sheet1.Cells(i, 1).Value = "1" Then
If Sheet1.Cells(i, 2).Value = "2" Then
Sheet1.Cells(i, 3).Interior.Color = RGB(255, 255, 255)
End If
End If
Next
End Sub

最後にインデントが徹底されていないコードを示す。

Sub SetColor()
    Dim i As Long
    For i = 1 To 3
        If Sheet1.Cells(i, 1).Value = "1" Then
            If Sheet1.Cells(i, 2).Value = "2" Then
        Sheet1.Cells(i, 3).Interior.Color = RGB(255, 255, 255)
        End If
            End If
    Next
End Sub

たった10行のコードであっても、構造が理解しやすいかどうかに大きな影響を与えることが理解いただけると思う。
このようにインデントは重要であるのだ。