Профессиональные приемы работы в Microsoft Excel

Пожалуйста, войдите или зарегистрируйтесь.


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

Новости:

Прикрепить к сообщению можно только файлы xls, gif, jpg, rar, zip,7z, bas, frm, cls, doc размером до 150 Кб.

Автор Тема: Сохранение динамических данных  (Прочитано 236 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Виктор Суржиков

  • Новичок
  • *
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 3

Здравствуйте, вообще то нашел здесь такую же тему
  https://forum.msexcel.ru/index.php?topic=8028.0
  но написана она в 20лохматом году. Поэтому решил создать новую.
 В столбцы A-G передаются данные по DDE серверу. Время его работы с 10 до 18:40.
  После 18:40 столбцы удаляются, они мне больше неинтересны.
   Столбцы I-L вспомогательные.
  Во время работы сервера я наблюдаю за динамикой изменения ячейки M2.
 Поэтому хотелось бы чтобы данные из ячейки M2 сохранялись например в столбце N
  каждые 2 минуты в новой ячейке. В дальнейшем из этого числового ряда (столбец N) я сделаю
  что нибудь в виде гистограммы для наглядности.
  Понимаю что по хорошему здесь нужен макрос и никто никому ничего не должен.
  Если через макрос не получится то может что то посоветуете формулой.
  Допустим если привязаться к текущему времени компьютера.
 Например ЕСЛИ тек время 10:00 то N2=M2
                 ЕСЛИ тек время 10:02 то N3=M2
 A вот что писать в ИНАЧЕ я вообще не представляю, чтобы это все корректно работало.
 Мне не лень будет вручную эти 200-300 строк заполнить.
  Вообщем как то так.
« Последнее редактирование: 07.01.2019, 17:21:32 от Виктор Суржиков »
Записан

boa

  • Глобальный модератор
  • Старожил
  • *****
  • Уважение: +32/-0
  • Оффлайн Оффлайн
  • Сообщений: 566
  • Доброта спасет мир...
Re: Сохранение динамических данных
« Ответ #1 : 26.12.2018, 23:20:29 »

Здравствуйте,

Растяните свои формулы на нужное растояние и выберите период срабатывания (в секундах) на листе

Dim Prepare As Boolean

Sub NewMacros()
'  Description: включает цикличный запуск для пересчета и фиксации показаний

    With Application
        If .Calculation = xlAutomatic Then Prepare = True: .Calculation = xlManual 'Включает ручной пересчет.
    End With

    With ActiveSheet
        .Calculate                      'пересчитываем лист
        .Cells(.Cells(.Rows.Count, 14).End(xlUp).Row + 1, 14) = .Cells(2, 13).Value 'заносим показания
        Application.OnTime Now + TimeValue("0:0:" & .Range("MyTime").Value), "NewMacros" 'повторяем через время указанное в ячейке MyTime
    End With

End Sub

Sub stopTimer()
'Description: останавливает таймер
    Dim i&
    On Error Resume Next
    With ActiveSheet
        For i = 1 To .Range("MyTime").Value
    Application.OnTime EarliestTime:=Time + TimeValue("0:0:" & i), Procedure:="NewMacros", Schedule:=False
        Next i
    End With
    Application.Calculation = IIf(AutoCalculat, xlAutomatic, xlManual)
End Sub
Записан
Ничто не обходится нам так дешево и не ценится так дорого, как вежливость...  Мигель Сервантес де Сааведра

Виктор Суржиков

  • Новичок
  • *
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 3
Re: Сохранение динамических данных
« Ответ #2 : 27.12.2018, 18:00:52 »

Здравствуйте, спасибо что помогаете.  При открытии вашего файла появляются 2 окна.
  Мне кажется что то пошло не так.  В чем может быть проблема.
 
Записан

boa

  • Глобальный модератор
  • Старожил
  • *****
  • Уважение: +32/-0
  • Оффлайн Оффлайн
  • Сообщений: 566
  • Доброта спасет мир...
Re: Сохранение динамических данных
« Ответ #3 : 27.12.2018, 19:12:56 »

Бывает глюк у офиса при открытии файлов из архива или "скачаных из интернета"
Бывает, антивирус чего-то портачит
на всякий случай перезалил

Ну и в конце концов, если файл открылся без модулей, то пересохраните его в формате с поддержкой макросов и вставьте код из предыдущего моего сообщения. Кнопкам присвоите соответствующие макросы.
Записан
Ничто не обходится нам так дешево и не ценится так дорого, как вежливость...  Мигель Сервантес де Сааведра

Виктор Суржиков

  • Новичок
  • *
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 3
Re: Сохранение динамических данных
« Ответ #4 : 30.12.2018, 11:38:55 »

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



Темы без ответов

05.03.2019 17:00 Последовательный вывод таблиц Excel в один документ Word без шаблона 135
05.03.2019 09:29 Нежелательные изменение размеров колонтитула при редактировании 108
07.02.2019 01:36 Как удалить дубликаты из выпадающего связанного списка? 203
20.01.2019 12:38 Все варианты частичного суммирования 323
13.01.2019 12:24 Заполнение диапазона числами - в виде кластеров 237
30.09.2018 10:24 Расчет процентов за определенный период (месяц) с учетом изменений и платежей 706
03.03.2018 00:00 Подсчет отработанного времени, за исключением заранее определенных перерывов 1494
14.02.2018 10:11 Подготовить читабельную отчетность по платежам 1513
23.01.2018 13:46 Найти вероятность повторной покупки 1366
12.01.2018 23:56 Сделать отчет на Power BI (Dashboard) 1918





Яндекс цитирования msexcel.ru Яндекс.Метрика

Страница сгенерирована за 0.14 секунд. Запросов: 105.