Закрашивание строки цветом исходя из активной ячейки

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

DrRoy

Дата: Пятница, 31.05.2013, 16:05 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

Репутация: 0 ±

Замечаний: 0% ±

В таблице может быть активной любая ячейка. Нужен макрос, который красит строку с активной ячейкой в желтый цвет.
Это мои извращения:
[vba]

Код

Range("A" & ActiveCell.Row:"U" & ActiveCell.Row).Select
Selection.Interior.ColorIndex = 6

[/vba]
А как правильно?

К сообщению приложен файл: 4040909.xls (15.5 Kb)

Ответить

AlexM

Дата: Пятница, 31.05.2013, 19:40 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4517

Репутация: 1129 ±

Замечаний: 0% ±

Excel 2003

Если таблицу сделать не такой пестрой, то можно так.
Код вставить в модуль листа.
[vba]

Код

Public r As Long, ci As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If r <> Empty And ci <> Empty Then
Range(Cells(r, 1), Cells(r, 21)).Interior.ColorIndex = ci
End If
r = Target.Row
ci = Target.Interior.ColorIndex
Range(Cells(r, 1), Cells(r, 21)).Interior.ColorIndex = 6
End Sub

[/vba]

К сообщению приложен файл: 4040909_new.xls (23.0 Kb)

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

DrRoy

Дата: Пятница, 31.05.2013, 20:15 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 21

Репутация: 0 ±

Замечаний: 0% ±

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

Зачем все это нужно. Диспетчер принимает заказы от магазинов на определенные виды продукции, отмечает их количество в соответствующей строке. После этого запускается макрос вывода на печать, а строка с этим магазином помечается желтым, т.е. заказ принят и на эти цифры на желтом фоне можно не отвлекаться.