- Август 30, 2018
- Опубликовано: Команда Форекс Вики
- Категория: Торговая система Форекс
Добро пожаловать,
Я посвящаю эту тему эволюции наших таблиц Excel..
Я бы хотел, чтобы это был рай для аналитики, и я готов остаться здесь наедине со своей маленькой эволюцией.. Вы могли бы часто смотреть, поскольку я собираюсь опубликовать свои сценарии VBA, надеясь, что кто-нибудь из опытных появится и поправит меня.. На протяжении всей моей профессии купли-продажи, Мне много раз хотелось исследовать некоторые таймсерии., и, как правило, нужно было взглянуть на это с какой-то необычной точки зрения. К сожалению, я IT analphabet. Итак, я научился кодировать основы VBA., закодировал как свинья, однако в некотором роде это потрудилось, и я получил то, что хотел.
Для какой-то цели, Я думаю, что некоторые из вас были, или, в том же сценарии, и я думаю, если мы поделимся нашими кодами VBA и комбо Excel, мы можем делать довольно хорошие вещи.
Я даже использую эту доску обсуждений в качестве продавца кодов., так они в одном месте. Я призываю вас помочь мне с развитием этих. Если вы получили какое-либо представление о том, как его можно улучшить, скажите об этом..
Отказ от ответственности: Это на самом деле глупые коды. Если вы планируете их использовать, обязательно поймите, что они делают, и сначала сохраните свою информацию, раньше, чем рабочий макрос. Все коды были написаны в VBA Excel 2010.
Нужно добавить одно правило потока:
Пожалуйста, попробуйте привязать его к анализу Excel и VBA. Дополнительно приветствуются AC/DC.
Итак, первый небольшой код, который я хотел бы сохранить. Я сделал это, потому что обычно, когда я получаю таймсерию, совершенно разные международные местоположения имеют совершенно разные кодеки времени и даты, и Excel не может узнать дату. Это просто для того, чтобы получить чертовски горячую концепцию, измените все эти неправильные даты..
'datecrush
Установить rng = Варьировать(Клетки(1, 1), Клетки(1, 1).Заканчивать(кслдаун))
Для каждого b в кольце
б.Смещение(0, 7).Стоит = (Левый(б.Уорт, 4) & "-" & Середина(б.Уорт, 6, 2) & "-" & Правильный(б.Уорт, 2))
Последующий
Для каждого b в кольце
b.Стоимость = b.Смещение(0, 7).Ценность
Последующий
rng.NumberFormat = "дмгггг"
Второй в основном беспорядок. Этот код предназначен для уничтожения информации, экспортированной в формате *.csv, и преобразования ее в удобочитаемый таймсерий только с закрытием и датами.. Проверялся каждый день на информации EU Oanda от MT4. Есть небольшая ошибка с датами., что сейчас исправляю - используя код №1. Предположим, что все экспорты MT4 должны быть одинаковыми..
СубдатаcrushMT4Daily()
'перезапуск листов раздавлен и закрыт
Software.DisplayAlerts = Ложь
Рабочие листы("Data_crushed").Удалить
Рабочие листы.Добавить.Идентифицировать = "Data_crushed"
Рабочие листы("Data_crushed").Передача после:= Рабочие листы("Информация")
Рабочие листы("Data_final").Удалить
Рабочие листы.Добавить.Идентифицировать = "Data_final"
Рабочие листы("Data_final").Передача после:= Рабочие листы("Меню")
Программное обеспечение.DisplayAlerts = Истина
Software.ScreenUpdating = Ложь
«Свидание - МТ4 Каждый день
Рабочие листы("Информация").Активировать
Отличаться(Клетки(1, 1), Клетки(1, 7).Заканчивать(кслдаун)).Копировать
Рабочие листы("Data_crushed").Активировать
ActiveSheet.Paste
'Столбцы отдельные
Столбцы("А:А").Выбирать
Choice.TextToColumns Место для отдыха:= Варьировать("А1"), Тип данных:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:= Ложь, Вкладка:= Истина, _
Точка с запятой:= Ложь, Запятая:= Истина, Дом:= Ложь, Другой:= Ложь, Информация о поле _
:= Массив(Множество(1, 4), Множество(2, 4), Множество(3, 1), Множество(4, 1), Множество(5, 1), Множество(6, 1), _
Множество(7, 1)), Десятичный разделитель:"="".", TrailingMinusNumbers:= Истина
Отличаться("G14").Выбирать
'видимый
Столбцы("Б").Удалить
Столбцы("г").ClearContents
Ряды("1:1").Вставить сдвиг:=xlDown, Копировать происхождение:=xlFormatFromLeftOrAbove
Отличаться("А1").ФормулаR1C1 = "Дата"
Отличаться("б1").ФормулаR1C1 = "Открыть"
Отличаться("с1").ФормулаR1C1 = "Излишний"
Отличаться("d1").ФормулаR1C1 = "Низкий"
Отличаться("е1").ФормулаR1C1 = "Закрыть"
Отличаться("ф1").ФормулаR1C1 = "Количество"
'переход к закрывающей записи
Отличаться("А:А,Е:Е").Копировать
Рабочие листы("Data_final").Активировать
Листы("Data_final").Выбирать
ActiveSheet.Paste
Готово