Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/"Отсекание" данных при каждом обновлении - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » "Отсекание" данных при каждом обновлении (Макросы/Sub)
"Отсекание" данных при каждом обновлении
ArkaIIIa Дата: Вторник, 03.06.2014, 11:48 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 894
Репутация: 115 ±
Замечаний: 0% ±

2010
Добрый день, уважаемые гуру!

Помогите, пожалуйста, решить следующую задачу.
В определенные ячейки файла (например A1:A10) при помощи связи с другим файлом переносятся цифровые данные. Автообновление происходит каждые полчаса. Т.е. каждые полчаса значения A1:A10 - меняются.
Хотелось бы видеть тренд этих изменений. Т.е. в идеале хотелось бы чтобы макрос вел таблицу значений, где одна колонка - это предыдущее обновление, и вторая колонка - текущее значение.

Т.о.
A1:A10 - исходные значения
B1:B10 - исходные значения в предыдущем обновлении
C1:С10 - исходные значения в текущем обновлении

Наверное, макрос должен переносить значения B1:B10 - в C1:C10, а потом A1:A10 в B1:B10.
Заранее благодарю за помощь!
К сообщению приложен файл: 6577435.xlsm (9.0 Kb)
 
Ответить
СообщениеДобрый день, уважаемые гуру!

Помогите, пожалуйста, решить следующую задачу.
В определенные ячейки файла (например A1:A10) при помощи связи с другим файлом переносятся цифровые данные. Автообновление происходит каждые полчаса. Т.е. каждые полчаса значения A1:A10 - меняются.
Хотелось бы видеть тренд этих изменений. Т.е. в идеале хотелось бы чтобы макрос вел таблицу значений, где одна колонка - это предыдущее обновление, и вторая колонка - текущее значение.

Т.о.
A1:A10 - исходные значения
B1:B10 - исходные значения в предыдущем обновлении
C1:С10 - исходные значения в текущем обновлении

Наверное, макрос должен переносить значения B1:B10 - в C1:C10, а потом A1:A10 в B1:B10.
Заранее благодарю за помощь!
Автор - ArkaIIIa
Дата добавления - 03.06.2014 в 11:48
ArkaIIIa Дата: Вторник, 03.06.2014, 12:02 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 894
Репутация: 115 ±
Замечаний: 0% ±

2010
Эм, ну в общем, вроде бы через запись макроса получилось сделать. Но если у кого-то появятся идеи реализации - буду рад)
 
Ответить
СообщениеЭм, ну в общем, вроде бы через запись макроса получилось сделать. Но если у кого-то появятся идеи реализации - буду рад)
Автор - ArkaIIIa
Дата добавления - 03.06.2014 в 12:02
Rioran Дата: Воскресенье, 08.06.2014, 00:22 | Сообщение № 3
Группа: Авторы
Ранг: Ветеран
Сообщений: 903
Репутация: 290 ±
Замечаний: 0% ±

Excel 2013
ArkaIIIa, здравствуйте.

Задача мне понравилась =) Попробовал и вот что получил, посмотрите. Когда нажмёте кнопку "Пуск" в файле - подождите 10 секунд.

[vba]
Код
Sub Call_Center()

With ThisWorkbook.Sheets(1)

Dim X As Long

X = .Cells(Rows.Count, 2).End(xlUp).Row
.Range("A2:D" & X).Offset(1, 0).Value = .Range("A2:D" & X).Value
Cells(3, 1).Value = Now

If .Cells(11, 2).Value = "" Then Application.OnTime Now + TimeValue("00:00:02"), "Call_Center"
End With
        
End Sub
[/vba]
К сообщению приложен файл: History.xlsm (18.4 Kb)

Роман, Москва, voronov_rv@mail.ru
Яндекс-Деньги: 41001312674279

Сообщение отредактировал Rioran - Воскресенье, 08.06.2014, 00:23
 
Ответить
СообщениеArkaIIIa, здравствуйте.

Задача мне понравилась =) Попробовал и вот что получил, посмотрите. Когда нажмёте кнопку "Пуск" в файле - подождите 10 секунд.

[vba]
Код
Sub Call_Center()

With ThisWorkbook.Sheets(1)

Dim X As Long

X = .Cells(Rows.Count, 2).End(xlUp).Row
.Range("A2:D" & X).Offset(1, 0).Value = .Range("A2:D" & X).Value
Cells(3, 1).Value = Now

If .Cells(11, 2).Value = "" Then Application.OnTime Now + TimeValue("00:00:02"), "Call_Center"
End With
        
End Sub
[/vba]
Автор - Rioran
Дата добавления - 08.06.2014 в 00:22
Мир MS Excel » Вопросы и решения » Вопросы по VBA » "Отсекание" данных при каждом обновлении (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!