Нужно разложить код цвета на составляющие Red, Green, Blue (функция, обратная RGB)

@Thor · Регистрация: 12.12.2014

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

Я знаю код цвета в виде переменной типа Long (например, как свойство range("a1").interior.color).

Цвет в VBA может задаваться через функцию трёх аргументов RGB(red, green, blue), которая возвращает код цвета в формате long. В ней red, green, blue - составляющие цвета, изменяющиеся от 0 до 255.

Мне же нужна функция, обратная RGB. Т.е. зная код цвета, хочу получить значения red, green, blue.

toiai · 10.04.2016, 13:34

Visual Basic
1
2
3
4
5
6
7
8
9
Function RGBtoRed(zvet As Long)
    RGBtoRed = (zvet And vbRed)
End Function
Function RGBtoGreen(zvet As Long)
    RGBtoGreen = (zvet And vbGreen) \ &H100
End Function
Function RGBtoBlue(zvet As Long)
    RGBtoBlue = (zvet And vbBlue) \ &H10000
End Function

Shersh · 10.04.2016, 15:00

Скопировать LONG в запись из четырех байт за один приём -

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
 
Type t_ARGB
r As Byte
g As Byte
b As Byte
a As Byte
End Type
 
Function ColorToARGB(c As Long) As t_ARGB
CopyMem ColorToARGB.r, c, 4
End Function
 
Sub test()
Dim c As t_ARGB
c = ColorToARGB(RGB(Red:=1, Green:=2, Blue:=3))
Debug.Print c.r; c.g; c.b
End Sub

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Thor 2 / 2 / 0 Регистрация: 12.12.2014 Сообщений: 87

	Нужно разложить код цвета на составляющие Red, Green, Blue (функция, обратная RGB) 10.04.2016, 12:43. Показов 6662. Ответов 2 Метки excel, rgb, vba, цвет (Все метки) Я знаю код цвета в виде переменной типа Long (например, как свойство range("a1").interior.color). Цвет в VBA может задаваться через функцию трёх аргументов RGB(red, green, blue), которая возвращает код цвета в формате long. В ней red, green, blue - составляющие цвета, изменяющиеся от 0 до 255. Мне же нужна функция, обратная RGB. Т.е. зная код цвета, хочу получить значения red, green, blue. 0