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

Вход

Регистрация

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

 

= Мир MS Excel/Заливка ячеек с определенным значением другой ячейки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Заливка ячеек с определенным значением другой ячейки (Форматирование)
Заливка ячеек с определенным значением другой ячейки
a4ara4a4a Дата: Пятница, 24.01.2014, 01:34 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Возникла такая ситуация, что нужно в таблице позакрашивать ячейки определенными цветами. В таблице три колонки: 1) Наименование, 2) цвет, 3) палитра. В наименовании указан товар (его очень много и постоянно будет пополняться). В цвете указан номер. Этот номер указывается напротив ячейки с товаром. Допустим товар "молоко 2.5%" напротив ячейка с числом 15, цвет которой берется из палитры из 3 столбца. Помогите пожалуйста!
К сообщению приложен файл: 3196596.xls (31.5 Kb)
 
Ответить
СообщениеВозникла такая ситуация, что нужно в таблице позакрашивать ячейки определенными цветами. В таблице три колонки: 1) Наименование, 2) цвет, 3) палитра. В наименовании указан товар (его очень много и постоянно будет пополняться). В цвете указан номер. Этот номер указывается напротив ячейки с товаром. Допустим товар "молоко 2.5%" напротив ячейка с числом 15, цвет которой берется из палитры из 3 столбца. Помогите пожалуйста!

Автор - a4ara4a4a
Дата добавления - 24.01.2014 в 01:34
AlexM Дата: Пятница, 24.01.2014, 08:29 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4493
Репутация: 1115 ±
Замечаний: 0% ±

Excel 2003
Так можно сделать макросом по событию изменения значения в ячейке.
Код в модуле листа
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B2:B1000"), Target) Is Nothing Then
Target.Offset(0, -1).Interior.ColorIndex = IIf(Target.Value = -4142, 0, Target)
End If
End Sub
[/vba]
Столбец с палитрой для работы макроса не нужен.
Вводите наименование, затем код цвета. Цвет ячейки меняется автоматически.
К сообщению приложен файл: 3196596_new.xls (40.5 Kb)



Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
СообщениеТак можно сделать макросом по событию изменения значения в ячейке.
Код в модуле листа
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("B2:B1000"), Target) Is Nothing Then
Target.Offset(0, -1).Interior.ColorIndex = IIf(Target.Value = -4142, 0, Target)
End If
End Sub
[/vba]
Столбец с палитрой для работы макроса не нужен.
Вводите наименование, затем код цвета. Цвет ячейки меняется автоматически.

Автор - AlexM
Дата добавления - 24.01.2014 в 08:29
a4ara4a4a Дата: Пятница, 24.01.2014, 19:11 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
AlexM, ооо спасибо большое! работает hands


Сообщение отредактировал a4ara4a4a - Пятница, 24.01.2014, 19:11
 
Ответить
СообщениеAlexM, ооо спасибо большое! работает hands

Автор - a4ara4a4a
Дата добавления - 24.01.2014 в 19:11
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Заливка ячеек с определенным значением другой ячейки (Форматирование)
  • Страница 1 из 1
  • 1
Поиск:

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