Есть файл с макросом ( в приложении), скачал на этом же сайте - который достает с сайта CBR курсы валют на каждый день Сегодня упорно ни чего не работает выдает ошибку "5".
Вот эта строчка в макросе подсвечивается желтым [vba]
Есть файл с макросом ( в приложении), скачал на этом же сайте - который достает с сайта CBR курсы валют на каждый день Сегодня упорно ни чего не работает выдает ошибку "5".
Вот эта строчка в макросе подсвечивается желтым [vba]
- как будто вчера работало... Чем эту переписывать (хотя я недавно одну такую чинил сдуру) - берите готовую другую у EducatedFool на сайте ( http://excelvba.ru/code/CurrencyRate ). А может и тут где есть, которая из xml тянет.
Там сайт вроде уже давно формат поменял - удивляете меня этим
- как будто вчера работало... Чем эту переписывать (хотя я недавно одну такую чинил сдуру) - берите готовую другую у EducatedFool на сайте ( http://excelvba.ru/code/CurrencyRate ). А может и тут где есть, которая из xml тянет.Hugo
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, [A:A]) Is Nothing Or Target.Address(0, 0) = "A1" Then Exit Sub Cancel = True If Not IsDate(Target) Then Exit Sub Target.Offset(, 1) = GetRate("EUR", Target) 'Ex_Rate_EUR(Target) Target.Offset(, 2) = GetRate("CZK", Target) 'Ex_Rate_CZK(Target) End Sub
[/vba] Только ещё нужно в коде Игоря или объявить все переменные (не любит он это дело ), или отключить 'Option Explicit P.S. вот только непонятно как оно машину времени включает... Ааа, это банк так придумал, вероятно есть у них смысл, хотя я его не вижу...
Ну ведь элементарно поправить: [vba]
Код
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, [A:A]) Is Nothing Or Target.Address(0, 0) = "A1" Then Exit Sub Cancel = True If Not IsDate(Target) Then Exit Sub Target.Offset(, 1) = GetRate("EUR", Target) 'Ex_Rate_EUR(Target) Target.Offset(, 2) = GetRate("CZK", Target) 'Ex_Rate_CZK(Target) End Sub
[/vba] Только ещё нужно в коде Игоря или объявить все переменные (не любит он это дело ), или отключить 'Option Explicit P.S. вот только непонятно как оно машину времени включает... Ааа, это банк так придумал, вероятно есть у них смысл, хотя я его не вижу...Hugo
А тёзкино работает быстрее Но я бы всёж проверял дату и на будущее не тянул чтоб не было косяков. В будущем P.S. Можно не мучить банк ненужными запросами, а брать сразу обе валюты за день - но это нужно чуть переделать UDF именно под эту задачу. Но будет работать в 2 раза быстрее!
А тёзкино работает быстрее Но я бы всёж проверял дату и на будущее не тянул чтоб не было косяков. В будущем P.S. Можно не мучить банк ненужными запросами, а брать сразу обе валюты за день - но это нужно чуть переделать UDF именно под эту задачу. Но будет работать в 2 раза быстрее!Hugo