Пересчет курсов ...
are
05/10/2004 11:24
#
Попробовал загрузку валют с сайта НБУ с расчетом кросс-курсов -
работает отлично. Спасибо атору.
Как отмечалось раньше в форуме, курсы загружаются в соотношениях,
которые хранятся на сайте. Для тех, кто желает иметь в базе "классические курсы",
когда "более крепкая" валюта всегда равна 1, предлагается следующее:
...
are
05/10/2004 11:25
#
1. Запустите AbilityCash, создайте новую базу :- Файл->Создать...
2. Загрузите валюты и курсы валют с расчетом кросс-курсов :- Действия->Загрузить
из интернета...->Источник данных (ЦБР)->Дальше->(Выберите загружаемые данные)
->Дальше->(собственно загрузка)->Дальше->(Выберите валюты, поставьте галочку
"Расчитать кросс-курсы валют")->Закончить
3. Сделайте экспорт валют из временной базы в Excel :- Файл->Экспорт
данных...->Дальше->(поставьте галочку возле "Валюты" и "Курсы валют")->Дальше->
Закончить
...
are
05/10/2004 11:29
#
4. В открывшемся Excel-файле создайте и выполните макрос :-
Sub CalcVal()
` CalcVal Macro
` Macro recorded 04.10.2004 by ARE
rowmax = 777 ` введите число, равное номеру последней строки в файле + 1
crow = 2
Sheets("Rates").Select
Do While crow <= rowmax
If Cells(crow, 3) <> "" Then
If Cells(crow, 5) <> "" Then
If Cells(crow, 3) > Cells(crow, 5) Then
Cells(crow, 3) = Val(Cells(crow, 3)) / Val(Cells(crow, 5))
Cells(crow, 5) = 1
Else
Cells(crow, 5) = Val(Cells(crow, 5)) / Val(Cells(crow, 3))
Cells(crow, 3) = 1
End If
End If
End If
Cells(crow, 3).Select
Selection.NumberFormat = "0.0000"
Cells(crow, 5).Select
Selection.NumberFormat = "0.0000"
crow = crow + 1
Loop
Cells(2, 1).Select
End Sub
он приведет кросс-курсы к 1. Сохраните Excel-файл.
...
are
05/10/2004 11:30
#
5. Откройте свою базу :- Файл->Открыть...
6. Импортируйте из Excel-файла пересчитанные курсы :- Файл->Импорт
данных...->(выберите Excel-файл)->Дальше->Дальше->(поставьте галочку возле
"Валюты" и "Курсы валют")->Дальше->Дальше->Закончить
Удачи ...
:(
Дмитрий
06/10/2004 16:55
#
Что-то побил твой макрос курсы