Как заставить макрос передавать текущий цвет УФ - реальному цвету ячейки

@yl3d · Регистрация: 28.09.2015

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

Здравствуйте.
Помогите решить техническую задачу.

На листе находится диапазон с условным форматированием (столбцы E-K).
При определенных значениях ячеек - они меняют свой свет, как это задано условным форматированием.

Но они меняют именно "цвет условного форматирования". Реальный цвет самой ячейки - не меняется.
Подскажите - как макросом - заставить ячейки получать окраску своего реального цвета - в соответствии с тем цветом условного форматирования, которое ячейка имеет в настоящее время ?
(Событие Worksheet_Calculate)

То есть если в настоящий момент - цвет ячейки желтый, то и реальный ее цвет должен становится желтым.
Сейчас на листе - при разных условных форматах - реальный цвет ячейки не меняется (стоит цвет "нет заливки").

@kalbasiatka · 18.01.2017, 07:28

Убрать форматирование с листа и красить макросом

Visual Basic

Private Sub Worksheet_Calculate()
    Dim c As Range
'-----------------
    Application.ScreenUpdating = False
    For Each c In Range("E1:K45").Cells
        Select Case c.Value
            Case 2: c.Interior.Color = 255
            Case 1: c.Interior.Color = 65535
            Case 0: c.Interior.Color = xlNone
        End Select
    Next
    Application.ScreenUpdating = True
End Sub

@KoGG · 18.01.2017, 11:01

Общий случай, независимый от конкретных условий форматирования (Офис 2007 и выше):

Visual Basic

Sub Перекрасить_ячейки_в_текущий_цвет_условного_форматирования()
    Dim c As Range
    Application.ScreenUpdating = False
    For Each c In ActiveSheet.UsedRange.Cells
        If c.FormatConditions.Count > 0 Then
           c.Interior.color = c.DisplayFormat.Interior.color
        End If
    Next
    Application.ScreenUpdating = True
End Sub
 
Private Sub Worksheet_Calculate()
     Перекрасить_ячейки_в_текущий_цвет_условного_форматирования
End Sub

@yl3d · 18.01.2017, 16:42 **[ТС]**

kalbasiatka, вы поняли что нужно сделать.
Но Select Case - это слишком простое решение, поскольку цвета могут быть разными.

Добавлено через 1 минуту
KoGG, это то что нужно.
Большое спасибо.

@yl3d 3 / 3 / 1 Регистрация: 28.09.2015 Сообщений: 271
	18.01.2017, 16:42 [ТС]	4
	kalbasiatka, вы поняли что нужно сделать. Но Select Case - это слишком простое решение, поскольку цвета могут быть разными. Добавлено через 1 минуту KoGG, это то что нужно. Большое спасибо. 0

Как заставить макрос передавать текущий цвет УФ - реальному цвету ячейки

Решение