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

[beal]

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

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

удачи!

По сути вопроса похоже на спортивный интерес? Вы заблуждаетесь.
Форум и существует для помощи, если Вам нечего сказать, то для чего разводить демагогию?
p.s. в аксесе на vba такое сделать можно без проблем, а как это сделать в гребаном еккселе я не знаю (синтаксис другой), поэтому и спрашиваю.

[DiemonStar]

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

Форум и существует для помощи, если Вам нечего сказать, то для чего разводить демагогию?

Поверьте, если бы Игорь увидел в этом смысл, то ему было бы что сказать.

а описанная Вами ситуация возникает из-за того, что при запуске в LastRow еще нет никакого диапазона. Избавиться от этого можно очень даже просто:

Dim LastRange As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not LastRange Is Nothing Then
    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:
  End If
  Set LastRange = Target
End Sub

з.ы. вба что в акцессе, что в экселе практически одинаковое - немного меняются лишь объекты приложения...

[beal]

DiemonStar
Спасибо за помощь!
Новый скрипт не работает , активная ячейка не подсвечивается.
p.s. синтаксис vba в аксесе другой, сами объекты и их свойства... просто не знаю как они определяются в екселе.
p.p.s. задача со стороны может и выглядит идиотской, но нужна...

[DiemonStar]

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

DiemonStar
Спасибо за помощь!
Новый скрипт не работает , активная ячейка не подсвечивается.
p.s. синтаксис vba в аксесе другой, сами объекты и их свойства... просто не знаю как они определяются в екселе.
p.p.s. задача со стороны может и выглядит идиотской, но нужна...

из-за копипаста слетела строка, нужно:

"ÈÑÒÈÍÀ"

заменить на

"ИСТИНА"

[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
Ex:
    Set FC = Target.FormatConditions.Add(xlExpression, , "ИСТИНА")
    FC.Interior.Color = 16641000
    Set LastRange = Target
End Sub

з.ы. вставлял в код конкретной страницы.

[beal]

Да, все ок.
Спасибо!

[Ghjuhfvvf]

Спасибо, DiemonStar!

[SaLoKiN]

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

Dim cc As Range, ind As Variant
  
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
cc.Interior.ColorIndex = ind
Set cc = ActiveCell
ind = ActiveCell.Interior.ColorIndex
ActiveCell.Interior.ColorIndex = 36
End Sub