Форматирование ячеек по цвету шрифта

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Форматирование ячеек по цвету шрифта (Макросы/Sub)

gge29

Дата: Четверг, 22.01.2026, 17:52 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 310

Репутация: 3 ±

Замечаний: 0% ±

Добрый вечер!Помогите пожалуйста допилить макрос
Смысл его в форматировании ячеек при замене шрифта на красный,
макрос выделяет ячейку серым если там красный шрифт

К сообщению приложен файл: gggg.xlsm (22.0 Kb)

Ответить

_Boroda_

Дата: Четверг, 22.01.2026, 17:54 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16993

Репутация: 6667 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

А по какому принципу шрифт меняется на красный?

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

gge29

Дата: Четверг, 22.01.2026, 18:00 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 310

Репутация: 3 ±

Замечаний: 0% ±

Цитата _Boroda_, 22.01.2026 в 17:54, в сообщении № 2 (

)

А по какому принципу шрифт меняется на красный?

Александр добрый вечер!Меняется вручную

Ответить

_Boroda_

Дата: Четверг, 22.01.2026, 18:01 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16993

Репутация: 6667 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Я понимаю, что вручную. Но какая-то логика замены есть?
* Все, убегаю домой. Передаю эстафету))) Или завтра

Ответить

gge29

Дата: Четверг, 22.01.2026, 18:10 | Сообщение № 5

Группа: Проверенные

Ранг: Обитатель

Сообщений: 310

Репутация: 3 ±

Замечаний: 0% ±

Цитата _Boroda_, 22.01.2026 в 18:01, в сообщении № 4 (

)

Но какая-то логика замены есть?

Это можно сказать как переработка и они не привязаны к выходным дням и могут быть на неделе
и время может быть разное(привязаться можно только к шрифту)просто при печати нужна подсветка(принтер ч/б) как в макросе 5
только его надо корректировать

Ответить

_Boroda_

Дата: Пятница, 23.01.2026, 10:03 | Сообщение № 6

Группа: Админы

Ранг: Местный житель

Сообщений: 16993

Репутация: 6667 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так?
[vba]

Код

Sub SerimKrasnoe()
    Application.ScreenUpdating = 0
    For Each d_ In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants, 23)
        With d_
            If .Font.ColorIndex = 3 Then
                .Interior.Color = 12566464
            End If
        End With
    Next d_
    Application.ScreenUpdating = 1
End Sub

[/vba]

* Навеяло
Как на фоне черного из красного быстро сделать белое?
Засунуть негру в жопу редиску и откусить

Ответить

gge29

Дата: Пятница, 23.01.2026, 12:52 | Сообщение № 7

Группа: Проверенные

Ранг: Обитатель

Сообщений: 310

Репутация: 3 ±

Замечаний: 0% ±

Александр, то что надо! Спасибо !Но столкнулся с другой проблемой. Придётся наверное тему создавать.Негр с редиской в тему😉😁

Ответить

Форматирование ячеек по цвету шрифта (Макросы/Sub)

Страница 1 из 1
1