Цветовое перекрестье по столбцу и строке в активной ячейки

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

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Цветовое перекрестье по столбцу и строке в активной ячейки (Формулы/Formulas)

blackcat1024

Дата: Среда, 23.11.2016, 11:40 | Сообщение № 1

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

Ранг: Прохожий

Сообщений: 2

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

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

Excel 2013

правой кнопкой по ярлыку листа, и в Исходный текст: вводим макрос

[vba]

Код

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
    Cells.Interior.ColorIndex = xlNone
    With ActiveCell
        .EntireRow.Interior.Color = RGB(219, 229, 241)
        .EntireColumn.Interior.Color = RGB(219, 229, 241)
    End With
End Sub

[/vba]

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

Сообщение отредактировал blackcat1024 - Среда, 23.11.2016, 15:53

Ответить

Nic70y

Дата: Среда, 23.11.2016, 11:44 | Сообщение № 2

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

Ранг: Экселист

Сообщений: 8761

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

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

Excel 2010

Цитата blackcat1024, 23.11.2016 в 11:40, в сообщении № 1

Cells.Interior.ColorIndex = xlNone

выкинуть это
[moder]Ответ скрыт до исправления автором первого поста в соответствии с Правилами форума - код макроса нужно украшать специальными тегами - кнопка #[/moder]

[moder]Открыт[/moder]