Получить курс валют от ЦБР. Как вставить в excel курс валют


Функция получения курса валют | Excel для всех

MulTEx » 1 Май 2011       Дмитрий       31455 просмотров

Курс валют от Центрального Банка России

 

Функция делает тоже самое, что и команда Курс валют - возвращает курс указанной валюты(по отношению к рублю) за указанную дату. Зачем встраивать дополнительно функцию, если есть уже такая? Дело в том, что многим людям необходимо не просто узнать курс валюты и занести её в ОДНУ ячейку, а внести курс в таблицу с множеством дат и еще и по разным валютам. Командой такое делать долговато... Зато можно использовать значения таблицы для более быстрого вывода курса:

Вызов команды через стандартный диалог:

Мастер функций-Категория "MulTEx"- Курс валют

Вызов с панели MulTEx:

Сумма/Поиск/Функции - Полезности - Курс валют

Синтаксис:=Курс валют(B2;A2)

Дата(B2) - может быть ссылкой на ячейку с датой либо непосредственный ввод даты в поле аргумента.

Тип Валюты(A2) - можно указать любую из перечисленных(либо ссылка на ячейку, с указанным там типом валюты; либо непосредственное указание типа валюты в поле):

  • AUD-Австралийский доллар
  • AZN-Азербайджанский манат
  • AMD-Армянский драм
  • BYR-Белорусский рубль
  • BGN-Болгарский лев
  • BRL-Бразильский реал
  • HUF-Венгерский форинт
  • KRW-Вон Республики Корея
  • DKK-Датская крона
  • USD-Доллар США
  • EUR-Евро
  • INR-Индийская рупия
  • KZT-Казахский тенге
  • CAD-Канадский доллар
  • KGS-Киргизский сом
  • CNY-Китайский юань
  • LVL-Латвийский лат
  • LTL-Литовский лит
  • MDL-Молдавский лей
  • RON-Новый румынский лей
  • TMT-Новый туркменский манат
  • NOK-Норвежская крона
  • PLN-Польский злотый
  • XDR-СДР
  • SGD-Сингапурский доллар
  • TJS-Таджикский сомони
  • TRY-Турецкая лира
  • UZS-Узбекский сум
  • UAH-Украинская гривна
  • GBP-Фунт стерлингов Соединенного королевства
  • CZK-Чешская крона
  • SEK-Шведская крона
  • CHF-Швейцарский франк
  • ZAR-Южноафриканский рэнд

Если дата не указана, то возвращается курс за текущую дату. Если не указана валюта, то возвращается курс Американского доллара(USD).

Rating: 1.0/5. From 1 vote.

Please wait...

www.excel-vba.ru

ПЕРЕСЧЕТЕВРО (функция ПЕРЕСЧЕТЕВРО) - Служба поддержки Office

Часть содержимого этого раздела может быть неприменима к некоторым языкам.

В этой статье описаны синтаксис формулы и использование функции ПЕРЕСЧЕТЕВРО в Microsoft Excel.

Описание

Преобразует численное значение в евро, преобразует значение из евро в значение в национальной валюте стран Евросоюза или преобразует число из одной национальной валюты в другую с использованием евро в качестве промежуточного результата (триангуляция). Валютами, доступными для пересчета, являются валюты стран-членов Евросоюза (ЕС), принявших евро в качестве денежной единицы. При преобразовании используются фиксированные курсы пересчета, устанавливаемые Евросоюзом.

Если данная функция недоступна и возвращает ошибку #ИМЯ?, установите и загрузите надстройку "Пересчет в евро".

Установка и загрузка надстройки "Пересчет в евро"

  1. На вкладке Файл выберите команду Параметры, а затем — категорию Надстройки.

  2. В списке Управление выберите пункт Надстройки Excel и нажмите кнопку Перейти.

  3. В списке Доступные надстройки установите флажок Пересчет в евро и нажмите кнопку ОК.

  4. Если потребуется, выполните инструкции программы установки.

