Заливка ячейки по цвету шрифта

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

Заливка ячейки по цвету шрифта (Формулы/Formulas)

gge29

Дата: Вторник, 22.05.2018, 21:53 | Сообщение № 1

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

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

Сообщений: 303

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

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

Cкажите пожалуйста существует ли такая формула или макрос УФ по цвету шрифта,чтобы после смены шрифта на красный цвет они как-то заштриховали ячейку с её содержимым или что-то иное(при печати на чб принтере не видно красных),а надо чтобы они как-то отличались.)Перекопал весь интернет,но ничего подобного не нашёл.

К сообщению приложен файл: _2018-1_3.xlsm (49.3 Kb)

Сообщение отредактировал gge29 - Вторник, 22.05.2018, 21:53

Ответить

_Boroda_

Дата: Вторник, 22.05.2018, 22:38 | Сообщение № 2

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

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

Сообщений: 16885

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Можно в модуль книги положить вот этот макрос. Он перед печатью или предварительным просмотром красит серой заливкой ячейки с красным шрифтом
[vba]

Код

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim sh As Worksheet, d_ As Range
    Set sh = Me.Sheets("ОСНОВНОЙ ТАБЕЛЬ (2)")
    With sh
        r0_ = 10
        c0_ = 16
        r1_ = .Range("E" & Rows.Count).End(3).Row
        nr_ = r1_ * r0_ + 1
        nc_ = 16
        .Cells(r0_, c0_).Resize(nr_, nc_).Interior.Pattern = xlNone
        For Each d_ In .Cells(r0_, c0_).Resize(nr_, nc_)
            If d_.Value <> "" Then
                If d_.Font.Color = 255 Then
                    d_.Interior.Color = 12566464
                End If
            End If
        Next d_
    End With
End Sub

[/vba]

К сообщению приложен файл: _2018-1_4.xlsm (59.6 Kb)

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

Ответить

gge29

Дата: Среда, 23.05.2018, 06:45 | Сообщение № 3

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

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

Сообщений: 303

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

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

Цитата _Boroda_, 22.05.2018 в 22:38, в сообщении № 2 ()

Можно в модуль книги положить вот этот макрос. Он перед печатью или предварительным просмотром красит серой заливкой ячейки с красным шрифтом

Александр,это превосходно!!!Лучше и быть не может!

Ответить

Заливка ячейки по цвету шрифта (Формулы/Formulas)

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