【エクセルVBA】指定した行ごとにシマシマにする（背景に色をつける）

エクセルの表が見ずらいから、数行ごとに色を付けたいなあ…

エクセルで、シマシマにするのは標準の機能でできますが、
３行ごととか、４行ごととか、変則シマシマはできません。
簡単にできるマクロを作成してみました！

使い方

下記のコードを、個人用マクロブックに保存しましょう。個人用マクロブックの作成方法
対象のエクセル表を開いた状態でマクロを実行します。 F5 or ▶ボタンで実行
実行すると、インプットボックスが出てきますので、何行ごとに背景に色をつけたいか指定します。
※１列目は項目列と認識しますので、１列目を除いて指定してください。
※Interior.ColorIndex = 8 の数字を変更すると、色を変えることができます。
カラーパレットのインデックス番号で指定します。

Sub ShimaShima()

    Dim i As Long 'ループ変数
    Dim iNp As Long '何行ごとのベース
    Dim iNp2 As Long '何行ごとの実行
    Dim Maxcol As Long '最終列
    Dim Maxrow As Long ' 最終行
    Dim a As Long 'ループさせる回数
   
        Maxrow = Cells(Rows.Count, 1).End(xlUp).Row '最終行取得
        Maxcol = Cells(1, Columns.Count).End(xlToLeft).Column '最終列取得
   
            iNp = InputBox("何行ごとに色をつけますか？") 'インプットボックスを表示させて質問
            a = (Maxrow / iNp) + 1 '何回ループさせるか計算
            iNp2 = iNp + 1 '先頭行は、除外
       
                For i = 2 To a
                    Range(Cells(iNp2, 1), Cells(iNp2, Maxcol)).Interior.ColorIndex = 8 '←[8]の数字を変えて、塗りつぶしの色を変更
                    iNp2 = iNp2 + iNp
                Next i
   

End Sub

↓インプットボックスで４を入力すると、下記のように背景が水色に塗られます。