Question

Те кто работает c vba , следующие 1)в диапазоне а посчитать количество ячеек со значением большем, чем b, но меньше c. 2)результат вывести на экран 3)применить формат ячеек d для ячеек, значение которых равно e условие: а= «с5: d9» b = 77 c = 131 d = курсив желтого цвета с подчеркиванием е=8 первые 2 пункта я знаю как делать с третим поисходит затык. напишите формулу.

Answer 1

Sub SetColor()
For Each C In Range(Range("A1").Value)
        If C.Value = Range("E1") Then
            With C.Font
                .Bold = Range("D1").Font.Bold
                .Color = Range("D1").Font.Color
                .Italic = Range("D1").Font.Italic
                .Underline = Range("D1").Font.Underline
            End With
            C.Interior.Color = Range("D1").Interior.Color
        Else
            With C.Font
                .Bold = False
                .Italic = False
                .Underline = xlUnderlineStyleNone
                .ColorIndex = xlAutomatic
            End With
            C.Interior.Color = vbWhite
        End If
    Next C
End Sub

если в ячейках, указанных в А1, значения те же, что и в Е1, то эти ячейки меняют свое оформление на то же, что и ячейка D1, если там другое значение - ставится стандартное оформление