[098.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
                .Name = "ＭＳ Ｐ明朝"
                .FontStyle = "太字"
            End With
        Else
            '既定のフォント
            Cells(intCnt, intFixCol).Select
            With Selection.Font
                .Name = "ＭＳ Ｐゴシック"
                .FontStyle = "標準"
            End With
        End If
    
    Next intCnt
    
End Sub