【Excel VBA】市松模様セル作成マクロ▽ソースコード

Option Explicit

Option Base 0

'

Public Sub 市松模様セル作成マクロ()

    Const GRIDCOLS = 6　　　      '*桁数

    Const GRIDROWS = 10　　　   '*行数

    '

    Const GRIDCOL1 = 26　　　    '*セル背景色１

    Const GRIDCOL2 = 38　　　    '*セル背景色２

    '---------------------------------------------------------------------------

    Dim Ip As Integer, Jp As Integer

　 '　

    ActiveSheet.Cells.Clear 　　　　'全セル消去

    '

    For Jp = 1 To GRIDROWS

        For Ip = 1 To GRIDCOLS

           If ((Jp + Ip) Mod 2) = 0 Then

              ActiveSheet.Cells(Jp, Ip).Interior.ColorIndex = GRIDCOL1

           Else

              ActiveSheet.Cells(Jp, Ip).Interior.ColorIndex = GRIDCOL2

           End If

        Next Ip

    Next Jp

End Sub