条件付き書式　日曜ならＡからＤ列まで下線を赤色

Question

条件付き書式　日曜ならＡからＤ列まで下線を赤色にしたいです。
画像のようにＡ列の値が日曜なら、ＡからＤ列まで下線を赤色にするにはどうすればいいでしょうか？

gyouda1114 · Accepted Answer

No.1です
画像添付忘れで追加回答

gyouda1114 · Answer

１．対象のセルを選択（画像でA1:D13)
２．ホーム → スタイルグループの条件付き書式
３．新しいルール → 数式を使用して、書式設定するセルを決定
４．次の数式を満たす場合に・・・書式設定に
=WEEKDAY($A1)=1
５．書式 → 罫線 → 色を赤 → プレビューで下線を選択

mike_g · Answer

条件1 の数式; =MOD($A1,7)=1
条件2 の数式; =MOD($A1,7)=2
条件3 の数式; =OR(MOD($A1,7)<1,MOD($A1,7)>2)

tom04 · Answer

No.1です！
たびたびごめんなさい。

前回のVBAの場合、古いデータの線を消去するのを忘れていました。
↓のコードに変更してください。

Sub Sample2()   'この行から
    Dim i As Long
    Application.ScreenUpdating = False
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        Cells(i, "A").Resize(, 4).Borders(xlEdgeBottom).LineStyle = xlNone
        If WorksheetFunction.Weekday(Cells(i, "A")) = 1 Then
            Cells(i, "A").Resize(, 4).Select
            With Selection.Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .Color = vbRed
                .Weight = xlThick
            End With
        End If
    Next i
    Application.ScreenUpdating = True
End Sub 'この行まで

どうも失礼しました。m(_ _)m

tom04 · Answer

こんばんは！

条件付き書式で行いたい場合
A～D列すべてを範囲指定　→　条件付き書式　→　新しいルール　→　数式を使用して・・・　→　数式欄に
=WEEKDAY($A1)=1
という数式を入れ　→　書式　→　「罫線」タブ　→　下線・「赤」を選択しOK

※　条件付き書式では「枠線」の太さは指定できないようですので、
どうしても太い線を希望される場合、VBAになってしまいますが
一例です。
画面左下の操作したいSheet見出し上で右クリック　→　コードの表示　→　VBE画面に
↓のコードをコピー＆ペースト　→　Excel画面に戻りマクロを実行してみてください。
（Alt+F8キー　→　マクロ　→　マクロ実行です）

Sub Sample1()   'この行から
    Dim i As Long
    Application.ScreenUpdating = False
    For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
        If WorksheetFunction.Weekday(Cells(i, "A")) = 1 Then
            Cells(i, "A").Resize(, 4).Select
            With Selection.Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .Color = vbRed
                .Weight = xlThick
            End With
        End If
    Next i
    Application.ScreenUpdating = True
End Sub 'この行まで

※　条件付き書式が設定してある場合は反応しませんので、
条件付き書式はクリアして、マクロを実行してください。
※　データ変更があるたびにマクロを実行する必要があります。m(_ _)m

条件付き書式 日曜ならＡからＤ列まで下線を赤色

No.1です

１．対象のセルを選択（画像でA1:D13)

条件1 の数式; =MOD($A1,7)=1

No.1です！

こんばんは！

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

条件付き書式　日曜ならＡからＤ列まで下線を赤色