Те кто работает c VBA помогите, задание следующие 1)В диапазоне А посчитать количество...

0 голосов
43 просмотров

Те кто работает c VBA помогите, задание следующие
1)В диапазоне А посчитать количество ячеек со значением большем, чем B, но меньше C. 2)Результат вывести на экран 3)Применить формат ячеек D для ячеек, значение которых равно E Условие: А= «С5:D9» B = 77 C = 131 D = курсив желтого цвета с подчеркиванием Е=8 первые 2 пункта я знаю как делать с третим поисходит затык. напишите формулу.


Информатика (35 баллов) | 43 просмотров
0

прикрепите свой файл c Excel'я пожалуйста

Дан 1 ответ
0 голосов
Правильный ответ
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, если там другое значение - ставится стандартное оформление

image
(1.1k баллов)