Страницы: 1
RSS
Выделение содержимого ячейки при изменении
 
Доброе время суток!
Не нашла на форму решения своей проблемы, поэтому пишу здесь.

Есть вот такой макрос, который изменяет цвет заливки ячейки при внесении изменений:
Код
Option Explicit
Dim vValue

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
    If Target <> vValue Then Target.Interior.Color = vbRedEnd Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Count = 1 Then vValue = Target
End Sub

Можно ли сделать, чтобы красным становился не фон ячейки, а текст (содержимое ячейки)
Изменено: yuly84 - 02.04.2015 11:53:06
 
Чтобы менять цвет текста, а не заливки измените Target.Interior.Color = vbRed на Target.Font.Color = vbRed
 
МВТ, спасибо
Страницы: 1
Наверх