Применить тень на диапазон ячеек на основе значения в другом диапазоне ячеек, используя VBA

Question

У меня есть лист Excel 2010 с датами для каждого месяца года (B8: B38).В (A8: A38) я использую weekday() для отображения дней недели в виде текста.

Теперь я хотел бы закрасить только строки в диапазоне (A8: W38), показывая Saturday & Sundays50% серый.

Я попробовал условное форматирование без удачи.Может быть потому, что в каждой ячейке (A8: A38) у меня есть формула (день недели ()), а не текст (пн, вт, ср, чт, пт, сб или вс).

Любое предложение высоко ценится,Спасибо вам всем!: =) Стевас

Answer 1

Попробуйте что-то вроде этого, если вам нужно использовать VBA: -

    Option Explicit

        Sub ColourDays()
        Dim rng As Range
        Dim ws As Worksheet
        Dim c As Range

        Set ws = Worksheets("Sheet1")
        Set rng = ws.Range("A8:W38")

        For Each c In rng
        If c.Value = "Sat" Then

        With c.Interior
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
                .ThemeColor = xlThemeColorDark1
                .TintAndShade = -0.149998474074526
                .PatternTintAndShade = 0
        End With

        Else
        If c.Value = "Sun" Then

        With c.Interior
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
                .ThemeColor = xlThemeColorDark1
                .TintAndShade = -0.149998474074526
                .PatternTintAndShade = 0
            End With
        End If
        End If
        Next c
End Sub