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

Question

Есть ли в Excel (VBA) способ пометить любое изменение в строке (A2-A10), например, идентификатором, если какая-либо ячейка в этой строке была изменена.Поэтому, если A2 изменяется, добавьте X в A1

Answer 1

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Count > 1 Then Exit Sub

        Application.EnableEvents = False

        If Not Intersect(Target, Range("A2:A10")) Is Nothing And Target <> "" Then '<- If there is any change in area A2:A10 and the value of the affect cell IS NOT empty then

            ThisWorkbook.Worksheets("Sheet1").Range("A1").Value = "X"

        ElseIf Not Intersect(Target, Range("A2:A10")) Is Nothing And Target = "" Then  '<- If there is any change in area A2:A10 and the value of the affect cell IS empty then

            ThisWorkbook.Worksheets("Sheet1").Range("A1").Value = ""

        End If

        Application.EnableEvents = True

End Sub

Answer 2

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