Вставить текст рядом с выбранной ячейкой - Excel VBA

Question

У меня есть фрагмент кода «If / Then», который изменяет целое число в ячейке, если условие истинно.Я хотел бы вставить текст рядом с этой ячейкой, чтобы указать, что им манипулировали.

Например:

Public Sub testforfifty()
    Dim rcell As Range, rng As Range
    Set rng = Application.ActiveSheet.Range("D1:D" & Application.ActiveSheet.UsedRange.Rows.Count)
    For Each rcell In rng.Cells
        If rcell.Value > 50 And rcell.Value < 100 Then rcell.Value = rcell.Value - 50
        If rcell.Value >= 100 Then rcell.Value = "NoSplit"
    Next rcell
End Sub

Если ячейка равна >=100, тогда значение ячейки простоизменилось на "No Split", что хорошо, но если число скажет 55, то ячейка становится числом 5.Я хочу, чтобы ячейка рядом с ней теперь говорила Manipulated, чтобы пользователь мог различить, что макрос манипулировал с ячейкой.

Может ли кто-нибудь указать мне правильное направление?Спасибо!

Answer 1

Выделите ваше заявление из:

If rcell.Value > 50 And rcell.Value < 100 Then rcell.Value = rcell.Value - 50

Кому:

If rcell.Value > 50 And rcell.Value < 100 Then 
    rcell.Value = rcell.Value - 50
    rcell.offset(0,1).value = "Manipulated"
End if