|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
11.11.2013, 18:11 | #1 |
Форумчанин
Регистрация: 04.11.2008
Сообщений: 360
|
Закрашивание ячеек
На листе есть таблица полей с их площадью и выпадающий список по этой таблице. Нужно при выборе поля условно изобразить его площадь. То есть если площадь = 20 значит надо закрасить 20 ячеек, цвета для каждого значения разные.
Заранее спасибо за помощь! P.S. пробовал через условное форматирование но ничего не получилось, как сделать по другому не представляю.
Мой скромненький сайт
|
11.11.2013, 18:52 | #2 |
Пользователь
Регистрация: 29.08.2013
Сообщений: 27
|
С помощью условного форматирования можно сделать вот так например (см файл), с формулами сами разберитесь надеюсь и при использовании вспомогательные значения просто шрифтом белым скройте с глаз. Да, и на каждый новый показатель нужно новое условное форматирование прописывать.
|
11.11.2013, 19:18 | #3 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
см. вложение (воспользовался файлом подготовленным iNataliya). на желтом фоне настройки закрашиваемого поля:
левый верхний угол и ширина
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
11.11.2013, 19:50 | #4 |
Математик
Форумчанин
Регистрация: 27.02.2011
Сообщений: 123
|
попробуй так (см. Приклепление):
Private Sub Worksheet_Change(ByVal Target As Range) a = Target.Cells.Row: b = Target.Cells.Column If a = 6 And b = 1 Then Range(Columns(4), Columns(13)).Select Selection.Interior.ColorIndex = 0 nazvanie = Target.Cells.Value For i = 2 To 4 If nazvanie = Cells(i, 1) Then ploshcad = Cells(i, 2) c = Int(ploshcad / 10) If c > 0 Then Range(Cells(6, 4), Cells(6 + c - 1, 13)).Interior.ColorIndex = Cells(i, 3).Value d = ploshcad - c * 10 If d > 0 Then Range(Cells(6 + c, 4), Cells(6 + c, 4 + d - 1)).Interior.ColorIndex = Cells(i, 3).Value Exit For End If Next i End If End Sub |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Создание макроса на закрашивание ячеек в Еxcel 2003 | Dadec | Microsoft Office Excel | 8 | 06.10.2014 22:48 |
макрос в excel (vba) закрашивание ячеек | Alex_91 | Помощь студентам | 0 | 23.05.2012 00:05 |
JTable закрашивание ячеек | X@OC | Общие вопросы по Java, Java SE, Kotlin | 2 | 08.02.2012 11:48 |
Закрашивание ячеек в DBGRID | jimmi З | Помощь студентам | 2 | 05.05.2011 06:38 |
Закрашивание ячеек в StringGrid | ИВэТэшка | Помощь студентам | 7 | 12.04.2009 11:09 |