Блог им. andy7065

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

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

Как должна выглядеть формула в ячейке для графика? Ну типа " if Time==«10:00:00» then A1.Data".
И макрос какой-то надо запустить для рефреша, наверное, подскажите в общем — не помню нихрена уже :))
    ★2
    10 комментариев
    +1
    надо написать простенькую программку в VBA, которая по времени вынимает значение из этой ячейки и складывает в столбец где-то рядом
    www.askit.ru/custom/vba_office/m3/03_09_05_datetime_finctions.htm
    support.microsoft.com/ru-ru/kb/162150
    avatar
    SergeyJu
    третий способ от микрософта (метод OnTime) выглядит интересно! Если он рабочий, то надо будет взять себе на вооружение.
    avatar
    Денис
    +1
    Если данные идут из квика, то в нем сделать табличку с 5-минутными барами, например 100 последних. И эту таблицу передавать в эксель и строить график.
    avatar
    Karim
    Karim, не из квика, Но за идею спасибо, это где там такое?
    avatar
    Andy7065
    +1
    Andy7065, Скрипт на QPILE формирует нужную таблицу с заданным таймфреймом.
    avatar
    Karim
    Как должен выглядеть кусок кода, который раз минуту активировался бы? Прям тут напишите, плиз.
    avatar
    Andy7065
    +1
    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

    Копируй как есть в какой-нибудь из модулей.
    avatar
    Алексей Дорожинский
    +1


    На выходе из 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


    avatar
    Алексей Дорожинский
    Алексей Дорожинский, Спасибо!
    avatar
    Andy7065

    полезные записи за 24 часа

    ★9 4 Бакс 99,99, ралли в акциях закончилось, крипторалли продолжается. Дивиденды, недвижка, облигации, инфляция. Воскресный инвестдайджест
    ★7 112 Кризис застройщиков потащит за собой банки
    ★6 26 СБЕР присвоил мне статус "Квалифицированного инвестора"! Как я его получил и почему это стоит сделать всем инвесторам до конца года?
    ★5 115 Теперь точно вклады заморозят! Иначе будет гиперинфляция. Часть 2.
    ★4 82 Важно. Лавров: заморозка - хуже «Минска»
    ★4 3 🟡Шестнадцатимиллионная претензия на 5-процентную когорту в трейдинге! День 31-й.(пост за понедельник)
    ★3 22 Философия неравенства
    ★3 18 Когда начнётся рецессия, если не смягчать ДКП. Личное мнение: когда ЦБ РФ придётся смягчать ДКП
    ★3 1 Positive Technologies - ожидания и реальность
    ★3 132 Кризис пенсионера
    +128 50 Почти 15 лет в рынке.
    +107 132 Кризис пенсионера
    +97 83 Настоящая беда это налоги, а не инфляция!
    +91 115 Теперь точно вклады заморозят! Иначе будет гиперинфляция. Часть 2.
    +89 112 Кризис застройщиков потащит за собой банки
    +82 46 Застройщики совсем обнаглели, взвинтив цену на жильё за два года в 2 раза, но жизнь заставит их образумиться — депутат Госдумы Аксаков
    +74 119 Секта Карпо-Шадриных.
    +60 15 Интepecы poccиян в интepнeтe
    +60 46 Инфляция, наблюдаемая, ожидаемая и официальная.
    +57 11 Пугалки "заморозкой" вкладов и крахом LQDT.

    самые обсуждаемые сегодня

    119к Секта Карпо-Шадриных.
    72к Фото ЖК от которого бомбануло у смартлаба
    50к Почти 15 лет в рынке.
    46к Инфляция, наблюдаемая, ожидаемая и официальная.
    37к Космолётами хочет заменить самолёты Илон Маск.
    28к Как я потерял более 70 млн. рублей на бирже 🎪
    29к Как банкомат стырил 300 тысяч, и что было дальше
    26к СБЕР присвоил мне статус "Квалифицированного инвестора"! Как я его получил и почему это стоит сделать всем инвесторам до конца года?
    26к Я категорически не согласен!
    25к 24 годовых без риска. Чо вам еще надо?

    теги блога Andy7065

    ....все тэги



    UPDONW
    Новый дизайн