Синтаксис

ПЕРЕСЧЕТЕВРО(число;исходное_значение;конечное_значение;полная_точность;точность_триангуляции)

Аргументы функции ПЕРЕСЧЕТЕВРО описаны ниже.

  • Число     — обязательный аргумент. Денежное значение, которое требуется преобразовать, или ссылка на ячейку, содержащую значение.

  • Исходное_значение     — обязательный аргумент. Строка из трех знаков или ссылка на ячейку, содержащую строку, соответствующую коду ISO исходной валюты. В функции ПЕРЕСЧЕТЕВРО доступны коды валют, указанные ниже.

Страна

Базовая валюта

Код ISO

Бельгия

Франк

BEF

Люксембург

Франк

LUF

Германия

Немецкая марка

DEM

Испания

Песета

ESP

Франция

Франк

FRF

Ирландия

Фунт

IEP

Италия

Лира

ITL

Нидерланды

Гульден

NLG

Австрия

Шиллинг

ATS

Португалия

Эскудо

PTE

Финляндия

Финская марка

FIM

Греция

Драхма

GRD

Словения

Толар

SIT

Страны, использующие евро

Евро

EUR

  • Конечное_значение     — обязательный аргумент. Строка из трех знаков или ссылка на ячейку, содержащую строку, соответствующую коду ISO валюты, в которую требуется пересчитать значение. Коды ISO указаны в приведенной выше таблице.

  • Полная_точность     — обязательный аргумент. Логическое значение (ИСТИНА или ЛОЖЬ) или выражение, результатом которого является ИСТИНА или ЛОЖЬ, определяющее способ отображения результата.

Используйте значение

Если требуется

ЛОЖЬ

Отобразить результат с правилами округления, специфичными для конкретной валюты (см. приведенную ниже таблицу). Приложение Microsoft Excel использует значение точности расчета для вычисления результата и значения точности отображения для отображения результата. Если аргумент "полная_точность" опущен, значение ЛОЖЬ используется по умолчанию.

ИСТИНА

Отобразить результат со всеми значащими цифрами.

  • В приведенной ниже таблице указаны правила округления для конкретных валют, т. е. количество десятичных разрядов, используемых в Microsoft Excel при пересчете валют и отображении результата.

Код ISO

Точность расчета

Точность отображения

BEF

0

0

LUF

0

0

DEM

2

2

ESP

0

0

FRF

2

2

IEP

2

2

ITL

0

0

NLG

2

2

ATS

2

2

PTE

0

2

FIM

2

2

GRD

0

2

SIT

2

2

EUR

2

2

  • Точность_триангуляции     — обязательный аргумент. Целое число, равное или большее 3, определяющее количество значащих цифр, которое должно использоваться в промежуточном значении евро при перерасчете из одной валюты в другую. Если этот аргумент опущен, приложение Microsoft Excel не округляет промежуточное значение евро. Если данный аргумент указан при перерасчете из валюты страны, использующей евро, в значение евро, приложение Microsoft Excel рассчитывает промежуточное значение в евро, которое может быть затем пересчитано в требуемую валюту.

Замечания

  • Приложение Microsoft Excel отсекает конечные нули в возвращаемом значении.

  • Если исходный код ISO совпадает с конечным кодом ISO, приложение Excel возвращает исходное значение числа.

  • При использовании недопустимых параметров возвращается ошибка #ЗНАЧ.

  • Данная функция не применяет числовой формат.

  • Эта функция не может быть использована в формулах массива.

Пример

Скопируйте образец данных из следующей таблицы и вставьте их в ячейку A1 нового листа Excel. Чтобы отобразить результаты формул, выделите их и нажмите клавишу F2, а затем — клавишу ВВОД. При необходимости измените ширину столбцов, чтобы видеть все данные.

Сумма

Исходное значение

Конечное значение

1,20

DEM

EUR

1,00

FRF

EUR

1,00

