Закрашивание ячеек

[Vladya]

На листе есть таблица полей с их площадью и выпадающий список по этой таблице. Нужно при выборе поля условно изобразить его площадь. То есть если площадь = 20 значит надо закрасить 20 ячеек, цвета для каждого значения разные.
Заранее спасибо за помощь!

P.S. пробовал через условное форматирование но ничего не получилось, как сделать по другому не представляю.

[iNataliya]

С помощью условного форматирования можно сделать вот так например (см файл), с формулами сами разберитесь надеюсь и при использовании вспомогательные значения просто шрифтом белым скройте с глаз. Да, и на каждый новый показатель нужно новое условное форматирование прописывать.

[IgorGO]

см. вложение (воспользовался файлом подготовленным iNataliya). на желтом фоне настройки закрашиваемого поля:
левый верхний угол и ширина

[roborrr]

попробуй так (см. Приклепление):


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

[Vladya]

Спасибо огромное! буду разбираться с формулами....