Скорректировать макрос, чтобы подсвечивалась только измененная часть текста в яч

[akosta]

Добрый день. Подскажите,  как изменить макрос, чтобы выделялась цветом только измененная или добавленная часть текста, а не весь текст в ячейке. Спасибо

Option Explicit
Dim vValue
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target <> vValue Then Target.Font.Color = vbBlue
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 Then vValue = Target
End Sub

[vikttur]

При выделении ячейки запомнить старое значение. После изменения значения сравнить его с новым. Это можно сделать в Вашем файле-примере с нужным результатом

Какой диапазон нужно отслеживать?

[akosta]

диапазон - таблица Excel  300 строк на 45 столбцов. А макрос прикрепила ко всему листу.

[Дмитрий Щербаков(The_Prist)]

только измененная или добавленная часть текста

а что делать, если сначала было значение "план", а стало "запланировано"? Это как считать - часть текста или весь? И что делать, если изменение произошло повторно? А если в ячейке формула? Тут вообще нюансов много.

[akosta]

К счастью формул в этих ячейках нет, только текст, который корректируется с определенной периодичностью. Разные ячейки закреплены за определенными пользователями, которые вносят корректировки. Текст в ячейках объемный, и поэтому отследить, что в нем изменено, довольно сложно.
По поводу повторной корректировки, вопрос хороший, не учла изначально.  Но это не так критично, т.к. для анализа нужна текущая корректировка по каждой ячейке, а после ознакомления можно все закрасить одним цветом.

[Дмитрий Щербаков(The_Prist)]

Как самый простой вариант:

Код: (vb)

Option Explicit
Dim vValue
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target <> vValue Then
        Dim lp&, s$
        s = Replace(Target.Value, vValue, "")
        lp = InStr(1, Target.Value, s, 1)
        If lp > 0 Then
            Target.Font.Color = vbBlack
            Target.Characters(lp, Len(s)).Font.Color = vbBlue
        Else
            Target.Font.Color = vbBlue
        End If
    End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count = 1 Then vValue = Target
End Sub

[akosta]

Спасибо, работает.