すべてのカテゴリ

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