Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Цвет заливки ячейки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Цвет заливки ячейки
Jowls Дата: Понедельник, 14.11.2022, 17:26 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 20% ±

Добрый день,
Подскажите, пожалуйста, как узнать цифровой код цвета заливки ячейки?

Заранее благодарю.
 
Ответить
СообщениеДобрый день,
Подскажите, пожалуйста, как узнать цифровой код цвета заливки ячейки?

Заранее благодарю.

Автор - 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]


Ю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
Группа: Админы
Ранг: Участник клуба
Сообщений: 2797
Репутация: 1161 ±
Замечаний: ±

начинал с 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]


МОИ: Ник, 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
Репутация: 0 ±
Замечаний: 20% ±

Коллеги, всем спасибо.

Но у меня, при использовании варианта:[vba]
Код
Function CellColour(RCell As Range) As Double
CellColour = RCell.Interior.Color
End Function
[/vba]Выдает синтаксическую ошибку (файл в приложении)
Никак не пойму, в чем дело.
К сообщению приложен файл: 8911575.xlsm (15.4 Kb)


Сообщение отредактировал 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
Группа: Друзья
Ранг: Экселист
Сообщений: 9006
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
Jowls, нельзя называть модуль именем функции,
не конечно можно, но не нужно.
переименуйте их и будет все норм


ЮMoney 41001841029809
 
Ответить
СообщениеJowls, нельзя называть модуль именем функции,
не конечно можно, но не нужно.
переименуйте их и будет все норм

Автор - Nic70y
Дата добавления - 15.11.2022 в 11:29
Jowls Дата: Вторник, 15.11.2022, 11:48 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 11
Репутация: 0 ±
Замечаний: 20% ±

Nic70y,

О, спасибо огромное!!!
Помогло!
 
Ответить
СообщениеNic70y,

О, спасибо огромное!!!
Помогло!

Автор - Jowls
Дата добавления - 15.11.2022 в 11:48
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!