Excel 2007 обновляет новое значение соседней ячейки при обновлении ссылочной ячейки

Question

Я должен копировать или обновлять значение ячейки в новую смежную ячейку каждый раз, когда обновляется эталонное значение ячейки.

У меня есть ячейка A1 с некоторой формулой, которая часто обновляет его значение. что мне нужно сделать, это каждый раз, когда значение A1 обновляется, это значение должно быть скопировано в новую соседнюю ячейку.

если A1 равен 20 , то B1 должен быть 20 .

Опять же, если A1 id обновляется до нового значения 23 , то B1 должно быть 20 а C1 должно быть 23 , и так далее.

update 1: A1=20  B1=20
update 2: A1=23  B1=20   C1=23
update 3: A1=25  B1=20   C1=23  D1=25

Answer 1

Этот небольшой макрос Event поместит последнее значение A1 в конец первой строки:

Private Sub Worksheet_Calculate()
    Dim v As Variant, N As Long

    v = Range("A1").Value
    Application.EnableEvents = False
    If Range("B1").Value = "" Then
        Range("B1").Value = v
        Application.EnableEvents = True
        Exit Sub
    End If

    N = Cells(1, Columns.Count).End(xlToLeft).Column
    If Cells(1, N).Value = v Then
        Application.EnableEvents = True
        Exit Sub
    End If

    Cells(1, N + 1).Value = v
    Application.EnableEvents = True
End Sub

Поскольку это код рабочего листа, его очень легко установить и использовать автоматически:

1. щелкните правой кнопкой мыши имя вкладки в нижней части окна Excel
2. выберите View Code - откроется окно VBE
3. вставьте материал и закройте окно VBE

Если у вас есть какие-либо проблемы, сначала попробуйте на пробную версию.

Если вы сохраните книгу, макрос будет сохранен вместе с ней. Если вы используете версию Excel более поздней, чем в 2003 году, вы должны сохранить файл как .xlsm, а не .xlsx

Чтобы удалить макрос:

1. вызвать окна VBE, как указано выше
2. очистить код
3. закройте окно VBE

Чтобы узнать больше о макросах в целом, смотрите:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

а также

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

Чтобы узнать больше о макросах событий (код листа), см .:

http://www.mvps.org/dmcritchie/excel/event.htm

Макросы должны быть включены, чтобы это работало!