Выделить смежные ячейки.

[solnce60]

Господа!Всем привет!
Есть столбец А с данными.
Некоторые ячейки столбца А залиты зеленым цветом.
Как выделить желтым цветом смежные с залитыми ячейками ячейки.
Смежные СВЕРХУ.
http://clip2net.com/s/55mToX
Если можно подскажите пожалуйста как это можно сделать без макросов.
Спасибо.

[solnce60]

Пример во вложении

[IgorGO]

без макросов - не получится...

[solnce60]

Давайте тогда с макросом.Только пусть пример макроса будет в примере т.е. в книге.Я внимательно посмотрю на него...... может быть до меня дойдет - что это такое,как он устроен и как им пользоваться.
А главное может быть я смогу применить его к другому диапазону данных.
А если есть ссылочка на инф.о макросах для начинающих...буду Вам очень признателен.
Спасибо.

[SAS888]

Можно "в лоб". Это достаточно быстро:

Sub Окраска()
    Dim x As Range: Application.ScreenUpdating = False
    For Each x In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
        If x.Interior.ColorIndex = 4 Then x.Offset(-1).Interior.ColorIndex = 6
    Next
End Sub

Пример во вложении. Откройте файл и запустите макрос "Окраска".
ВАЖНО: если в зеленый цвет окрашена ячейка "A1", то будет ошибка, т. к. макрос попытается окрасить ячейку "выше". Что в этом случае делать автор вопроса не оговаривает.

[Скрипт]

SAS888, у вас в коде нет:
Application.ScreenUpdating = True

Почему?

[VictorK]

Ячейки в строках 5358 и 5359 - зелёные.
Поскольку первая из них является "смежной сверху" по отношению ко второй, следует ли её "перекрашивать" в жёлтый цвет и как в таком случае поступать с ячейкой в строке 5357?

[SAS888]

Сообщение от Скрипт

SAS888, у вас в коде нет:
Application.ScreenUpdating = True

Почему?

Я часто "не закрываю скобки". В данном случае это допустимо. После завершения работы макроса Application.ScreenUpdating восстановится в True. Если в коде макроса использовать вызов других функций и подпрограмм, либо отлавливать события листа, то Application.ScreenUpdating = True нужно обязательно...

[Казанский]

Можно создать простейшую пользовательскую функцию, которая возвращает индекс цвета ячейки:

Function Icli(r As Range)
Icli = r.Interior.ColorIndex
End Function

и применить ко всему столбцу условное форматирование.
Формула условного форматирования без учета закраски текущей ячейки (будут окрашены 5357 и 5358)

=Icli(A2)=4

Формула с учетом закраски текущей ячейки (будет окрашена только 5357)

=И(Icli(A2)=4;Icli(A1)<>4)

Тормозить будет, правда.