vba - Excel VBA を使用して 5 つのセルを連続してループする方法

Question

Q5 - U5 の 5 つのセルをループしたい。

各セルで、値が「Y」に等しいかどうかを確認し、そうであれば、セルを強調表示して緑色にします。

どうすればいいですか？それを理解できないようです。

For Each c In Range("Q5:U5").Cells
c.Select
If c.Value = Y Then
With Selection.Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .Color = 5287936
    .TintAndShade = 0
    .PatternTintAndShade = 0
End With
End If
Next

Answer 1

範囲の選択/アクティブ化を避けるようにしてください: 99% の場合、その必要はありません (ただし、マクロ レコーダーは常に別の方法を提案します)。

For Each c In ActiveSheet.Range("Q5:U5").Cells
    If c.Value = "Y" Then
    With c.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    End If
Next