VBA学習ツール無料配布！#27 テーマ:vbaで太字を設定・解除しよう！

Option Explicit

Sub correctAnswerExample()
    Dim ws As Worksheet
    Dim row As Integer
    Dim FirstRow As Integer
    Dim DataLen As Integer
    Dim cell As Range
    Set ws = ThisWorkbook.Worksheets("読み込みシート")
    ' シート「読み込みシート」をアクティベートする
    ws.Activate
    ' 「データ」の最初の行を定義
    FirstRow = 6
    ' 「データ」の長さを定義
    DataLen = 5
    ' 各セルをループ
    For row = FirstRow To FirstRow + (DataLen - 1)
        Set cell = ws.Cells(row, 2)
        If InStr(cell.Value, "重要") > 0 Then
            cell.Font.Bold = True ' 「重要」を含む場合、太字を設定
        Else
            cell.Font.Bold = False ' 含まない場合、太字を解除
        End If
    Next row
    ' メッセージボックスで通知
    MsgBox "太字設定を完了しました。", vbInformation
End Sub