Макрос и интернет еще вопрос

[Romuald]

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

[SAS888]

Посмотрите вложение. Введите дату в ячейку "G3" и запустите макрос "ValKur".
В коде не проверяется, есть ли подключение к Internet, а так же корректность ввода даты. Т.е. ячейка "G3" должна иметь формат "Дата" и введенная дата не должна превышать текущую.

[Romuald]

Спасибо огромное! Все шикарно работает!!!

Подскажите, чтобы не было проблем с вводом даты и форматом , можно сделать ввод даты через форму?

[EducatedFool]

чтобы не было проблем с вводом даты и форматом , можно сделать ввод даты через форму?

Так подойдёт?
http://www.programmersforum.ru/showp...54&postcount=4

Пример использования:
НоваяДата = Get_Date(НоваяДата, ЗначениеПоУмолчанию)

[a1] = Get_Date([a1], DateSerial(1980, 1, 1))

Если в ячейке a1 присутствует дата, она будет стартовой при запуске формы:



Иначе стартовой датой для выбора станет дата 1 января 1980 (ЗначениеПоУмолчанию)
Если и значение по умолчанию не указано, стартовой датой является текущая дата.

[Romuald]

Поставил Calendar Control 11,0 - но почему-то не идет макрос на изменение в ячейке G3 ?

[EducatedFool]

Замените код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$G$3" Then ValKur
End Sub

на

Private Sub Calendar1_AfterUpdate()
    ValKur
End Sub

[Romuald]

Есть маленькая фишка- в календаре выбираю дату, а в А1 он ставит дату прошлого выбора даты и курс валюты он берет из прошлоговыбора даты

[EducatedFool]

Есть маленькая фишка- в календаре выбираю дату, а в А1 он ставит дату прошлого выбора даты и курс валюты он берет из прошлоговыбора даты

Ну и? Это работает уже, насколько я понял...
А что требуется сделать?

Кстати, вместо индийского кода

D = IIf(Len(Day([g3])) = 2, Day([g3]), 0 & Day([g3]))
M = IIf(Len(Month([g3])) = 2, Month([g3]), 0 & Month([g3]))
dt = Year([g3]) & M & D

можно написать dt = Format([g3], "YYYYMMDD")

Соответственно, вместо [a1] = "Datums: " & D & "." & M & "." & Year([g3])
можно поставить [a1] = "Datums: " & Format([g3], "DD.MM.YYYY")

[Romuald]

Я выбираю в календаре дату
В G3 появляется эта дата,
Вижу -запускается макрос, есть данные курса валют,
но это данные не на ту дату , которую я сейчас выбрал а предыдущего выбора даты
и в А1 он ставит дату предыдущего выбора даты .
При следующем выборе даты в календаре, макрос дает данные на ту дату,которую выбирал до этого

В календаре Выбираю дату- 03.02.2009
В ячейке G3 появляется -03.02.2009
идет макрос
В ячейке А1 появляется -Datums: 04.01.2009(дата прошлого отбора)
Данные валют на - 04.01.2009

Следующую Выбираю дату- 28.02.2009
В ячейке G3 появляется -28.02.2009
идет макрос
В ячейке А1 появляется -Datums: 03.02.2009(дата прошлого отбора)
Данные валют на - 03.02.2009
ит.д.
Ну ничего не могу понять
Для проверки- курс USD на 28.03.2009- 0.553

[SAS888]

Прикрепите тот файл, в котором это происходит - сразу получите нужный ответ. Иначе - будем вести долгую переписку.