Microsoft Excel VBA - 数値0が入力されているセルに色をつける方法

◆概要

このページは、Excel VBAで数値0が入力されているセルに色をつける方法について記載しています。

◆Sample

次の例では、ワークシート sheet1 のセル範囲 c1:c10 に数値0が入力されている場合は、そのセルの色を赤に変更しています。 

Sub ChangeCellColor()

    Dim myRange As Object

    For Each myRange In Worksheets("sheet1").Range("c1:c10")
        'セルの値が 0 のときセルの色を赤にします
        If myRange.Value = 0 Then
            myRange.Interior.Color = RGB(255, 0, 0)
        Else
            myRange.Interior.ColorIndex = xlNone
        End If
    Next myRange

End Sub
　　

◆参考:特定の列でセルに数値0が入力されている行を削除する方法



▼ページトップへ