То есть: дано например, 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 соответственно, формулу:

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

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.

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

Заходим в меню сервис – настройки – сервер и ставим галочку в пункте “разрешить 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. Дальше эти данные можно использовать как угодно. Производить рассчеты, строить всевозможные графики, создавать портфели инструментов и так далее.
Некоторые примеры использования этих данных я покажу позже.

Допустим, есть следующая таблица:

Все понятно – доход по месяцам от трех партнерок.
Нам надо визуально сравнить ежемесячные результаты по каждой из партнерок.
Для этого сначала выделяем ячейки, данные которых нам надо сравнить. Затем заходим в меню Home-Styles-Conditional Formatting и выбираем, например Data Bars. Далее выбираем цвет бара (в моем случае – красный) и получаем результат.

Проделываем все тоже самое с ячейками по второй и третьей партнерке, используя при этом другие цвета баров.
Получаем следующую таблицу:

Теперь надо сравнить итоговую строку. Выделяем ячейки. Снова идем в Conditional Formatting. И там выбираем Color Scales с цветовой схемой, например от красного к зеленому.

В итоге, имеем красивую таблицу с визуальным представлением данных.

В данном примере я использовал готовые стили условного форматирования ячеек. В Excel 2007 есть возможность создавать пользовательские стили соответствующие определенным правилам. Также можно комбинировать представления условного форматирования, например сочетая Data Bars и Color Scales.