選択範囲に条件付書式（空白時黄色）を設定する

全員が回答を入れる一覧等、空白（未回答）の箇所に条件付書式で色づけしたいことがよくあります。

Sub 条件付書式で空白を黄色にする()

    '設定したいセルを選んでから実行
    With Selection
        .FormatConditions.Add Type:=xlExpression, Formula1:="=" & Selection(1).Address(False, False) & "= """""
        .FormatConditions(1).Interior.Color = 65535  '黄色
    End With
    
End Sub
タイトルとURLをコピーしました