Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Обновление курса автоматически - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Обновление курса автоматически (Макросы/Sub)
Обновление курса автоматически
Oh_Nick Дата: Четверг, 30.07.2020, 12:54 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 46
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Ребята,

Что прописать в коде, чтобы курс обновлялся автоматически, а не когда вводишь валюту?

[vba]
Код
Function ЦБР(Optional ТипВалюты$, Optional Дата As Date) As Double
    Dim xmDoc As Object, date_req$
    Set xmDoc = CreateObject("msxml2.DOMDocument")
    If Not CBool(Len(ТипВалюты)) Then ТипВалюты = "USD"
    date_req = "?date_req=" & IIf(Дата, Дата, Date)
    xmDoc.async = 0: xmDoc.Load ("http://www.cbr.ru/scripts/XML_daily.asp" & date_req)
    With xmDoc.SelectSingleNode("*/Valute[CharCode='" & UCase(ТипВалюты) & "']")
        ЦБР = CDbl(.ChildNodes(4).Text) / Val(.ChildNodes(2).Text)
    End With
    Set xmDoc = Nothing
End Function
[/vba]
 
Ответить
СообщениеРебята,

Что прописать в коде, чтобы курс обновлялся автоматически, а не когда вводишь валюту?

[vba]
Код
Function ЦБР(Optional ТипВалюты$, Optional Дата As Date) As Double
    Dim xmDoc As Object, date_req$
    Set xmDoc = CreateObject("msxml2.DOMDocument")
    If Not CBool(Len(ТипВалюты)) Then ТипВалюты = "USD"
    date_req = "?date_req=" & IIf(Дата, Дата, Date)
    xmDoc.async = 0: xmDoc.Load ("http://www.cbr.ru/scripts/XML_daily.asp" & date_req)
    With xmDoc.SelectSingleNode("*/Valute[CharCode='" & UCase(ТипВалюты) & "']")
        ЦБР = CDbl(.ChildNodes(4).Text) / Val(.ChildNodes(2).Text)
    End With
    Set xmDoc = Nothing
End Function
[/vba]

Автор - Oh_Nick
Дата добавления - 30.07.2020 в 12:54
Oh_Nick Дата: Четверг, 30.07.2020, 16:28 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 46
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Ребята,

Разобрался, что курс обновляется верно.
 
Ответить
СообщениеРебята,

Разобрался, что курс обновляется верно.

Автор - Oh_Nick
Дата добавления - 30.07.2020 в 16:28
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Обновление курса автоматически (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!