Добрый день. Нужно решить следующую задачу. По цвету заливки ячейки извлекать RGB код вида "255,255,255". Поискал готовое решение в интернете и нашел вот такой вариант:
Макрос работает и по команде getRGB2 извлекает код, но только если ячейка была залита вручную. Мне же нужно, чтобы код извлекался даже если ячейка окрашена путем использования условного форматирования. Возможно ли это?
| Код |
|---|
Function getRGB2(FCell As Range) As String 'UpdatebyExtendoffice20170714 Dim xColor As Long Dim R As Long, G As Long, B As Long xColor = FCell.Interior.Color R = xColor Mod 256 G = (xColor \ 256) Mod 256 B = (xColor \ 65536) Mod 256 getRGB2 = "R=" & R & ", G=" & G & ", B=" & B End Function |
Макрос работает и по команде getRGB2 извлекает код, но только если ячейка была залита вручную. Мне же нужно, чтобы код извлекался даже если ячейка окрашена путем использования условного форматирования. Возможно ли это?
Изменено: - 06.12.2021 12:28:03
