[099.xls]



' [mjSumple] のコード
'■■ 検索条件に合致した値のあるセルだけ文字の色を変更する ■■
'
'
Const intStartRow = 8
Const intEndRow = 13
Const intFixCol = 8

Sub psCell_Search()
    
Dim strJoken As String
Dim intCnt As Integer

    strJoken = Sheets("Title").Range("F8")
    
    For intCnt = intStartRow To intEndRow
        If strJoken = Worksheets("Title").Cells(intCnt, intFixCol) Then
            '検索条件に合致した場合の文字色（赤）
            Cells(intCnt, intFixCol).Select
            With Selection.Font
                .ColorIndex = 3
            End With
        Else
            '既定の文字色（黒）
            Cells(intCnt, intFixCol).Select
            With Selection.Font
                .ColorIndex = 1
            End With
        End If
    
    Next intCnt
    
End Sub