Открытие Excel файла на текущей дате - Microsoft Office Excel

Million · 04.09.2008, 11:08

Подскажите как решить следующую задачу.
Есть Excel файл (Ежедневка), который содержет два листа. На первом листе таблица с датами и строками для внесения поручений. На втором листе итоговая таблица за месяц. Как сделать чтоб при открытии этого файла, он открывался на первом листе и на текущей дате?

SAS888 · 04.09.2008, 13:32

Если в модуль "Эта книга" вставить код

Код:

Private Sub Workbook_Open()

    Dim x As Object
    Set x = Sheets(1).Columns("A").Find(what:=Date, LookAt:=xlWhole)
    If Not x Is Nothing Then Sheets(1).Range(x.Address).Select

End Sub

то при открытии книги, если в столбце "A" на первом листе найдется сегодняшняя дата, будет активирована эта ячейка.
Так нужно было?

Million · 04.09.2008, 20:37

Да именно так
Спасибо, все работает просто супер

04.09.2008, 11:08	#1
Million Регистрация: 03.09.2008 Сообщений: 4	Открытие Excel файла на текущей дате Подскажите как решить следующую задачу. Есть Excel файл (Ежедневка), который содержет два листа. На первом листе таблица с датами и строками для внесения поручений. На втором листе итоговая таблица за месяц. Как сделать чтоб при открытии этого файла, он открывался на первом листе и на текущей дате?

04.09.2008, 13:32	#2
SAS888 Старожил Регистрация: 05.12.2007 Сообщений: 4,180	Если в модуль "Эта книга" вставить код Код: `Private Sub Workbook_Open() Dim x As Object Set x = Sheets(1).Columns("A").Find(what:=Date, LookAt:=xlWhole) If Not x Is Nothing Then Sheets(1).Range(x.Address).Select End Sub` то при открытии книги, если в столбце "A" на первом листе найдется сегодняшняя дата, будет активирована эта ячейка. Так нужно было? Чем шире угол зрения, тем он тупее.

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Открытие Excel файла на текущей дате	Million	Помощь студентам	1	04.09.2008 06:44
Перезапись файла в текущей позиции	Андрей=	Общие вопросы Delphi	2	08.05.2008 17:19
Условие на открытие файла Excel	Hant	Microsoft Office Excel	2	07.05.2008 13:36
Поиск по дате создания файла	kayman	БД в Delphi	1	14.09.2007 14:54
Поиск по дате создания файла	kayman	Общие вопросы Delphi	1	14.09.2007 10:36

04.09.2008, 20:37	#3
Million Регистрация: 03.09.2008 Сообщений: 4	Да именно так Спасибо, все работает просто супер