Электронные Таблицы » макросы

MetaTrader4-DDE-Excel 2007 Сохранение Котировок на Листе

egor — Thu, 04 Dec 2008 19:15:18 +0000

В комментариях к статье про передачу данных из MeteTrader4 в Excel, появился вопросик – Как можно сохранить данные поступающие через DDE?
Решение следующее:
Создаем новый лист в Excel.
В любую ячейку записываем запрос к MetaTreder =MT4|QUOTE!GBPUSD и присваиваем имя этой ячейке как GBPUSD_QUOTE. В данную ячейку будем получать данные из MT4.
Дальше определяем столбец куда надо сохранять данные и первой верхней ячейке этого столбца присваиваем имя. QUOTE_COLLECT.
Сохраняем файл как Excel Macro Enabled Workbook (.xlsm).
Запускаем MetaTrader и получаем приблизительно такой вид …Теперь надо написать небольшую программку на VBA.
Алгоритм программы следующий – через определенный промежуток времени, считываются данные из ячейки с именем GBPUSD_QUOTE и записываются в столбец с под ячейкой QUOTE_COLLECT. Интервал времени считывания должен устанавливатся пользователем (по умолчанию интервал – 1 секунда).Все понятно? Начинаем.
Заходим в редактор VBA (сочетание клавиш Alt+F11) и создаем форму (UserForm1) и модуль (Module1) для записи VBA кода.
На форму помещаем текстовое поле (TextBox1), текстовую метку (Label1) и две кнопочки (CommandButton1, CommandButton2)
Для наглядности, можно изменить свойства Caption у формы и кнопок.
Я присвоил Caption форме как – Сохраняем Котировки … , а кнопкам – Старт и Стоп.
В свойстве Value поля TextBox1 записываем 1, а у метки Label1 в Caption пишем: Интервал считывания котировок в секундах.
Получаем вот такую форму …Дальше начинаем писать сам код.
В Module1 создаем процедуру CollectQuoteRun для запуска формы UserForm1:

1
2
3

Sub CollectQuoteRun()
UserForm1.Show
End Sub

Затем переходим к программированию формы.

'----------------------
'создаем глобальную переменную для управления программой
Public StartStop As Integer
'----------------------
'код для кнопки "Старт"
Private Sub CommandButton1_Click()
Dim PauseTime, Start
Dim LastQuote As String
'передаем переменной значение времени паузы
PauseTime = UserForm1.TextBox1.Value
'устанавливаем курсор на ячейку под которой будут записыватся данные
Range("QUOTE_COLLECT").Select
StartStop = 1
'запускаем цикл обращения к ячейке с данными из дде
Do While StartStop = 1
'перемещаем курсор на одну ячейку вниз
ActiveCell.Offset(1, 0).Select
'записываем в переменную значение котировок
LastQuote = Range("GBPUSD_QUOTE").Value
'записываем в переменную значение текущего времени в секундах
Start = Timer
'запускаем цикл для задержки времени (по дефолту 1 секунда)
Do While Timer < Start + PauseTime
DoEvents
Loop
'спустя одну секунду, записываем значение котировок в нужном месте
ActiveCell.Value = LastQuote
'находимся в цикле пока переменная StartStop = 1
Loop
End Sub
'--------------------------
'код для кнопки "Стоп"
Private Sub CommandButton2_Click()
'передаем переменной значение 2 для остановки цикла
StartStop = 2
'закрываем форму
Unload Me
End Sub
'--------------------------

Сохраняем документ и запускаем наш макрос. В появившейся форме ставим количество секунд, через которое нужно сохранять данные. Нажимаем кнопку Старт. Пьем кофе и наблюдаем как записываются котировки.Такой вот, простенький макрос получился.
Если есть вопросы – welcome to comments!

Двери Montblanc! Покупай окна в коттедж в Крупках на сайте http://beloknadveri.ru

Создание простых макросов в Zoho Sheet

egor — Thu, 30 Oct 2008 21:38:26 +0000

Я уже упоминал ранее, что в таблицах онлайн офиса Zoho есть возможность использовать макросы.
Создавать несложные макросы в Zoho Sheet также просто как и в Excel. Для этого можно воспользоваться встроенным рекордером.
Допустим, необходимо создать совершенно бесполезный макрос, который копирует данные из одной ячейки и вставляет их в соседнюю ячейку справа.

Идем в меню Macros – Record Macro.

В появившемся окошке пишем имя макроса, можно записать описание макроса и нажимаем Start Recording.

Сверху в тулбаре появляется бар состояния и управления рекордера.
Теперь все действия с таблицей (перемещение по ячейкам, ввод данных, копирование, вставка, удаление … ) записывает макро-рекордер.
Проделав все необходимые операции, останавливаем запись кнопкой Stop Recording и закрываем тулбар рекордера.

Дальше можно вызвать через Alt+F11 редактор макросов и внести изменения в код, если это необходимо. Из скриншота редактора видно что в Zoho Sheet используется обыкновенный VBA, как и в Excel.

Сохранив изменения и саму таблицу, можно запустить макрос на выполнение. К сожалению, в Zoho пока не предусмотрено присвоение клавишных комбинаций для запуска конкретного макроса. Поэтому через меню или Alt+F8, вызываем список доступных макросов (в нашем примере там один макрос “test”). Кликнув по названию – запускаем макрос и наблюдаем результат.

Для тех кто знаком с VBA – написание макросов в Zoho не составляет трудностей.
Пример более сложного макроса можно посмотреть здесь. После ввода данных в ячейку колонки “Symbol” макрос, используя встроенную функцию STOCK(), получает последние данные о цене акции. Дальше введя цену покупки и количество, рассчитывается изменение, а точнее – прибыль или убыток по данной акции. Открыв редактор VBA можно увидеть сам код макроса.

Zoho Sheet – новые возможности

egor — Thu, 14 Aug 2008 21:49:09 +0000

На днях, разработчики виртуального офиса Zoho добавили в электронные таблицы – Zoho Sheet новую функцию записи и воспроизведения макросов. Об этом было заявлено на официальном блоге Zoho. Саму возможность выполнять макросы разработчики Zoho анонсировали еще в апреле. Подробнее о макросах виртуального офиса Zoho можно почитать здесь.