Цикл по строке с выделенной ячейкой

[Ilona]

Люди помогите плиз!
Мне нужно чтобы при запуске макроса в строке с выделенной первой ячейкой производилось сравнение каждой четвертой ячейки с некоторым значением. Сам цикл я осилю, подскажите плиз как написать условие чтобы он запускался именно в строке с активной 1-й ячейкой.

[uhm]

Наверное, речь идет об экселе? (кстати, на будущее - это лучше писать, а для обсуждения макросов в Microsoft Office есть раздел форума "VBA")

Объект ActiveCell - это ячейка, активная в данный момент, у него есть свойство .Row - ряд ячейки. Соответственно, цикл должен проходить по строке с номером ActiveCell.Row.

Достаточно, или будем заморачиваться на вещи типа: выделено больше одной ячейки, макрос запущен не с того листа или вообще с диаграммы, на компьютере пользователя не установлен Майкрософт Офис и т. д.?

[Ilona]

Давай заморочимся на "выделено больше одной ячейки"

[GSerg]

Но сначала всё-таки вопрос сформулируем немного почётче...

[Ilona]

2GSerg:
Формулируем почетче
Эксель. Выделяем первую ячейку одной из строк. Запускаем макрос.
Он должен в этой строке произвести сравнение значения в каждой 4-й ячейке с неким числом при привышении которого ячейка будет выделяться цветом.
Собственно вопрос: КАКИМ должно быть условие выполнения этого цикла чтобы сравнения производились только в строке (строках) с выделенной 1-й ячейкой.

[alibek]

Ilona, я бы обошелся без макросов, формулами и условным форматированием.

[GSerg]

То есть если выделена вторая ячейка, макрос работать не должен? Важен сам факт нахождения курсора на строке? В чём цель выделения именно первой ячейки?

[Ilona]

Макросом проще т.к. очень большая таблица и таких строк будет много. А так напишу 1 маленький циклик и будет счастье
2GSerg - Важен факт нахождения курсора, т.к. значение этой ячейки будет потом использоваться.

[GSerg]

Ilona
Будет использоваться значение первой ячейки строки или той ячейки, которая выделена, независимо от того, первая ли она?..

[uhm]

Ilona, в такой постановки задачи я тоже голосую за условное форматирование Оно предназначенно для решения именно таких задач. Размерность таблицы не важна, поскольку можно одновременно задать форматирование для любого числа ячеек (для нескольких столбцов, например), также его можно растягивать, как обычные формулы. Преимущество - не нужно каждый раз запускать макрос, все ячейки будут подсвечиваться автоматически.

[Ilona]

GSerg
Значение первой ячейки

[GSerg]

Если так, то я не понимаю, зачем нужно обязательно выделять первую ячейку...

Но условное форматирование рулит. Оно и только оно

[Ilona]

Условное форматирование не подходит. В таблицу уже забито много формул, и если я начну растягивать условное форматирование то все прийдется забивать заново. К тому же по значениям в строках с выделенной 1-й ячейкой макрос будет строить диаграмму на отдельном листе. Сразу скажу что просто построить диаграмму по этим строкам (без макроса) мне не подходит, т.к. таких строк будет около 50, а диаграмма в конкретный момент нужна будет только одна. А если построить ее вручную то это будет либо 50 линий на одном графике, либо 50 графиков для каждой строки. Вот.

[Ilona]

Нет, не оно и только не оно.
В дополнение к вышесказанному добавлю что нужные строки идут не подряд, между ними может быть 2, а может и 10 строк. Посему таскать хваленое усл. форм-е там нельзя.

[GSerg]

То есть настоить форматирование один раз сложнее, чем каждый раз запускать макрос, предварительно выделяя нужные ячейки?
Оригинально, но не круто.


ЗЫ: условновное форматирование копируется кисточкой, а не растягиванием. Без затрагивания существующих формул.

[Ilona]

Однако график мне эта кисточка не построит.
Вобщем кто знает как должно выглядеть условие напишите плиз, условное форматирование поможет тут только частично.

[GSerg]

Код: Выделить всё

dim r as range

for each r in selection.entirerow.rows
  with r.cells(1,4)
    if .value = 1 then .interior.color=vbred
  end with
next