[107.xls]



' [mjSumple] のコード
'■■ １行間隔で網掛けする ■■
'
'
Const intStartRow = 9   '開始行
Const intEndRow = 13    '終了行
Const intFixCol = 6     '固定列
Const intPtnWidth = 2   '網掛けの幅 - 1

Sub psCell_Search()
    
Dim intCnt As Integer
   
    For intCnt = intStartRow To intEndRow
        If intCnt Mod 2 = 0 Then
            '網かけする
            Range(Cells(intCnt, intFixCol), Cells(intCnt, intFixCol + intPtnWidth)).Select
            With Selection.Interior
                .ColorIndex = 34
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
            End With
        Else
            '網かけ無し
            Range(Cells(intCnt, intFixCol), Cells(intCnt, intFixCol + intPtnWidth)).Select
            Selection.Interior.ColorIndex = xlNone
        End If
    Next intCnt
End Sub