Страницы: 1
RSS
Как сделать чтобы в ячейке отображался код RGB цвета заливки?
 
Сценарий.
1. Выставил цвет заливки ячейки.
2. В ячейке отобразился код RGB цвета.


Как сделать чтобы в ячейке после заливки автоматически отображался код RGB цвета заливки?

gif для наглядности  ссылка
Изменено: excel_pl - 12.08.2017 20:50:07
 
сценарий есть. осталось найти режиссера.
 
А с таким "вежливым" подходом режиссёр попросит зарплату )
 
excel_pl, нет встроенного события "на изменение цвета".
Если запускать по нажатию кнопкой - то так:
Код
Sub findColor()
    Dim monitoringRn As Range
    Set monitoringRn = [G5:I7]
    For Each el In monitoringRn.Cells
        colorVal = Cells(el.Row, el.Column).Interior.Color
        el.Value = (colorVal Mod 256) & ", " & ((colorVal \ 256) Mod 256) & ", " & (colorVal \ 65536)
    Next el
End Sub

Можно нагородить огород и отследить, но точно это нужно?
In GoTo we trust
 
Код
Sub ColorRGB()
Dim aRGB(0 To 2), i As Byte
With ActiveCell
  If .Interior.ColorIndex Then
    aRGB(2) = .Interior.Color
    For i = 0 To 2
      aRGB(i) = Fix(aRGB(2) / 256 ^ i) Mod 256
    Next
    .Font.ColorIndex = 2 - Fix((aRGB(0) * 0.3 + aRGB(1) * 0.59 + aRGB(2) * 0.11) / 128)
    .Value = Join(aRGB, ", ")
  End If
End With
End Sub
Изменено: AAF - 13.08.2017 02:14:59
 
Вопрос решён.
Всем спасибо.
Страницы: 1
Наверх