Всем доброго времени суток. Вот такая задача появилась : реализовать функцию курс евро текущий в файле который используется с удаленного локального сервера несколькими пользователями. Как и было ранее предложено на этом ресурсе знающими специалистами и сделал, какое-то время все работало на ура, но мпсяц назад начался разрушительный сбой вылетать при загрузки файла и функции, прошу знатоков помочь решить проблему, заранее спс.
Всем доброго времени суток. Вот такая задача появилась : реализовать функцию курс евро текущий в файле который используется с удаленного локального сервера несколькими пользователями. Как и было ранее предложено на этом ресурсе знающими специалистами и сделал, какое-то время все работало на ура, но мпсяц назад начался разрушительный сбой вылетать при загрузки файла и функции, прошу знатоков помочь решить проблему, заранее спс.Gameower
Может файл тупит, когда каждый себе курсы обновляет? Если сделать проверку на свежесть курса и не обновлять при каждом открытии книги. Первый открыл, обновилось, записалось на скрытый лист что всё, на сегодня хватит.
Может файл тупит, когда каждый себе курсы обновляет? Если сделать проверку на свежесть курса и не обновлять при каждом открытии книги. Первый открыл, обновилось, записалось на скрытый лист что всё, на сегодня хватит.wild_pig
Может файл тупит, когда каждый себе курсы обновляет? Если сделать проверку на свежесть курса и не обновлять при каждом открытии книги. Первый открыл, обновилось, записалось на скрытый лист что всё, на сегодня хватит.
а как реализовать что бы он раз в день обновлял его? данная функция и была предложена гуру с этого форума.
Может файл тупит, когда каждый себе курсы обновляет? Если сделать проверку на свежесть курса и не обновлять при каждом открытии книги. Первый открыл, обновилось, записалось на скрытый лист что всё, на сегодня хватит.
а как реализовать что бы он раз в день обновлял его? данная функция и была предложена гуру с этого форума.Gameower
а как реализовать что бы он раз в день обновлял его?
в модуль книги: [vba]
Код
Private Sub Workbook_Open() If Date = Sheets("Книга запросов DANFOSS").[i2] Then Exit Sub
Sheets("Книга запросов DANFOSS").[j2] = Курс_Евро Sheets("Книга запросов DANFOSS").[f2] = Курс_Евро_finanzru Sheets("Книга запросов DANFOSS").[i2] = Date End Sub
[/vba] или то же но покрасивше: [vba]
Код
Private Sub Workbook_Open() With Sheets("Книга запросов DANFOSS") If Date = .[i2] Then Exit Sub .[j2] = Курс_Евро: .[f2] = Курс_Евро_finanzru: .[i2] = Date End With End Sub
а как реализовать что бы он раз в день обновлял его?
в модуль книги: [vba]
Код
Private Sub Workbook_Open() If Date = Sheets("Книга запросов DANFOSS").[i2] Then Exit Sub
Sheets("Книга запросов DANFOSS").[j2] = Курс_Евро Sheets("Книга запросов DANFOSS").[f2] = Курс_Евро_finanzru Sheets("Книга запросов DANFOSS").[i2] = Date End Sub
[/vba] или то же но покрасивше: [vba]
Код
Private Sub Workbook_Open() With Sheets("Книга запросов DANFOSS") If Date = .[i2] Then Exit Sub .[j2] = Курс_Евро: .[f2] = Курс_Евро_finanzru: .[i2] = Date End With End Sub
Всю тему не читал и все файлы не смотрел, но, возможно, вот так пойдет? [vba]
Код
Private Sub Workbook_Open() With Sheets("Книга запросов DANFOSS") If .Range("J2") = Date Then Exit Sub .Range("K2") = Курс_Евро .Range("J2") = Date End With End Sub
[/vba]
Всю тему не читал и все файлы не смотрел, но, возможно, вот так пойдет? [vba]
Код
Private Sub Workbook_Open() With Sheets("Книга запросов DANFOSS") If .Range("J2") = Date Then Exit Sub .Range("K2") = Курс_Евро .Range("J2") = Date End With End Sub
Вы файл из моего поста смотрели? Макрос как я уже писал ранее и _Boroda_ то же написал - проверяет сегодняшнюю дату с датой в ячейке j2, и если они разнятся - пересчитывает курс и меняет дату в ячейке j2. А Вы убрали строку замены значения в в ячейке j2, соответственно у Вас в ячейке j2 всегда будет текущая дата и макрос срабатывать не будет.
Вы файл из моего поста смотрели? Макрос как я уже писал ранее и _Boroda_ то же написал - проверяет сегодняшнюю дату с датой в ячейке j2, и если они разнятся - пересчитывает курс и меняет дату в ячейке j2. А Вы убрали строку замены значения в в ячейке j2, соответственно у Вас в ячейке j2 всегда будет текущая дата и макрос срабатывать не будет.SLAVICK