Окрашивание активной ячейки

[ksmspb]

нет не прикрепил, пишет некорректный файл

[ksmspb]

ksmspb, SAS888 выложил вполне работоспособный пример. пользуйтесь его примером. Есть одна сложность наличие этого кода не позволяет ничего ни в какой цвет закрасить в данном листе. Активная желтая, остальные без заливки. Но это издержки...[/QUOTE]

Спасобо за ответ, но так не пойдет! Мне надо, чтобы выделение цветом начиналось сразу с активной ячейки а не со второй (как по умолчанию в экселе), причем на листе должны быть ячейки закрашенные в различные цвета. Можно такое сварганить или я мечтатель?!

[pivas]

Можно, но надо знать условия закрашивания, тогда применять подходящий способ.

[ksmspb]

Да условй-то никаких и нет, просто существует таблица в экселе, когда по ней ползаешь, надо чтобы встав на одну из ячеек она была выленена другим цветом любым кроме белого (как вся таблица)
Кто подскажет подходящий способ?

[IgorGO]

чуть поправил то, что SAS888 сделал.
Перед тем, как закрасить активную, восстанавливается цвет ячейки, которая была отмечена перед этим и запоминается начальный цвет активной ячейки.
Но проблема присутствует - стоит только отметить группу ячеек

[ksmspb]

Большое спасибо за участие. У меня есть скаченный из нета пример решения моей проблемы:
Dim sActiv As Variant
--------------------------------
Private Sub Worksheet_Activate()
sActiv = "$A$1"
End Sub
--------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range(sActiv).Interior.ColorIndex = 0
sActiv = ActiveCell.Address
Range(sActiv).Interior.Color = vbRed
End Sub
только чего с ним делать и куда вставлять хз!

[pivas]

Это файл с тем кодом, который Вы добыли в нете:

[ksmspb]

Добрый день, спасибо, но он не работает, выскакивает ошибка 1004 и чего с ним делать?

[pivas]

Попробуйте этот:

[ksmspb]

попробывал, но закраски там нет?!