FRF

EUR

1,00

FRF

DEM

1,00

FRF

DEM

Формула

Описание (результат)

=ПЕРЕСЧЕТЕВРО(A2;B2;C2)

Пересчитывает 1,2 немецкой марки в эквивалент в евро с точностью расчета и отображения до 2 десятичных знаков (0,61)

0,61

=ПЕРЕСЧЕТЕВРО(A3;B3;C3;ИСТИНА;3)

Пересчитывает 1 франк в эквивалент в евро с точностью расчета и отображения до 3 десятичных знаков (0,152)

0,152

=ПЕРЕСЧЕТЕВРО(A4;B4;C4;ЛОЖЬ;3)

Пересчитывает 1 франк в эквивалент в евро с точностью расчета и отображения до 2 десятичных знаков (0,15)

0,15

=ПЕРЕСЧЕТЕВРО(A5;B5;C5;ИСТИНА;3)

Пересчитывает 1 франк в эквивалент в немецких марках с промежуточной точностью расчета 3 и отображением всех значащих цифр (0,29728616)

0,29728616

Примечание

Для использования функции ПЕРЕСЧЕТЕВРО необходимо сначала активировать надстройку "Пересчет в евро". Чтобы узнать, как добавить и установить надстройки Excel, см. следующую ссылку:

Добавление и удаление надстроек

Примечания: 

  • В этих примерах приняты следующие курсы пересчета: 1 евро = 6,55957 французского франка и 1,95583 немецкой марки. Функция ПЕРЕСЧЕТЕВРО использует текущие ставки, установленные Евросоюзом. В случае изменения ставок корпорация Майкрософт обновит эту функцию. Для получения полных сведений о действующих правилах и курсах пересчета обращайтесь к публикациям Европейской комиссии, касающимся евро.

  • В примерах результирующие значения приведены без форматирования.

  • В образце таблицы конечные нули усечены.

support.office.com

Получить курс валют от ЦБР

Хитрости » 15 Сентябрь 2013       Дмитрий       20992 просмотров

Если Вам часто приходится в своих таблицах Excel использовать текущий курс валют - эта статья для вас. Приведенная ниже функция пользователя позволяет получить курс валюты на заданную дату.

'--------------------------------------------------------------------------------------- ' Procedure : КурсЦБР ' DateTime : 15.09.2013 23:11 ' Author : The_Prist(Щербаков Дмитрий) ' http://www.excel-vba.ru ' Purpose : http://www.excel-vba.ru/chto-umeet-excel/poluchit-kurs-valyut-ot-sberbanka/ '--------------------------------------------------------------------------------------- Function КурсЦБР(Optional ТипВалюты As String, Optional ByVal Дата As String) As Double 'раскомментировать, если необходимо обновление при любом изменении на листе 'Application.Volatile True Dim sRequest As String, sReqRes As String, sRes As String Dim sDay As String, sMonth As String, sYear As String Dim lPos As Long, lLastPos As Long, lDel As Long, oHttp If IsMissing(ТипВалюты) Or ТипВалюты = "" Then ТипВалюты = "USD" If IsMissing(Дата) Or Дата = "" Then Дата = Now If Not IsDate(Дата) Then Дата = CDate(Дата) sDay = Format(Дата, "dd"): sMonth = Format(Дата, "mm"): sYear = Format(Дата, "yyyy") sRequest = "http://cbr.ru/currency_base/daily.aspx?C_month= " & _ sMonth & "&C_year=" & sYear & "&date_req=" & sDay & "%2F" & _ sMonth & "%2F" & sYear On Error Resume Next Set oHttp = CreateObject("MSXML2.XMLHTTP") If Err <> 0 Then Set oHttp = CreateObject("MSXML.XMLHTTPRequest") End If If oHttp Is Nothing Then Exit Function oHttp.Open "GET", sRequest, False oHttp.Send sReqRes = Replace(oHttp.resp

www.excel-vba.ru