десятичные разделители

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

десятичные разделители (Макросы/Sub)

rebus

Дата: Пятница, 07.07.2017, 21:00 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Ребята, подскажите такую штуку. Нашёл макрос на курс валют с ЦБ, на моей домашней версии он работает на ура, на работе же он почему то ставит другие десятичные разделители...Например дома курс доллара 67.777 а на работе 6.777,777

Как то вляет на это версия exel? я перерыл там все настройки так и не смог разобраться в чем дело.

Ответить

_Boroda_

Дата: Пятница, 07.07.2017, 21:03 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 17006

Репутация: 6667 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Может повлиять русская-английская версия Excel и формат разделителей в системе (Панель управления - Язык и региональные стандарты)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

rebus

Дата: Пятница, 07.07.2017, 21:05 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

на работе нет возможности заходить под админом и что-то менять. Как в таком случае адаптировать макрос?

Ответить

RAN

Дата: Пятница, 07.07.2017, 21:09 | Сообщение № 4

Группа: Друзья

Ранг: Экселист

Сообщений: 5660

Репутация: 1163 ±

Замечаний: 0% ±

2010

Ребус от Ребуса?

Я решил. Нужно адаптировать правильно.

Быть или не быть, вот в чем загвоздка!

Ответить

rebus

Дата: Пятница, 07.07.2017, 21:13 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

знать бы в каком направлении копать. я пытался и макрос сам менять...
[moder]Вот эти 2 строки нужно было в теги всунуть. Поправил Вам, поскольку Вы сейчас уже не сможете - сутки прошли[/moder]
[vba]

Код

CurrencyRate = CDbl(xmlNode.ChildNodes(4).Text)
divisor = Val(xmlNode.ChildNodes(2).Text)

[/vba] игрался с числами вот этими...всё равно он ставит разделители не так. В какую сторону думать?

[vba]

Код

Function GetRate(ByVal CurrencyName As String, ByVal RateDate As Date) As Single

    On Error Resume Next
    CurrencyName = UCase(CurrencyName): If Len(CurrencyName) <> 3 Then Exit Function
    Set xmldoc = CreateObject("Msxml.DOMDocument"): xmldoc.async = False
    url_request = "http://www.cbr.ru/scripts/XML_daily.asp?date_req=" + Format(RateDate, "dd\/mm\/yyyy")

    If xmldoc.Load(url_request) <> True Then Exit Function    ' Ýòî Çàïðîñ ê ñåðâåðó ÖÁ


    Set nodeList = xmldoc.SelectNodes("ValCurs"): Set xmlNode = nodeList.Item(0).CloneNode(True)
    Set node_attr = xmlNode.Attributes(0): strDate = node_attr.Value
    Set nodeList = xmldoc.SelectNodes("*/Valute")
    For I = 0 To nodeList.Length - 1
        Set xmlNode = nodeList.Item(I).CloneNode(True)
        If xmlNode.ChildNodes(1).Text = CurrencyName Then
            CurrencyRate = CDbl(xmlNode.ChildNodes(4).Text)
            divisor = Val(xmlNode.ChildNodes(2).Text)
            GetRate = CurrencyRate / divisor
            Exit Function
        End If
    Next
End Function

[/vba]