Создание макроса на закрашивание ячеек в Еxcel 2003

[Dadec]

Доброго времени суток, очень нужна помощь.

во вложенном файле три картинки,
1) в первой - представленна строка из 10 ячеек
2) во второй , то что мне нужно:
я ставлю число "3" в третью ячейку,а Excel закрашивает три ячейки начиная с данной,
далее я ставлю число "2" в четвертую ячейку, Excel закрашивает две ячейки, но уже после закрашенных,
также происходит и с шестой ячейкой
3) на третьей картинке видно, что если при постановке числа "3", а потом "2" закрашиваются ячейки как в пункте 2 (см. выше), а если я поставлю еще одно число "2", но уже после закрашенных ячеек, то нужно закрасить две ячейки начиная с этого числа "2"

[vikttur]

Только макрос? Условное форматирование отвергается? В Excel-2003 три условия, т.е. можно задать три цвета.

[Watcher_1]

Приветствую!
Вот на скорую руку накидал

Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(Target.Row, Target.Column) <> "" Then
For i = Target.Column To Target.Column + Cells(Target.Row, Target.Column) - 1
Cells(Target.Row, i).Interior.Color = 65535
Next
End If
End Sub

Тока с заменой цветов я думаю сами подумаете по какому алгоритму их менять...

[Dadec]

спасибо, попробую разобраться =)
а насчет цветов - неважно, главное чтобы закрашивались, можно даже одним цветом

[Hugo121]

Такой вариант:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1:N20")) Is Nothing Then
        If IsNumeric(Target.Value) Then
            Range(Target, Target.Offset(, Target.Value - 1)).Interior.ColorIndex = Target.Value + 2
        End If
    End If
End Sub

[Dadec]

Спасибо большое за помошь

[SandroG]

*** Здравствуйте. ***
Есть вот такая мысль:
- Две заполняемых ячейки. Например: "Ширина" и "Высота" В первую вводим значение 600, во вторую 1200.
- Далее происходит округление двух цифр с права. Результат "Ш=6;В=12"
- Макрос анализирует и выделяет рамкой поле для заполнения 6 х 12 ячеек. Где первая строка - это размер заливки по ширине, а вторая - это размер заливки по высоте.
- В первую строку вводим 700 - также округление и условие, при котором выводится "Недопустимый размер". Вводим 300 - заливается 3 ячейки по горизонтали.
- Во вторую вводим 1200 - "Недопустимый размер". Вводим 1100 - заливается 11 ячеек.
- При этом цифры в ячейках должны иметь исходный вид.
...
Помогите пожалуйста реализовать.

[IgorGO]

этот

Private Sub worksheet_change(ByVal target As Range)
  If target.Column <> 9 Then Exit Sub
  If Not (target.Row = 2 Or target.Row = 3) Then Exit Sub
  If Cells(2, 9) < 100 Or Cells(2, 9) > 1600 Then MsgBox "Error": Exit Sub
  If Cells(3, 9) < 100 Or Cells(3, 9) > 2000 Then MsgBox "Error": Exit Sub
  Cells(3, 9).Resize(19, 1).Interior.Pattern = xlNone
  Cells(3, 9).Resize(Cells(3, 9) / 100, 1).Interior.Color = Cells(2, 9).Interior.Color
  Cells(2, 10).Resize(1, 15).Interior.Pattern = xlNone
  Cells(2, 10).Resize(1, Cells(2, 9) / 100).Interior.Color = Cells(2, 9).Interior.Color
End Sub

в модуль листа

[SandroG]

Спасибо за помощь, но немножко не так. В ячейках: (2, 9 и 3, 9) - задаём поле выделения рамочкой, а уже в рамочке заполняем количество заливаемых ячеек, но не больше поля...
...
К сожалению сейчас работа нахлынула. Нет времени разбираться. Чуть освобожусь - обязательно вернусь к данному проекту...
Ещё раз спасибо!