SMART-LAB
Новый дизайн
Мы делаем деньги на бирже
Информация
Блог им. andy7065
Господа, подскажите по экселю. Кто в VBA шарит.
- 20 августа 2015, 12:16
- |
В таблицу из терминалки идут данные. Идут в одну ячейку, а надо по ним построить график на 5мин.
Пока мысль такая — сделать шаблон для графика 60 ячеек на 1 день, а в куждую ячейку значение писать в опр. время.
Т.е. в 1-ю в 10:00, во 2-ю в 10:05, и т.д.
Допустим данные идут в A1.
Как должна выглядеть формула в ячейке для графика? Ну типа " if Time==«10:00:00» then A1.Data".
И макрос какой-то надо запустить для рефреша, наверное, подскажите в общем — не помню нихрена уже :))
Пока мысль такая — сделать шаблон для графика 60 ячеек на 1 день, а в куждую ячейку значение писать в опр. время.
Т.е. в 1-ю в 10:00, во 2-ю в 10:05, и т.д.
Допустим данные идут в A1.
Как должна выглядеть формула в ячейке для графика? Ну типа " if Time==«10:00:00» then A1.Data".
И макрос какой-то надо запустить для рефреша, наверное, подскажите в общем — не помню нихрена уже :))
теги блога Andy7065
- brent
- QE
- Si
- StockSharp
- tradingview
- TSLab
- алготрейдинг
- Бакс
- биржи
- буровые
- ВВП
- выступление путина
- Геополитика
- герчик
- гэп
- ДНР
- Жуковский
- запасы нефти
- ИИС
- Карл
- коронавирус
- Ликвидность
- Македония
- мани менеджмент
- мартин
- ммвб
- ндфл
- нефть
- нонфарм
- опрос
- опционы
- оффтоп
- подписка
- робот
- рубль
- сальдо торгового баланса
- си
- сиха
- ставка ЦБ
- том
- Турецкий поток
- укропы
- Ура
- финам
- фортс
- форум
- фртс бакс ммвб
- фьючерсы опционы
- цб
- чат
- экспорт
- Экспорт импорт
- эрдоган
www.askit.ru/custom/vba_office/m3/03_09_05_datetime_finctions.htm
support.microsoft.com/ru-ru/kb/162150
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
Копируй как есть в какой-нибудь из модулей.
На выходе из 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