Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 26.01.2008, 01:07   #1
Ezzzquire
Новичок
Джуниор
 
Регистрация: 26.01.2008
Сообщений: 1
По умолчанию создание автоматически обновляемой ссылки

Добрый день!

помогите, плз?
есть книга1, где каждую неделю появляется новый лист. и есть книга2, в которой есть ссылка на ячейку в книге 1. но, если ряд и столбец ячейки всегда одинаковый, то вот лист всегда должен быть самый последний. подскажите, как сделать такую динамическую, автоматически обновляемую ссылку?

к сожалению, не могу показать сам файл, на работе нета нет и копировать с рабочего компа ничего нельзя( приблизительно так:

=[Shedule.xls]January, 21-27!$U$2

надо, чтобы автоматически с воскресенья на понедельник менялось на
=[Shedule.xls]January, 28-3!$U$2.

название будущего листа известно заранее, это January, 28-2 потом будет February, 4-10 и так далее...
Ezzzquire вне форума
Старый 28.01.2008, 07:46   #2
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Можно с помощью VBA.
Следующий код, расположенный в модуле "Эта книга", будет обновлять ссылку на нужный лист Вашей книги в зависимости от текущей даты при каждом открытии файла.
Код:
Private Sub Workbook_Open()
    Dim Mes, a As Date, b As Integer, c As Integer
    Mes = Array("", "January", "Fabruary", "March", "April", "May", "June", _
        "July", "August", "September", "October", "November", "December")
    a = Date + 1 - Weekday(Date, vbMonday)
    b = Day(a) 'день начала недели
    c = Day(Date + 7 - Weekday(Date, vbMonday)) 'день конца недели
    Range("A1").FormulaR1C1 = "=[Shedule.xls]" & Mes(Month(a)) & ", " & b & "-" & c & "!R2C21"   
End Sub
Подставьте вместо "Range("A1").FormulaR1C1" ссылку (или ссылки) на нужные ячейки.
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как автоматически прокрутить ScroolBar в WebBrowser SeRhy Общие вопросы Delphi 3 19.08.2008 09:38
Заполнение столбца с уникальными значениями автоматически Mary_star SQL, базы данных 7 04.08.2008 17:43
Создание ссылки в XSL документе hyperworker HTML и CSS 1 29.05.2008 18:33
Как добавить и автоматически прокручивать скроллбар в RichEdit ? GAGARIN-NEW Компоненты Delphi 4 09.11.2007 14:56
Автоматически запускать приложение лисенок БД в Delphi 3 17.04.2007 23:39