В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
4236fjfjfuf
4236fjfjfuf
24.05.2021 07:07 •  Информатика

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

Ответ:
Gromozeka1
Gromozeka1
24.07.2020 17:28
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, если там другое значение - ставится стандартное оформление
Те кто работает c vba , следующие 1)в диапазоне а посчитать количество ячеек со значением большем, ч
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?