Цвет заливки ячейки
Jowls
Дата: Понедельник, 14.11.2022, 17:26 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Добрый день, Подскажите, пожалуйста, как узнать цифровой код цвета заливки ячейки? Заранее благодарю.
Добрый день, Подскажите, пожалуйста, как узнать цифровой код цвета заливки ячейки? Заранее благодарю. Jowls
Ответить
Сообщение Добрый день, Подскажите, пожалуйста, как узнать цифровой код цвета заливки ячейки? Заранее благодарю. Автор - Jowls Дата добавления - 14.11.2022 в 17:26
Serge_007
Дата: Понедельник, 14.11.2022, 17:35 |
Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация:
2749
±
Замечаний:
±
Excel 2016
Здравствуйте Пользовательской функцией:[vba]Код
Function CellColour(RCell As Range) As Double CellColour = RCell.Interior.Color End Function
[/vba]
Здравствуйте Пользовательской функцией:[vba]Код
Function CellColour(RCell As Range) As Double CellColour = RCell.Interior.Color End Function
[/vba] Serge_007
ЮMoney :41001419691823 | WMR :126292472390
Ответить
Сообщение Здравствуйте Пользовательской функцией:[vba]Код
Function CellColour(RCell As Range) As Double CellColour = RCell.Interior.Color End Function
[/vba] Автор - Serge_007 Дата добавления - 14.11.2022 в 17:35
Gustav
Дата: Понедельник, 14.11.2022, 17:51 |
Сообщение № 3
Группа: Админы
Ранг: Участник клуба
Сообщений: 2792
Репутация:
1155
±
Замечаний:
±
начинал с Excel 4.0, видел 2.1
До кучи - цвет в виде вызова функции RGB с соответствующими параметрами-цветами: [vba]Код
Function CellRGB(RCell As Range) As String Dim color As Long color = RCell.Interior.color CellRGB = "RGB(" & (color Mod 256) & ", " & ((color \ 256) Mod 256) & ", " & (color \ 65536) & ")" End Function
[/vba]
До кучи - цвет в виде вызова функции RGB с соответствующими параметрами-цветами: [vba]Код
Function CellRGB(RCell As Range) As String Dim color As Long color = RCell.Interior.color CellRGB = "RGB(" & (color Mod 256) & ", " & ((color \ 256) Mod 256) & ", " & (color \ 65536) & ")" End Function
[/vba] Gustav
МОИ: Ник , Tip box: 41001663842605
Ответить
Сообщение До кучи - цвет в виде вызова функции RGB с соответствующими параметрами-цветами: [vba]Код
Function CellRGB(RCell As Range) As String Dim color As Long color = RCell.Interior.color CellRGB = "RGB(" & (color Mod 256) & ", " & ((color \ 256) Mod 256) & ", " & (color \ 65536) & ")" End Function
[/vba] Автор - Gustav Дата добавления - 14.11.2022 в 17:51
Jowls
Дата: Вторник, 15.11.2022, 10:33 |
Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Коллеги, всем спасибо. Но у меня, при использовании варианта:[vba]Код
Function CellColour(RCell As Range) As Double CellColour = RCell.Interior.Color End Function
[/vba]Выдает синтаксическую ошибку (файл в приложении) Никак не пойму, в чем дело.
Коллеги, всем спасибо. Но у меня, при использовании варианта:[vba]Код
Function CellColour(RCell As Range) As Double CellColour = RCell.Interior.Color End Function
[/vba]Выдает синтаксическую ошибку (файл в приложении) Никак не пойму, в чем дело. Jowls
Сообщение отредактировал Serge_007 - Вторник, 15.11.2022, 12:44
Ответить
Сообщение Коллеги, всем спасибо. Но у меня, при использовании варианта:[vba]Код
Function CellColour(RCell As Range) As Double CellColour = RCell.Interior.Color End Function
[/vba]Выдает синтаксическую ошибку (файл в приложении) Никак не пойму, в чем дело. Автор - Jowls Дата добавления - 15.11.2022 в 10:33
Nic70y
Дата: Вторник, 15.11.2022, 11:29 |
Сообщение № 5
Группа: Друзья
Ранг: Экселист
Сообщений: 8999
Репутация:
2366
±
Замечаний:
0% ±
Excel 2010
Jowls , нельзя называть модуль именем функции, не конечно можно, но не нужно. переименуйте их и будет все норм
Jowls , нельзя называть модуль именем функции, не конечно можно, но не нужно. переименуйте их и будет все нормNic70y
ЮMoney 41001841029809
Ответить
Сообщение Jowls , нельзя называть модуль именем функции, не конечно можно, но не нужно. переименуйте их и будет все нормАвтор - Nic70y Дата добавления - 15.11.2022 в 11:29
Jowls
Дата: Вторник, 15.11.2022, 11:48 |
Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Nic70y, О, спасибо огромное!!! Помогло!
Nic70y, О, спасибо огромное!!! Помогло! Jowls
Ответить
Сообщение Nic70y, О, спасибо огромное!!! Помогло! Автор - Jowls Дата добавления - 15.11.2022 в 11:48