То есть: дано например, 52° 4’43.38″N 4°19’58.07″E , а получить надо 52.078717 4.3327972 и таких значений порядка 500.

Сначала я решил что таких сервисов по переводу из DMS в DD должно быть достаточно много в интернете, но подходящего сервиса я не нашол. Решил долго не заморачиваться с поиском, а сделать все в Excel (вернее в Calc OpenOffice.org но в формате Excel).

Формула пересчета простая: десятичная координата = градусы + ((минуты / 60) + (секунды / 3600)).

Для определения знака десятичной координаты используем функцию IF. Если широта северная то – “плюс“, иняче – “минус“; если долгота восточная то – “плюс“, если нет то -”минус“.

В результате получилась следующая табличка

В ячейки (A3, B3, C3, D3) записываем данные широты, в следующие ячейки (E3, F3, G3, H3) вставляем данные долготы.
В I3 помещаем формулу:

В J3 соответственно, формулу:

В итоге получаем пересчет географических координат из угловой системы в десятичную.

Взято с официального блога Zoho.

Для справки: “тук-тук” или другое название “авторикша” – самое популярное транспортное средство в густонаселенных городах южной и юговосточной азии.

1
2
3

Sub CollectQuoteRun()
UserForm1.Show
End Sub

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39

'----------------------
'создаем глобальную переменную для управления программой
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

Создаем пустой лист в Excel. Переходим во вкладку Data и из раздела Get External Data выбираем From Web …

Заполняем поле – Address: (в нашем примере -
http://www.myspreadsheet.info/spravochnik/strany-mira-tablica ) и нажимаем кнопку Go.

Ждем пока загрузится нужная нам страница.

Отмечаем таблицу, которую хотим импортировать и нажимаем Import.

Появляется форма Import Data в которой надо указать, куда и в каком виде, необходимо поместить данные.

Нажав кнопку Properties…, можно поменять свойства диапазона внешних данных (External Data Range Properties).

Оставим все без изменений. Обратим внимание лишь, что в поле Name: указано имя “strany-mira-tablica“, которое будет присвоено запросу и диапазону ячеек где будут помещены данные. Как создавать, изменять и использовать именованные диапазоны данных в Excel – можно посмотреть здесь.

Закрываем форму External Data Range Properties. И нажимаем Go на форме Import Data.
Если все сделано правильно то – в ячейке A1 видна информация о том что выполняется запрос strany-mira-tablica и полученные данные будут помещены в ячейки именованного диапазона – strany_mira_tablica.

После выполнения запроса – получаем таблицу с данными.

Посетители приходят по следующим поисковым запросам:

excel metatrader
conditional format excel
metatrader и excel
statistica 8.0.550
zoho sheets
блог о таблицах
макрос для получения котировок в excel
макросы excel примеры
макросы в excel -книга
макросы в zoho sheet
список стран таблица
формат запросов metatrader 4
что такое excel
электронные таблицы
электронные таблицы microsoft excel
электронные таблицы области применения
макросы для zoho

Заходим в меню сервис – настройки – сервер и ставим галочку в пункте “разрешить DDE сервер“.

Теперь торговый терминал MetaTrader передает данные в DDE.
Формат запроса к терминалу следующий: =MT4|ASK!GBPUSD
MT4 – имя терминала MetaTrader
ASK – параметр относящийся к обьекту запроса
GBPUSD – непосредственно обьект запроса
Обьектами запроса могут быть торговые инструменты – например EURUSD, USDCAD, _DJI и так далее … , а также обьекты торгового счета – ACCOUNT, BALANCE и соединения с сервером – CONNECT.
Параметры запроса относящегося к торговым инструментам – BID, ASK, LAST, QUOTE. К остальным обьектам параметр запроса – STATUS.
Далее подготовим Excel к получению данных.
Вопервых надо проверить настройки самого Excel.
Идем в Excel Options – Advanced - General и проверяем что снята галочка в пункте Ignore other applications that use Dynamic data exchange (DDE)

Дальше в разделе Excel Options – Formulas - Working with formulas включаем R1C1 reference style.
Это надо сделать для того чтобы Excel воспринимал ввод “=MT4” как обращение к MetaTrader, а не ссылку на ячейку с координатами MT4.

Еще один момент! Если установлен русский Windows – то в настройках региональных параметров надо установить разделитель целой и дробной части – точка. Иначе, например данные 1.2788 будут восприниматься как первое января 2788-го года и в ячейке с форматом General будут отображаться как число 324347.
Теперь, когда MetaTrader и Excel подготовлены к соединению по DDE и известен формат запроса к серверу, можно начинать делать таблицу.
Создаем новую таблицу например Quotes.xlsx и в любую ячейку можем записать, допустим “=MT4|ASK!GBPUSD ” (естественно, записываем без ковычек). Нажимаем Enter и получаем котировку ASK валютной пары GBPUSD.

Вот собственно, и все что надо сделать чтоб получать данные от MetaTrader в Excel. Дальше эти данные можно использовать как угодно. Производить рассчеты, строить всевозможные графики, создавать портфели инструментов и так далее.
Некоторые примеры использования этих данных я покажу позже.

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

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

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

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

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

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