Макрос для выделения цветом

@ega005 · Регистрация: 12.10.2012

Студворк — интернет-сервис помощи студентам

Помогите пжл написать макрос для заливки ячейки по условию:
в столбце:
если значение в ячейке от 25 до 29 то ячейка заливается желтым цветом
если больше 30 то красным цветом
остальные зеленым.
__________________
Но еще в этом столбце есть формула которая считает кол-во заполненных ячеек. Т.е. макрос должен брать значение которое посчитано формулой и закрашивать ячейку.

@Vlad999 · 20.11.2014, 13:20

обязательно макрос? УФ (условное форматирование) не подойдет?

@ega005 · 20.11.2014, 14:57 **[ТС]**

Я пробовал УФ, это все не то, не подходит.

@Alex77755 · 21.11.2014, 00:20

Visual Basic
1
2
3
4
5
6
7
8
Sub QWERT()
    Dim r
    For r = 1 To Cells(Rows.Count, 1).End(xlUp).Row
        Range("B" & r).Interior.ColorIndex = 10
        If Range("B" & r) >= 25 And Range("B" & r) <= 29 Then Range("B" & r).Interior.ColorIndex = 6
        If Range("B" & r) >= 30 Then Range("B" & r).Interior.ColorIndex = 3
    Next
End Sub

@ega005 · 21.11.2014, 07:01 **[ТС]**

Спасибо большое то что нужно.

Новые блоги и статьи Все статьи Все блоги /
Основы OpenGL 3.3 и Qt 6.9. Трансформированный треугольник 8Observer8 27.06.2025 На русском https:/ / rutube. ru/ video/ e424497dd6b7ae7e11494027c4b31a54/ https:/ / vkvideo. ru/ video-231040171_456239019 https:/ / www. youtube. com/ watch?v=mfD-ZL7wa_4 Bastyon	Федерация аутентификации на основе JWT-токенов с Keycloak и .NET в гетерогенных инфраструктурах ArchitectMsa 27.06.2025 Тот самый момент, когда впервые столкнулся с проблемой интеграции десятка разрозненных систем аутентификации в одной корпоративной экосистеме. Кажый сервис жил своей жизнью - тут Basic Auth, там. . .	Гайд по современным СУБД (небесспорный) Codd 26.06.2025 Когда я только начинал свой путь в IT как рядовой программист, база данных казалась мне чем-то простым и понятным. Ну, серьезно — это же просто место, где лежат данные, верно? Напиши SELECT * FROM. . .	Использование C# с AWS S3: Примеры с AWS SDK для .NET stackOverflow 26.06.2025 Amazon S3 (Simple Storage Service) уже давно стал стандартом де-факто в мире облачного хранения данных. Особенно приятно, что для разработчиков . NET предусмотрен отличный SDK, который значительно. . .	Веб-автоматизация с Python и Selenium AI_Generated 25.06.2025 Selenium с Python — это комбинация, которая выдержала проверку временем. Несмотря на появление новых инструментов вроде Playwright или Puppeteer, связка Python-Selenium остаётся золотым стандартом. . .
CQRS и Event Sourcing на C# ArchitectMsa 25.06.2025 За последние несколько лет сложность корпоративных приложений выросла в геометрической прогрессии. Простые монолитные системы уступили место распределенным микросервисам, а нагрузка на корпоративные. . .	Хак домофона или как открыть дверь по номеру yariko 25.06.2025 Забыли дома ключ. Не проблема. Можно открыть дверь домофона, просто позвонив на свой номер квартиры. Идея состоит в следующем. Внутрь трубки абонента встраивается контроллер, который по звонку сам. . .	Как украсить новогоднюю елку с Q# и Qiskit EggHead 24.06.2025 Что может быть необычнее, чем применить законы квантовой механики для украшения новогодней елки? Пока другие развешивают обычные гирлянды, я решил объединить свою страсть к квантовым вычислениям с. . .	Системы нулевого доверия на C# UnmanagedCoder 24.06.2025 Традиционная архитектура безопасности работает по принципу средневекового замка: создаём высокие стены вокруг корпоративной сети, укрепляем ворота межсетевыми экранами и системами обнаружения. . .	Снова не мой путь. Циклическое среднее, я обеими руками за проверку условия, в ракурсе данной задачи - циклическое среднее в топку. Hrethgir 24.06.2025 Привет. Такой вопрос - нужно выводить среднее математическое между двумя направлениями, интервал значений которых может лежать в диапазоне одного оборота по кругу. Проблема заключается в том, что. . .

@Vlad999 3943 / 2336 / 790 Регистрация: 02.11.2012 Сообщений: 6,208
	20.11.2014, 13:20
	обязательно макрос? УФ (условное форматирование) не подойдет? 1

@ega005 3 / 3 / 0 Регистрация: 12.10.2012 Сообщений: 101
	20.11.2014, 14:57 [ТС]
	Я пробовал УФ, это все не то, не подходит. 1

@ega005 3 / 3 / 0 Регистрация: 12.10.2012 Сообщений: 101
	21.11.2014, 07:01 [ТС]
	Спасибо большое то что нужно. 1