Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
преобразовать HEX код в RGB
 
#1
10.09.2013 11:10:08
Уважаемые мэтры!
Помогите пожалуйста написать функцию, позволяющую преобразовать HEX код в RGB. Очень нужно увидеть результат следующим образом. Если возможно раскрасить ячейку и отфильтровать по цветовой гамме, было бы чудесно.
Заранее благодарю
 
 
 
#2
10.09.2013 11:16:21
Пока модеров на форуме нет, смените отображаемое имя. Иначе тему закроют.
Я сам - дурнее всякого примера! ...
 
 
 
#3
10.09.2013 11:22:21
Для R формула, для остальных по аналогии
=ШЕСТН.В.ДЕС(ПСТР(A4;6;2))
Изменено: anvg - 10.09.2013 11:22:39
 
 
 
#4
10.09.2013 11:25:37
anvg, для R? Я думал, что для B  :|
Учимся сами и помогаем другим...
 
 
 
#5
10.09.2013 11:28:45
Спасибо!
Не знаком с этой формулой ( что нужно проставить вместо 6 и 2 ?
 
 
 
#6
10.09.2013 11:30:22
ber$erk
Я смотрел по функции  RGB(255, 0, 0) в VBA - результат 255 или FF, а RGB(0, 0, 255) - 16711680 или FF0000
 
 
 
#7
10.09.2013 11:34:40
Код
?
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub www()
    Dim lrow&, i&, s$
     
    With ActiveSheet
        lrow = .Cells(.Rows.Count, "A").End(xlUp).Row
         
        For i = 2 To lrow
            s = .Cells(i, "A")
            .Cells(i, "B").Resize(1, 3) = Array(Val("&H" & Mid(s, 2, 2)), Val("&H" & Mid(s, 4, 2)), Val("&H" & Mid(s, 6, 2)))
            .Cells(i, "E").Interior.Color = RGB(.Cells(i, "B"), .Cells(i, "C"), .Cells(i, "D"))
        Next i
    End With
End Sub


anvg, странно. Я щас залил ячейку руками по тем кодам, которые построил исходя из того, что в конце идет все таки B и у меня цвета совпал
Учимся сами и помогаем другим...
 
 
 
#8
10.09.2013 12:02:17
Браво! все работает. Большое спасибо.
 
 
 
Страницы: 1
Читают тему
Loading...