Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.10.2011, 22:14   #1
Asblue
Пользователь
 
Аватар для Asblue
 
Регистрация: 21.10.2010
Сообщений: 78
Восклицание Сохранение истории изменения значений ячеек в таблице Excel 2

(Из темы http://programmersforum.ru/showthread.php?t=170567)

Здесь описывается функция, как сохранять историю изменения значений ячеек А1:А3 в столбец С
Код:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And Target.Row < 4 Then
Application.EnableEvents = False
LastRow = Cells(Rows.Count, 3).End(xlUp).Row
If LastRow <> 1 Then LastRow = LastRow + 1
For i = 0 To 2
Cells(LastRow + i, 3) = Cells(i + 1, 1).Value
Next
Application.EnableEvents = True
End If
End Sub
А как изменить диапазон сохраняемых ячеек?
Например мне нужно переносить значения в диапазоне ячеек не от А1 до А3 в столбец С, а от А1 до С10 в столбцы E, F, G.
Asblue вне форума Ответить с цитированием
Старый 27.10.2011, 23:22   #2
Asblue
Пользователь
 
Аватар для Asblue
 
Регистрация: 21.10.2010
Сообщений: 78
По умолчанию

Проблема решена. Тема закрыта.
Asblue вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
выделение ячеек в таблице word из VBA excel Святой Дьявол Microsoft Office Excel 5 12.11.2022 00:57
Сохранение истории изменения значений ячеек в таблице Excel Asblue Microsoft Office Excel 2 26.10.2011 10:27
Сохранение и загрузка в файл текстовых значений и значений типа Boolean krikaved Общие вопросы Delphi 1 16.03.2010 07:53
Связи ячеек в таблице MS Excel LIEN Microsoft Office Excel 2 29.09.2009 09:52
5 максимальных значений в сводной таблице в новом Excel Катик7 Microsoft Office Excel 2 03.09.2009 17:26