Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Как скопировать цвет из одной ячейки в другую
 
Есть график работы, в ячейках время, как раскрасить эти ячейки согласно заданному формату, не используя условное форматирование, так как вариантов времени работы 121.  
 
Макросом
 
подскажите, пожалуйста, как именно, макросами только начинаю пользоваться
 
В модуль
Код
Sub KRASIT()
    Dim C As Range, RO As Range, RX As Range, T
    Set RO = Range("AK1:AK121")
    For Each C In Selection
        If C <> Empty Then
            Set RX = RO.Find(C.Value, LookAt:=xlWhole)
            If Not RX Is Nothing Then
                C.Interior.Color = RX.Interior.Color
            Else
                C.Interior.Color = RGB(255, 255, 0)
            End If
        End If
    Next
End Sub

Для применения выделить диапазон и запустить макрос
Изменено: Александр Моторин - 28 Апр 2015 18:16:49
 
Не забывать, что в 2003 цвета могут быть только из палитры книги
 
Спасибо, все работает
Страницы: 1
Читают тему (гостей: 1)