Для Excel
Поместите следующий макрос события в область кода рабочего листа:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim A1 As Range, N As Long, B1 As Range
Set A1 = Range("A1")
Set B1 = Range("B1")
If Intersect(Target, A1) Is Nothing Then Exit Sub
Application.EnableEvents = False
If B1.Value = "" Then
B1.Value = A1.Value
Else
N = Cells(Rows.Count, "B").End(xlUp).Row + 1
Cells(N, "B").Value = A1.Value
End If
Application.EnableEvents = True
End Sub
Код поддерживает сохранение исторической записи изменений, внесенных в ячейку A1 .
Поскольку это код рабочего листа, очень легко установить и автоматически c использовать:
- right- щелкните название вкладки в нижней части окна Excel
- выберите Просмотреть код - это вызовет окно VBE
- вставьте материал и закройте окно VBE
Если у вас есть какие-либо проблемы, сначала попробуйте его на пробном листе.
Если вы сохраните книгу, макрос будет сохранен вместе с ней. Если вы используете версию Excel более позднюю, чем 2003, вы должны сохранить файл как .xlsm, а не .xlsx
Чтобы удалить макрос:
- вызовите VBE windows как указано выше
- очистите код
- закройте окно 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
Макросы должны быть включены, чтобы это работало!