Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Выделение цветом одной ячейки по значению в другой
 
1.В ячейку В3 вводится текс и автоматически ячейка С3 окрашивается в красный цвет и заполняется надписью "Не начато"
2. В дальнейшем ячейка С3 должна в ручную менять цвет в зависимости от содержания.
В примере пункт 2 реализован
Как прикрутить к этому пункт 1?
 
Цитата
Сергей_АГ написал:
ячейка С3 должна в ручную менять цвет в зависимости от содержания
Это как? Сама и вручную - взаимоисключающие процессы.
Неизлечимых болезней нет, есть неизлечимые люди.
 
в модуль листа
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
    Target.Offset(0, 1).Value = "не начато"
End If
End Sub
 
Цитата
yozhik написал:
в модуль листа
Пожалуйста, покажите на примере
 
кликаете правым мышом на ярлыке листа, выбираете View Code (или Исходный текст). Вставляете код в открывшееся окно. Все. Файл сохраняете с расширением .xlsm, при открытии разрешаете макросы. При вводе чего либо во втором столбце будет в третьем появляться "не начато", а на это у Вас уже УФ сделано
 
Target.Offset(0, 1).Value = "не начато"
Добрый день, подскажите, а как можно реализовать что бы запись "не начато" появлялась не только в столбце "С",  но и в "D", "E"
Спасибо
 
Код
Target.Offset(0, 1).Resize(,3).Value = "не начато"
 
Спасибо
 
Цитата
yozhik написал:
кликаете правым мышом
Огромное спасибо! Всё работает!!!
 
Подскажите еще раз пожалуйста, а ка реализовать возможность отображения в столбцах "С",  "D", "E", "К".
Спасибо
Страницы: 1
Читают тему (гостей: 1)
Наверх