Господа, подскажите по экселю. Кто в VBA шарит.

В таблицу из терминалки идут данные. Идут в одну ячейку, а надо по ним построить график на 5мин.
Пока мысль такая — сделать шаблон для графика 60 ячеек на 1 день, а в куждую ячейку значение писать в опр. время.
Т.е. в 1-ю в 10:00, во 2-ю в 10:05, и т.д.
Допустим данные идут в A1.

Как должна выглядеть формула в ячейке для графика? Ну типа " if Time==«10:00:00» then A1.Data".
И макрос какой-то надо запустить для рефреша, наверное, подскажите в общем — не помню нихрена уже :))

Andy7065

Санкт-Петербург

777

с 16 января 2015

10 Комментариев

SergeyJu
20 августа 2015, 12:22
надо написать простенькую программку в VBA, которая по времени вынимает значение из этой ячейки и складывает в столбец где-то рядом
www.askit.ru/custom/vba_office/m3/03_09_05_datetime_finctions.htm
support.microsoft.com/ru-ru/kb/162150

+1
Денис
20 августа 2015, 12:32
третий способ от микрософта (метод OnTime) выглядит интересно! Если он рабочий, то надо будет взять себе на вооружение.
0
Karim
20 августа 2015, 13:06
Если данные идут из квика, то в нем сделать табличку с 5-минутными барами, например 100 последних. И эту таблицу передавать в эксель и строить график.
+1
- Andy7065
  20 августа 2015, 13:09
  Karim, не из квика, Но за идею спасибо, это где там такое?
  0
  - Karim
    20 августа 2015, 13:12
    Andy7065, Скрипт на QPILE формирует нужную таблицу с заданным таймфреймом.
    +1
Andy7065
20 августа 2015, 13:07
Как должен выглядеть кусок кода, который раз минуту активировался бы? Прям тут напишите, плиз.
0
Алексей Дорожинский
20 августа 2015, 16:14
Public time_1 As Date

Sub One_Min_Timer()
' время в секундах
time_1 = Now() + 60
Application.OnTime TimeValue(time_1), «CLEAR_1»

End Sub

Sub CLEAR_1()
On Error Resume Next
' Прерываем старый таймер, иначе будет включаться каждые сутки в то же самое время.
Application.OnTime EarliestTime:=TimeValue(time_1), Procedure:=«CLEAR_1», Schedule:=False

' тут производим нужные действия
' .................

' и снова вызываем таймер
Call One_Min_Timer

End Sub

Копируй как есть в какой-нибудь из модулей.
+1
Алексей Дорожинский
20 августа 2015, 16:19

На выходе из Workbook надо остановить таймер
Это копируй в ThisWorkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)

On Error Resume Next
Application.OnTime EarliestTime:=TimeValue(time_1), Procedure:=«CLEAR_1», Schedule:=False

End Sub

+1
- Andy7065
  21 августа 2015, 00:19
  Алексей Дорожинский, Спасибо!
  0

Читайте на SMART-LAB:

🍞Акрон: неплохо, но есть другие варианты

Производитель удобрений отчитался по МСФО за 2025 год Акрон (AKRN) ➡️ Инфо и показатели 🔶 Результаты за год — выручка: ₽237,6 млрд (+20% год к году); — EBITDA: ₽91,7 млрд...

Market Power

14:07

Рубль под давлением: какие активы под угрозой?

Ставка падает, рубль слабеет — это новая экономическая реальность или временный эффект? Разбираем, что на самом деле происходит с бюджетом и почему курс валют обманчив. Пузырь в ИИ: кто окажется...

Финам Брокер

13:28

Акции RENI в списке ТОП-10 лучших дивидендных акций, по мнению УК ««ДОХОДЪ»

По сообщениям СМИ, акции Группы Ренессанс страхование (RENI) вошли в подборку Управляющей компании ««ДОХОДЪ» ТОП-10 лучших дивидендных акций с доходностью от 12% до 17,5% на ближайшие 12 месяцев....

Ренессанс страхование

13:29

X5 МСФО 2025 г. - капзатрат меньше, дивиденд больше?

Компания X5 опубликовала финансовые результаты за 2025 год. Выручка прибавила +18,8% до 4,6 трлн руб., в 4-м квартале рост на 14,9% до 1,24 трлн руб. Валовая прибыль за год выросла на +17,9%...