Подсветка активной ячейки/диапазона ячеек

[beal]

Подскажите, как в екселе подсветить активную ячейку? Задача еще в том, чтобы после снятия фокуса восстанивить в данной ячейке прежний формат (цвет).

В vba выполняется код (нашел в и-нете):

Public OldRange As String


Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next

Range(OldRange).Interior.ColorIndex = xlNone
Target.Interior.Color = 16641000
OldRange = Target.Address
End Sub

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

Пример - была красная ячейка, при получении фокуса она становится желтой (подсвечивается), при потере фокуса она опять должна стать красной.

[DiemonStar]

например, так:

Public LastRange As Range

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  On Error GoTo Ex
  For Each FC In LastRange.FormatConditions
    FC.Delete
  Next FC
  Set FC = Target.FormatConditions.Add(xlExpression, , "ИСТИНА")
  FC.Interior.Color = 16641000
Ex:
  Set LastRange = Target
End Sub

только при этом не получится условное форматирование использовать.

[SaLoKiN]

ActiveCell.Interior.ColorIndex

получает код цвета активной ячейки
запомнил, подсветил, ушел а цвет вернул

[DiemonStar]

Сообщение от SaLoKiN

ActiveCell.Interior.ColorIndex

получает код цвета активной ячейки
запомнил, подсветил, ушел а цвет вернул

а если выделена область? будете массив запоминать?

[beal]

Сообщение от DiemonStar

например, так:

Public LastRange As Range

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  On Error GoTo Ex
  For Each FC In LastRange.FormatConditions
    FC.Delete
  Next FC
  Set FC = Target.FormatConditions.Add(xlExpression, , "ИСТИНА")
  FC.Interior.Color = 16641000
Ex:
  Set LastRange = Target
End Sub

только при этом не получится условное форматирование использовать.

Спасибо!
То, что надо.

[beal]

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

[DiemonStar]

Dim LastRange As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  On Error GoTo Ex
  For Each FC In LastRange.FormatConditions
    FC.Delete
  Next FC
  Set FC = Target.FormatConditions.Add(xlExpression, , "ИСТИНА")
  FC.Interior.Color = 16641000
Ex:
  Set LastRange = Target
End Sub

вставьте в код нужных листов.

[beal]

Сообщение от DiemonStar

вставьте в код нужных листов.

Спасибо, все работает!

[beal]

Работает не совсем корректно:
Назначаю скрипт на Лист2, например. На первом листе есть ячейка с гиперссылкой на ячейку Листа2. Если нажать гиперссылку, то уходим на нужную ячейку второго листа, которая и подсвечивается - все ок. Но:
если файл только что открыт, то при переходе по гиперссылке на Лист2 ячейка не подсвечивается. Если на Листе2 после перехода выбрать любую другую ячейку, то она подсвечивается. Если попробовать опять перейти с Листа1 по гиперссылке на Лист2, то ячейка подсвечивается.
Т.е. скрипт не работает именно на первом обращении после открытия файла.

[IgorGO]

beal, у Вас спортивный интерес? (практического я не вижу, стандартными средствами довольно очевидно какая ячейка на листе выделена)
так вот, Вам дали рабочую заготовку, вооружитесь напильником и подгоняйте ее к своим нуждам до полного удовлетворения.

удачи!